projects
/
cses-programming-tasks.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Added some basic tasks
[cses-programming-tasks.git]
/
app
/
cses1070.hs
1
import Data.List
2
3
main :: IO ()
4
main = do
5
line1 <- getLine
6
let nums = read line1
7
putStrLn $ solve nums
8
9
solve :: Int -> String
10
solve nums | nums == 1 = "1"
11
solve nums | nums <= 3 = "NO SOLUTION"
12
solve nums | otherwise = intercalate " " $ map show $ evens ++ odds
13
where (evens, odds) = partition (\n -> (n `mod` 2) == 0) [1..nums]
14