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