Submission #155935

Source Code Expand

main = do
  num <- getLine
  putStrLn (ans (threeOrInThree (read num)))

threeOrInThree :: Int -> Bool 
threeOrInThree 3 = True
threeOrInThree 6 = True
threeOrInThree 9 = True
threeOrInThree otherwise = False

ans :: Bool -> String
ans True = "YES"
ans False = "No"

Submission Info

Submission Time
Task A - 世界のFizzBuzz
User iyahoo
Language Haskell (GHC 7.4.1)
Score 0
Code Size 279 Byte
Status WA
Exec Time 323 ms
Memory 1440 KB

Judge Result

Set Name All
Score / Max Score 0 / 100
Status
AC × 3
WA × 6
Set Name Test Cases
All test_1.txt, test_2.txt, test_3.txt, test_4.txt, test_5.txt, test_6.txt, test_7.txt, test_8.txt, test_9.txt
Case Name Status Exec Time Memory
sample_01.txt WA 323 ms 1304 KB
sample_02.txt AC 29 ms 1440 KB
sample_03.txt AC 27 ms 1392 KB
test_1.txt WA 27 ms 1312 KB
test_2.txt WA 27 ms 1308 KB
test_3.txt AC 31 ms 1304 KB
test_4.txt WA 27 ms 1384 KB
test_5.txt WA 27 ms 1392 KB
test_6.txt AC 29 ms 1300 KB
test_7.txt WA 28 ms 1368 KB
test_8.txt WA 27 ms 1304 KB
test_9.txt AC 27 ms 1308 KB