Mercurial > hg > toys

changeset 18:95ba61c40f5b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add fizzbuzz.hs
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Mon, 24 Nov 2014 10:44:24 -0500
parents 2b5230f69ebf
children 060e561c973a
files haskell/fizzbuzz.hs
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
new file mode 100755
--- /dev/null
+++ b/haskell/fizzbuzz.hs
@@ -0,0 +1,10 @@
+fizzbuzz :: Integer -> String
+fizzbuzz x 
+  | (x `mod` 15 == 0) = "FizzBuzz!"
+  | (x `mod` 5 == 0) = "Fizz!"
+  | (x `mod` 3 == 0) = "Buzz!"
+  | otherwise = show x
+
+main = do
+  mapM_ (putStrLn.fizzbuzz) [1..100]
+  
\ No newline at end of file