fork download
copy 
  1. main = mapM_ putStrLn fizzBuzz
  2.   where fizzBuzz = map (fizzBuzzStep buzzList) [1..100]
  3.         fizzBuzzStep l x = case buzzer x l of
  4.                               [] -> show x
  5.                               sl  -> concat sl
  6.         buzzer x = map snd . filter ((0==) . mod x . fst)
  7.         buzzList = [(2,"Fuzz"),(3,"Fizz"),(5,"Buzz"),(7,"Bizz")]
Success #stdin #stdout 0.02s 3596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
Fuzz
Fizz
Fuzz
Buzz
FuzzFizz
Bizz
Fuzz
Fizz
FuzzBuzz
11
FuzzFizz
13
FuzzBizz
FizzBuzz
Fuzz
17
FuzzFizz
19
FuzzBuzz
FizzBizz
Fuzz
23
FuzzFizz
Buzz
Fuzz
Fizz
FuzzBizz
29
FuzzFizzBuzz
31
Fuzz
Fizz
Fuzz
BuzzBizz
FuzzFizz
37
Fuzz
Fizz
FuzzBuzz
41
FuzzFizzBizz
43
Fuzz
FizzBuzz
Fuzz
47
FuzzFizz
Bizz
FuzzBuzz
Fizz
Fuzz
53
FuzzFizz
Buzz
FuzzBizz
Fizz
Fuzz
59
FuzzFizzBuzz
61
Fuzz
FizzBizz
Fuzz
Buzz
FuzzFizz
67
Fuzz
Fizz
FuzzBuzzBizz
71
FuzzFizz
73
Fuzz
FizzBuzz
Fuzz
Bizz
FuzzFizz
79
FuzzBuzz
Fizz
Fuzz
83
FuzzFizzBizz
Buzz
Fuzz
Fizz
Fuzz
89
FuzzFizzBuzz
Bizz
Fuzz
Fizz
Fuzz
Buzz
FuzzFizz
97
FuzzBizz
Fizz
FuzzBuzz
https://ideone.com/qYFu8
language:
Haskell (ghc 8.4.4)
created:
13 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!