Submission #2214285

Source Code Expand

f :: Integer -> Integer
f x
    | x == 0 = 0
    | x `mod` 2 == 0 = 1 + f (x `div` 2)
    | otherwise = 0

main :: IO ()
main = do
    getLine
    a <- map read . words <$> getLine
    print $ minimum $ map f a

Submission Info

Submission Time
Task ABC081B - Shift only
User jbyxm
Language Haskell (GHC 7.10.3)
Score 200
Code Size 220 Byte
Status AC
Exec Time 3 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 sample1.txt, sample2.txt, sample3.txt
All sample1.txt, sample2.txt, sample3.txt, 1.txt, 2.txt, 3.txt, 4.txt, 5.txt, 6.txt, 7.txt, sample1.txt, sample2.txt, sample3.txt
Case Name Status Exec Time Memory
1.txt AC 1 ms 508 KB
2.txt AC 2 ms 636 KB
3.txt AC 3 ms 1020 KB
4.txt AC 3 ms 1020 KB
5.txt AC 3 ms 1020 KB
6.txt AC 3 ms 1020 KB
7.txt AC 3 ms 1020 KB
sample1.txt AC 1 ms 508 KB
sample2.txt AC 1 ms 508 KB
sample3.txt AC 1 ms 508 KB