fork download
copy 
  1. data Context = Context (Int -> Bool) (Int -> String) Context | None
  2.  
  3. mod' a b = mod b a == 0
  4. none' b _ = b
  5.  
  6. main = let c1 = Context (mod' 3) (none' "Fizz") $ c2
  7.            c2 = Context (mod' 5) (none' "Bazz") None
  8.            c3 = Context (none' True) show None
  9.        in mapM_ (putStrLn . run [c1, c2, c3]) [1..100] where
  10.            run (Context f g n : cs) i = if f i then g i ++ run [n] i else run cs i
  11.            run _ _ = ""
Success #stdin #stdout 0.02s 3580KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
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
Bazz
https://ideone.com/fGeVv
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!