Submission #154669


Source Code Expand

import           Control.Applicative
import           Control.Monad
import qualified Data.ByteString.Char8 as S
import           Data.List
import           Data.Maybe

-- util

getInts :: IO [Int]
getInts = catMaybes . map (fmap fst . S.readInt) . S.words <$> S.getLine

getInt :: IO Int
getInt = fst . fromJust . S.readInt <$> S.getLine

-- main

main :: IO ()
main = do
  n <- getInt
  putStrLn $ if n `mod` 3 == 0 || '3' `elem` show n then "YES" else "NO"
  return ()

Submission Info

Submission Time
Task A - 世界のFizzBuzz
User tanakh
Language Haskell (GHC 7.4.1)
Score 100
Code Size 492 Byte
Status AC
Exec Time 279 ms
Memory 1432 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 9
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 AC 279 ms 1264 KB
sample_02.txt AC 32 ms 1388 KB
sample_03.txt AC 32 ms 1300 KB
test_1.txt AC 30 ms 1432 KB
test_2.txt AC 38 ms 1308 KB
test_3.txt AC 28 ms 1428 KB
test_4.txt AC 30 ms 1308 KB
test_5.txt AC 27 ms 1312 KB
test_6.txt AC 31 ms 1304 KB
test_7.txt AC 28 ms 1312 KB
test_8.txt AC 28 ms 1300 KB
test_9.txt AC 28 ms 1356 KB