Submission #345468


Source Code Expand

Copy
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE BangPatterns #-}

import Control.Applicative
import Control.Monad
import Control.Arrow
import Data.List
import Data.Maybe
import Data.Char
import Text.Printf

readInt = ( readLn :: IO Int )
getInts = map ( read :: String -> Int ) . words <$> getLine

which a b f = if f then a else b
mp [ a, b ] = ( a, b )

main = getLine >> getLine >>= print . length . group . sort . map ( f . ( read :: String -> Int ) ) . words

f x
	| odd x = x
	| otherwise = f ( x `div` 2 )

Submission Info

Submission Time
Task C - 高橋くんと魔法の箱
User torus711
Language Haskell (GHC 7.4.1)
Score 100
Code Size 535 Byte
Status
Exec Time 1711 ms
Memory 60512 KB

Judge Result

Set Name Score / Max Score Test Cases
Sample 0 / 0 subtask0_0.txt, subtask0_1.txt, subtask0_2.txt
Subtask1 20 / 20 subtask1_0.txt, subtask1_1.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_16.txt, subtask1_17.txt, subtask1_18.txt, subtask1_19.txt, subtask1_2.txt, subtask1_3.txt, subtask1_4.txt, subtask1_5.txt, subtask1_6.txt, subtask1_7.txt, subtask1_8.txt, subtask1_9.txt, subtask0_0.txt, subtask0_1.txt, subtask0_2.txt
Subtask2 30 / 30 subtask2_0.txt, subtask2_1.txt, subtask2_2.txt, subtask2_3.txt, subtask2_4.txt, subtask2_5.txt, subtask2_6.txt, subtask2_7.txt, subtask2_8.txt, subtask2_9.txt, subtask0_0.txt, subtask0_1.txt, subtask0_2.txt
All 50 / 50 subtask0_0.txt, subtask0_1.txt, subtask0_2.txt, subtask1_0.txt, subtask1_1.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_16.txt, subtask1_17.txt, subtask1_18.txt, subtask1_19.txt, subtask1_2.txt, subtask1_3.txt, subtask1_4.txt, subtask1_5.txt, subtask1_6.txt, subtask1_7.txt, subtask1_8.txt, subtask1_9.txt, subtask2_0.txt, subtask2_1.txt, subtask2_2.txt, subtask2_3.txt, subtask2_4.txt, subtask2_5.txt, subtask2_6.txt, subtask2_7.txt, subtask2_8.txt, subtask2_9.txt, subtask3_0.txt, subtask3_1.txt, subtask3_2.txt, subtask3_3.txt, subtask3_4.txt, subtask3_5.txt, subtask3_6.txt, subtask3_7.txt, subtask3_8.txt, subtask3_9.txt
Case Name Status Exec Time Memory
subtask0_0.txt 341 ms 1320 KB
subtask0_1.txt 26 ms 1432 KB
subtask0_2.txt 28 ms 1260 KB
subtask1_0.txt 53 ms 2680 KB
subtask1_1.txt 61 ms 3224 KB
subtask1_10.txt 53 ms 2632 KB
subtask1_11.txt 66 ms 3356 KB
subtask1_12.txt 65 ms 3356 KB
subtask1_13.txt 66 ms 3356 KB
subtask1_14.txt 64 ms 3360 KB
subtask1_15.txt 68 ms 3356 KB
subtask1_16.txt 65 ms 3356 KB
subtask1_17.txt 67 ms 3292 KB
subtask1_18.txt 65 ms 3424 KB
subtask1_19.txt 68 ms 3356 KB
subtask1_2.txt 65 ms 3224 KB
subtask1_3.txt 62 ms 3292 KB
subtask1_4.txt 63 ms 3232 KB
subtask1_5.txt 64 ms 3224 KB
subtask1_6.txt 62 ms 3188 KB
subtask1_7.txt 61 ms 3228 KB
subtask1_8.txt 61 ms 3184 KB
subtask1_9.txt 65 ms 3216 KB
subtask2_0.txt 1051 ms 35996 KB
subtask2_1.txt 1452 ms 37532 KB
subtask2_2.txt 1469 ms 37528 KB
subtask2_3.txt 1480 ms 37528 KB
subtask2_4.txt 1456 ms 37536 KB
subtask2_5.txt 1442 ms 37532 KB
subtask2_6.txt 1437 ms 37532 KB
subtask2_7.txt 1449 ms 37532 KB
subtask2_8.txt 1456 ms 37532 KB
subtask2_9.txt 1473 ms 41124 KB
subtask3_0.txt 1032 ms 35992 KB
subtask3_1.txt 1624 ms 56092 KB
subtask3_2.txt 1683 ms 56088 KB
subtask3_3.txt 1711 ms 60512 KB
subtask3_4.txt 1691 ms 56092 KB
subtask3_5.txt 1620 ms 56092 KB
subtask3_6.txt 1676 ms 56092 KB
subtask3_7.txt 1674 ms 58524 KB
subtask3_8.txt 1642 ms 56092 KB
subtask3_9.txt 1652 ms 56096 KB