Submission #230949
Source Code Expand
import Control.Applicative main :: IO () main = do [_, x] <- getInts a <- getInts putStrLn $ show $ solve x a solve :: Int -> [Int] -> Int solve _ [] = 0 solve x (a:ax) | (x `mod` 2 == 1) = a + left | otherwise = left where left = solve (x `div` 2) ax getInts :: IO [Int] getInts = map read <$> words <$> getLine
Submission Info
Submission Time | |
---|---|
Task | B - 価格の合計 |
User | hamadu |
Language | Haskell (GHC 7.4.1) |
Score | 100 |
Code Size | 368 Byte |
Status | AC |
Exec Time | 31 ms |
Memory | 1440 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 100 / 100 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt |
All | subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.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 |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
subtask0_sample01.txt | AC | 29 ms | 1308 KB |
subtask0_sample02.txt | AC | 29 ms | 1436 KB |
subtask0_sample03.txt | AC | 28 ms | 1384 KB |
subtask1_01.txt | AC | 27 ms | 1432 KB |
subtask1_02.txt | AC | 27 ms | 1324 KB |
subtask1_03.txt | AC | 31 ms | 1392 KB |
subtask1_04.txt | AC | 28 ms | 1324 KB |
subtask1_05.txt | AC | 28 ms | 1376 KB |
subtask1_06.txt | AC | 28 ms | 1440 KB |
subtask1_07.txt | AC | 28 ms | 1440 KB |
subtask1_08.txt | AC | 27 ms | 1396 KB |
subtask1_09.txt | AC | 27 ms | 1432 KB |
subtask1_10.txt | AC | 30 ms | 1308 KB |
subtask1_11.txt | AC | 28 ms | 1304 KB |
subtask1_12.txt | AC | 28 ms | 1432 KB |
subtask1_13.txt | AC | 27 ms | 1312 KB |
subtask1_14.txt | AC | 27 ms | 1440 KB |
subtask1_15.txt | AC | 28 ms | 1428 KB |
subtask1_16.txt | AC | 26 ms | 1368 KB |
subtask1_17.txt | AC | 28 ms | 1360 KB |