fork download 
  1. main = mapM_ putStrLn $ zipWith3 zipper (replicate (div 100 3) ["", "", "Fizz"] >>= id) (replicate (div 100 5) ["", "", "", "", "Bazz"] >>= id) (map show [1..100]) where
  2.    zipper "" "" i = i
  3.    zipper f b _ = f++b
Success #stdin #stdout 0.01s 3592KB
comments (?)
stdin 
Standard input is empty
stdout 
1
2
Fizz
4
Bazz
Fizz
7
8
Fizz
Bazz
11
Fizz
13
14
FizzBazz
16
17
Fizz
19
Bazz
Fizz
22
23
Fizz
Bazz
26
Fizz
28
29
FizzBazz
31
32
Fizz
34
Bazz
Fizz
37
38
Fizz
Bazz
41
Fizz
43
44
FizzBazz
46
47
Fizz
49
Bazz
Fizz
52
53
Fizz
Bazz
56
Fizz
58
59
FizzBazz
61
62
Fizz
64
Bazz
Fizz
67
68
Fizz
Bazz
71
Fizz
73
74
FizzBazz
76
77
Fizz
79
Bazz
Fizz
82
83
Fizz
Bazz
86
Fizz
88
89
FizzBazz
91
92
Fizz
94
Bazz
Fizz
97
98
Fizz
https://ideone.com/svzoq
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!