11 lines
308 B
Text
11 lines
308 B
Text
:import std/Combinator .
|
|
:import std/String .
|
|
:import std/Number .
|
|
|
|
main [y [[0 =? (+101) case-end case-rec]] (+1)]
|
|
case-rec str ++ "\n" ++ (1 ++0)
|
|
str fizzbuzz "FizzBuzz" (fizz "Fizz" (buzz "Buzz" (number→string 0)))
|
|
fizz =?(0 % (+3))
|
|
buzz =?(0 % (+5))
|
|
fizzbuzz fizz buzz fizz
|
|
case-end empty
|