Submission #1074341

Source Code Expand

solve :: Int -> [[Int]] -> Int
solve n [] = n
solve n ([a,b]:xs)
  | f a b /= 0 = solve (n + b - f a b) xs
  | otherwise =	solve n xs
    where f a b = mod (a+n) b

main = getContents >>= print . solve 0 . map (map read . words) . reverse . tail . lines

Submission Info

Submission Time
Task A - Multiple Array
User sato
Language Haskell (GHC 7.10.3)
Score 300
Code Size 262 Byte
Status AC
Exec Time 1280 ms
Memory 78204 KiB

Compile Error

Main.hs:5:16: Warning: Tab character

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 2
AC × 18
Set Name Test Cases
Sample s1.txt, s2.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, s1.txt, s2.txt
Case Name Status Exec Time Memory
01.txt AC 1233 ms 78076 KiB
02.txt AC 1232 ms 78076 KiB
03.txt AC 1233 ms 78076 KiB
04.txt AC 1231 ms 78204 KiB
05.txt AC 1232 ms 78204 KiB
06.txt AC 1232 ms 78204 KiB
07.txt AC 916 ms 40316 KiB
08.txt AC 1261 ms 78076 KiB
09.txt AC 924 ms 40316 KiB
10.txt AC 1258 ms 78204 KiB
11.txt AC 929 ms 40188 KiB
12.txt AC 622 ms 19836 KiB
13.txt AC 932 ms 40316 KiB
14.txt AC 1280 ms 78076 KiB
15.txt AC 3 ms 380 KiB
16.txt AC 3 ms 508 KiB
s1.txt AC 3 ms 508 KiB
s2.txt AC 3 ms 508 KiB