[ create a new paste ] login | about

Link: http://codepad.org/WGZLsmBW    [ raw code | output | fork ]

azumih - Haskell, pasted on Apr 13:
1
2
3
4
5
6
7
8
9
output x | x3 && x5  = "FizzBuzz"
         | x3        = "Fizz"
         | x5        = "Buzz"
         | otherwise = show x
         where 
           x3 = x `mod` 3 == 0 
           x5 = x `mod` 5 == 0 
                     
main = print $ map output [1..100]


Output:
1
["1","2","Fizz","4","Buzz","Fizz","7","8","Fizz","Buzz","11","Fizz","13","14","FizzBuzz","16","17","Fizz","19","Buzz","Fizz","22","23","Fizz","Buzz","26","Fizz","28","29","FizzBuzz","31","32","Fizz","34","Buzz","Fizz","37","38","Fizz","Buzz","41","Fizz","43","44","FizzBuzz","46","47","Fizz","49","Buzz","Fizz","52","53","Fizz","Buzz","56","Fizz","58","59","FizzBuzz","61","62","Fizz","64","Buzz","Fizz","67","68","Fizz","Buzz","71","Fizz","73","74","FizzBuzz","76","77","Fizz","79","Buzz","Fizz","82","83","Fizz","Buzz","86","Fizz","88","89","FizzBuzz","91","92","Fizz","94","Buzz","Fizz","97","98","Fizz","Buzz"]


Create a new paste based on this one


Comments: