Submission #154777

---

Source Code Expand

import Data.List
import Data.Char
import Data.Maybe
import Data.Tuple
import Debug.Trace
import Data.Array
import Data.Array.IO
import Control.Monad
import Control.Applicative
import Control.Arrow
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as M
import Text.Printf

-- readInts = map read . words <$> getLine
-- readBInt = fst . fromJust . B.readInt
-- readBInts = map readBInt . B.words <$> B.getLine

(|>) x f = f x; infixl 1 |>

debug x = trace ("# " ++ show x) x

main :: IO ()
main = do
    s <- getLine
    let n = read s :: Int
    putStrLn $ if elem '3' s || mod n 3 == 0 then "YES" else "NO"

Submission Info

Judge Result