Osajono

input/code.hs:1:1: Warning:
    Top-level binding with no type signature:
      subList :: forall a. [a] -> Int -> Int -> [a]

input/code.hs:3:1: Warning:
    Top-level binding with no type signature:
      allSubLists :: forall a. [a] -> [[a]]

input/code.hs:17:1: Warning:
    Top-level binding with no type signature: main :: IO ()

subList l x y = take (y + 1 - x) $ drop (x - 1) l
        
allSubLists l =
  let iter n m =
        if n + m > length l then
          []
        else
          (subList l n (n + m)):(iter (n + 1) m)
      iterLines n =
        if n < 0 then
          []
        else
          (iter 1 n) ++ (iterLines (n - 1))
  in
   iterLines (length l)

main = do
  input <- getLine
  print $ length $ filter (\ l -> (head l) == (last l)) $ allSubLists input

Test 1

Group: 1

Verdict: ACCEPTED

Test 2

Group: 1

Verdict: ACCEPTED

Test 3

Group: 1

Verdict: ACCEPTED

Test 4

Group: 1

Verdict: ACCEPTED

Test 5

Group: 1

Verdict: ACCEPTED

Test 6

Group: 2

Verdict: TIME LIMIT EXCEEDED

Test 7

Group: 2

Verdict: TIME LIMIT EXCEEDED

Test 8

Group: 2

Verdict: TIME LIMIT EXCEEDED

Test 9

Group: 2

Verdict: TIME LIMIT EXCEEDED

Test 10

Group: 2

Verdict: TIME LIMIT EXCEEDED

Test 11

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 12

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 13

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 14

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 15

Group: 3

Verdict: TIME LIMIT EXCEEDED