Submission #245547

Source Code Expand

main :: IO ()
main = getContents >>= putStrLn . solve . map read . lines

solve :: [Int] -> String
solve (n:ngs) = if go n 100 then "YES" else "NO"
  where go k r
          | k `elem` ngs = False
          | k == 0 = True
          | r == 0 = False
          | otherwise = or [ go (k - l) (r - 1) | l <- [3, 2, 1], 3 * (r - 1) + l >= k, (k - l) `notElem` ngs, k - l >= 0 ]

Submission Info

Submission Time
Task C - 123引き算
User itchyny
Language Haskell (GHC 7.4.1)
Score 0
Code Size 381 Byte
Status TLE
Exec Time 2035 ms
Memory 1948 KB

Judge Result

Set Name All
Score / Max Score 0 / 100
Status
AC × 27
TLE × 1
Set Name Test Cases
All test_143_142_141_140.txt, test_1_1_2_3.txt, test_1_2_3_4.txt, test_200_200_2_3.txt, test_231_77_78_80.txt, test_235_124_126_125.txt, test_253_45_47_48.txt, test_297_223_224_225.txt, test_297_294_292_290.txt, test_297_297_30_83.txt, test_297_3_43_72.txt, test_298_125_123_124.txt, test_298_293_295_291.txt, test_298_298_4_8.txt, test_298_36_72_98.txt, test_298_55_3_43.txt, test_298_92_91_295.txt, test_299_200_151_65.txt, test_299_240_35_154.txt, test_299_300_299_298.txt, test_299_33_242_151.txt, test_299_56_57_58.txt, test_299_66_132_198.txt, test_300_271_44_68.txt, test_300_299_298_296.txt, test_300_30_99_183.txt, test_300_4_5_6.txt, test_84_34_64_36.txt
Case Name Status Exec Time Memory
sample_01.txt AC 33 ms 1404 KB
sample_02.txt AC 34 ms 1440 KB
sample_03.txt AC 32 ms 1432 KB
test_143_142_141_140.txt AC 32 ms 1380 KB
test_1_1_2_3.txt AC 32 ms 1308 KB
test_1_2_3_4.txt AC 30 ms 1304 KB
test_200_200_2_3.txt AC 33 ms 1312 KB
test_231_77_78_80.txt AC 33 ms 1432 KB
test_235_124_126_125.txt TLE 2035 ms 1948 KB
test_253_45_47_48.txt AC 32 ms 1436 KB
test_297_223_224_225.txt AC 37 ms 1900 KB
test_297_294_292_290.txt AC 33 ms 1432 KB
test_297_297_30_83.txt AC 32 ms 1372 KB
test_297_3_43_72.txt AC 32 ms 1436 KB
test_298_125_123_124.txt AC 40 ms 1816 KB
test_298_293_295_291.txt AC 33 ms 1436 KB
test_298_298_4_8.txt AC 31 ms 1392 KB
test_298_36_72_98.txt AC 32 ms 1440 KB
test_298_55_3_43.txt AC 32 ms 1440 KB
test_298_92_91_295.txt AC 32 ms 1436 KB
test_299_200_151_65.txt AC 32 ms 1436 KB
test_299_240_35_154.txt AC 32 ms 1428 KB
test_299_300_299_298.txt AC 32 ms 1436 KB
test_299_33_242_151.txt AC 32 ms 1436 KB
test_299_56_57_58.txt AC 33 ms 1564 KB
test_299_66_132_198.txt AC 32 ms 1436 KB
test_300_271_44_68.txt AC 32 ms 1436 KB
test_300_299_298_296.txt AC 32 ms 1436 KB
test_300_30_99_183.txt AC 32 ms 1440 KB
test_300_4_5_6.txt AC 31 ms 1564 KB
test_84_34_64_36.txt AC 32 ms 1432 KB