Submission #3229615

---

Source Code Expand

import Control.Applicative
import Data.List
import Data.Ratio

main = do
  [n,a,b] <- map read . words <$> getLine :: IO [Int]

  if (a <= n && b <= n-a+1 && b >= ceiling (n % a)) then
    print $ [n-a+1..n] ++ (concat . reverse $ slice ((n-a)`div`(b-1)) [1..n-a])

    else
    print (-1)


slice _ [] = []
slice n xs = let (a,b) = splitAt n xs in a : slice n b

Submission Info

Compile Error

./Main.scala:5: error: expected class or object definition
main = do
^
./Main.scala:8: error: expected class or object definition
  if (a <= n && b <= n-a+1 && b >= ceiling (n % a)) then
  ^
./Main.scala:9: error: expected class or object definition
    print $ [n-a+1..n] ++ (concat . reverse $ slice ((n-a)`div`(b-1)) [1..n-a])
    ^
./Main.scala:15: error: expected class or object definition
slice _ [] = []
^
./Main.scala:16: error: expected class or object definition
slice n xs = let (a,b) = splitAt n xs in a : slice n b
^
5 errors found