Alitaulukot

input/code.hs:2:1: warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In an equation for `f': Patterns not matched: _ [] _
  |
2 | f maxDiff ((len, maxi):xs) new 
  | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...

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

input/code.hs:16:1: warning: [-Wtabs]
    Tab character found here, and in one further location.
    Please use spaces instead.
   |
16 |         maxDiff = read $ last $ words ln1 :: Int
   | ^^^^^^^^

f :: Int -> [(Int, Int)] -> Int -> [(Int, Int)]
f maxDiff ((len, maxi):xs) new 
  | abs (new - maxi) <= maxDiff = (len + 1, max maxi new):xs
  | otherwise = (1, new):(len, maxi):xs

g :: Int -> Int
g i = (i + i * i) `div` 2

h :: [(Int, a)] -> Int
h x = foldr (+) 0 $ map g $ map fst x

main = do
    input <- getContents
    let ln1 = head $ lines input
        ln2 = last $ lines input
	maxDiff = read $ last $ words ln1 :: Int
	list = map read $ words ln2 :: [Int]
    print $ h $ foldl (f maxDiff) [(0, 0)] list

Test 1

Group: 1, 2, 3

Verdict: ACCEPTED

Test 2

Group: 1, 2, 3

Verdict: WRONG ANSWER

Test 3

Group: 1, 2, 3

Verdict: ACCEPTED

Test 4

Group: 1, 2, 3

Verdict: WRONG ANSWER

Test 5

Group: 1, 2, 3

Verdict: ACCEPTED

Test 6

Group: 2, 3

Verdict: ACCEPTED

Test 7

Group: 2, 3

Verdict: WRONG ANSWER

Test 8

Group: 2, 3

Verdict: WRONG ANSWER

Test 9

Group: 2, 3

Verdict: WRONG ANSWER

Test 10

Group: 2, 3

Verdict: ACCEPTED

Test 11

Group: 3

Verdict: ACCEPTED

Test 12

Group: 3

Verdict: WRONG ANSWER

Test 13

Group: 3

Verdict: WRONG ANSWER

Test 14

Group: 3

Verdict: WRONG ANSWER

Test 15

Group: 3

Verdict: ACCEPTED

Test 16

Group: 3

Verdict: WRONG ANSWER

Test 17

Group: 3

Verdict: WRONG ANSWER