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
AC × 3
AC × 20
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