Submission #1532620

---

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

Compile Error

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

Main.hs:7:50: Not in scope: data constructor ‘N’

Main.hs:7:77: Not in scope: data constructor ‘N’