Spiraali

input/code.hs:1:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature: main :: IO ()
  |
1 | main = do
  | ^^^^

input/code.hs:2:8: warning: [-Wunused-matches]
    Defined but not used: `t'
  |
2 |     [n,t] <- map read . words <$> getLine
  |        ^

input/code.hs:2:18: warning: [-Wtype-defaults]
    * Defaulting the following constraints to type `Integer'
        (Read a0) arising from a use of `read' at input/code.hs:2:18-21
        (Show a0) arising from a use of `print' at input/code.hs:3:12-16
        (Ord a0) arising from a use of `luku' at input/code.hs:3:20-25
        (Num a0) arising from a use of `luku' at input/code.hs:3:20-25
    * In the first argument of `map', namely `read'
      In the first argument of `(.)', namely `map read'
      In the first argument of `(<$>)', namely `map read . words'
  |
2 |     [n,t] <- map read . words <$> getLine
  |                  ^^^^

input/code.hs:5:1: warning: [-Wmissing-signatures]
    Top-level binding...

main = do
    [n,t] <- map read . words <$> getLine
    mapM_ (print . luku n . (\[y,x] -> (x, y)) . map  read . words) . lines =<< getContents

kuorittava n p = syvyys n p > 1

syvyys n (x, y) = min (syvyys' n x) (syvyys' n y)
    where syvyys' n x = min x $ abs (n-x) + 1

kuori (x, y) = (x - 1, y - 1)

luku n p@(x, y)
  | kuorittava n p = 4 * (n - 1) + luku (n-2) (kuori p)
  | otherwise = reunapituus n p

reunapituus n (x, y)
  | x == 1 = y
  | y == n = n - 1 + x
  | x == n = 2 * (n - 1) + abs (n-y) + 1
  | y == 1 = 3 * (n - 1) + abs (n-x) + 1
  | otherwise = error "Spiraalia ei ole kuorittu tarpeeksi!"

Test 1

Group: 1

Verdict: ACCEPTED

Test 2

Group: 2

Verdict: ACCEPTED

Test 3

Group: 3

Verdict: TIME LIMIT EXCEEDED