Submission #3044513

Source Code Expand

import           Data.List

main :: IO ()
main = do
  getLine
  as <- map read . words <$> getLine
  print $ solve as

solve :: [Int] -> Int
solve = sum . map (`div` 2) . map length . group

Submission Info

Submission Time
Task A - Colorful Slimes 2
User Gash788
Language Haskell (GHC 7.10.3)
Score 200
Code Size 198 Byte
Status AC
Exec Time 2 ms
Memory 892 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 4
AC × 13
Set Name Test Cases
Sample example_0, example_1, example_2, example_3
All example_0, example_1, example_2, example_3, handmade_0, handmade_1, rand_0, rand_1, smallcolor_0, smallcolor_1, smallcolor_2, smallcolor_3, smallcolor_4
Case Name Status Exec Time Memory
example_0 AC 1 ms 508 KB
example_1 AC 1 ms 508 KB
example_2 AC 1 ms 508 KB
example_3 AC 1 ms 508 KB
handmade_0 AC 1 ms 508 KB
handmade_1 AC 1 ms 508 KB
rand_0 AC 1 ms 636 KB
rand_1 AC 1 ms 508 KB
smallcolor_0 AC 2 ms 892 KB
smallcolor_1 AC 2 ms 892 KB
smallcolor_2 AC 2 ms 892 KB
smallcolor_3 AC 2 ms 892 KB
smallcolor_4 AC 2 ms 892 KB