Skip to content

Instantly share code, notes, and snippets.

@aiya000

aiya000/FizzBuzz_mokkai.hs

Last active August 29, 2015 14:13
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save aiya000/6bceeede41d0382de921 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save aiya000/6bceeede41d0382de921 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
FizzBuzz_mokkai.hs
module Main where
import Control.Applicative ((<$>))
main :: IO ()
main = do
n <- readLn
putStrLn $ fizzbuzz n
fizzbuzz :: Int -> String
fizzbuzz n | n < 1 || 9 < n = "No"
| '3' `elem` show n = "Yes"
| n `mod` 3 == 0 = "Yes"
| otherwise = "No"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment