Submission #229773

Source Code Expand

import Data.Bits
import Control.Applicative

solve n price = sum . map (price !!) . filter (testBit n) $ [0..length price - 1]

main = do
		[n,x] <- map read . words <$> getLine :: IO [Int]
		a <- map read . words <$> getLine
		print $ solve x a

Submission Info

Submission Time
Task B - 価格の合計
User C01L
Language Haskell (GHC 7.4.1)
Score 100
Code Size 255 Byte
Status AC
Exec Time 31 ms
Memory 1436 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 1432 KB
subtask0_sample02.txt AC 31 ms 1432 KB
subtask0_sample03.txt AC 29 ms 1424 KB
subtask1_01.txt AC 29 ms 1244 KB
subtask1_02.txt AC 29 ms 1244 KB
subtask1_03.txt AC 29 ms 1308 KB
subtask1_04.txt AC 29 ms 1432 KB
subtask1_05.txt AC 29 ms 1312 KB
subtask1_06.txt AC 29 ms 1436 KB
subtask1_07.txt AC 30 ms 1364 KB
subtask1_08.txt AC 29 ms 1396 KB
subtask1_09.txt AC 28 ms 1312 KB
subtask1_10.txt AC 30 ms 1376 KB
subtask1_11.txt AC 29 ms 1360 KB
subtask1_12.txt AC 27 ms 1300 KB
subtask1_13.txt AC 28 ms 1308 KB
subtask1_14.txt AC 29 ms 1436 KB
subtask1_15.txt AC 29 ms 1372 KB
subtask1_16.txt AC 28 ms 1308 KB
subtask1_17.txt AC 31 ms 1368 KB