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)