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

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

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

luku n p = let k = syvyys n p in n^2 - (n - 2*k)^2 + reunapituus (n - 2*k) (kuori k 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: ACCEPTED