15 lines
376 B
Text
15 lines
376 B
Text
fizzbuzz_rec =>
|
|
print(fizzbuzz_rec),
|
|
fb5(100,[],L),
|
|
println(L).
|
|
|
|
fb5(N,L1,L), N = 0 ?=>
|
|
L = L1.reverse().
|
|
fb5(N,L1,L),N mod 15 == 0 ?=>
|
|
fb5(N-1,L1 ++ ["FizzBuzz"], L).
|
|
fb5(N,L1,L), N mod 5 == 0 ?=>
|
|
fb5(N-1,L1 ++ ["Buzz"], L).
|
|
fb5(N,L1,L), N mod 3 == 0 ?=>
|
|
fb5(N-1,L1 ++ ["Fizz"], L).
|
|
fb5(N,L1,L), N mod 3 > 0, N mod 5 > 0 =>
|
|
fb5(N-1,L1 ++ [N.to_string()], L).
|