Search the Community

This thread is intended to document my progress and small epiphanies as I learn this strange and wonderful language. So I'm following this tutorial: https://en.wikibooks.org/wiki/Yet_Another_Haskell_Tutorial which has been awesome so far I came across the following exercise: And I solved it! I know. I know. Big whoop. It's great for me as someone who started out as a non-math type. The solution I came up with isn't exactly like the official solution though, but it seems to work.

Hi! I've been diving into functional programming lately. Really neat stuff! So here is my first Haskell program (worthy of being called a program?) fizz :: Int -> Bool fizz x = if x `mod` 3 == 0 then True else False buzz :: Int -> Bool buzz x = if x `mod` 5 == 0 then True else False fizzbuzz = [if x `mod` 15 == 0 then "FizzBuzz" else if fizz x then "Fizz" else if buzz x then "Buzz" else show x | x <- [1..100]] This program is the FizzBuzz program described here: http://www.codinghorror.com/blog/2007/02/why-cant-programmers-program.html Second version with the guidance of a post from that page I linked: fizz :: Int -> Bool fizz x = if mod x 3 == 0 then True else False buzz :: Int -> Bool buzz x = if mod x 5 == 0 then True else False fizzbuzz :: Int -> [Char] fizzbuzz x | mod x 15 == 0 = "FizzBuzz" | fizz x = "Fizz" | buzz x = "Buzz" fizzbuzz x = show x To run: map fizzbuzz [1 .. 100]