Submission #1532621


Source Code Expand

n = 50
 
main = do
  k <- readLn
  let (p, q) = k `divMod` n
  print n
  putStr . unword . map show $ (replicate q (p + n - q + 1)) ++ (replicate (n - q) (p - q))

Submission Info

Submission Time
Task D - Decrease (Contestant ver.)
User Gash788
Language Haskell (GHC 7.10.3)
Score 0
Code Size 168 Byte
Status CE

Compile Error

Main.hs:7:12:
    Not in scope: ‘unword’
    Perhaps you meant ‘unwords’ (imported from Prelude)