Submission #2532026

Source Code Expand

import           Control.Monad
import           Data.List

-- kagamimochi.hs --- Kagamimochi

-- author: Seong Yong-ju <sei40kr@gmail.com>

solve :: [Int] -> Int
solve = length . nub

main :: IO ()
main = do
  n <- readLn
  rs <- replicateM n readLn
  print $ solve rs

Submission Info

Submission Time
Task B - Kagami Mochi
User sei40kr
Language Haskell (GHC 7.10.3)
Score 200
Code Size 284 Byte
Status AC
Exec Time 2 ms
Memory 1020 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 3
AC × 13
Set Name Test Cases
Sample a01, a02, a03
All a01, a02, a03, b04, b05, b06, b07, b08, b09, b10, b11, b12, b13
Case Name Status Exec Time Memory
a01 AC 1 ms 508 KB
a02 AC 1 ms 508 KB
a03 AC 1 ms 508 KB
b04 AC 1 ms 508 KB
b05 AC 2 ms 1020 KB
b06 AC 2 ms 1020 KB
b07 AC 2 ms 1020 KB
b08 AC 2 ms 1020 KB
b09 AC 2 ms 1020 KB
b10 AC 2 ms 1020 KB
b11 AC 2 ms 1020 KB
b12 AC 2 ms 1020 KB
b13 AC 2 ms 1020 KB