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 |
|
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 |