12 lines
199 B
Text
12 lines
199 B
Text
|
:- %say
|
||
|
|
|= [^ ~ ~]
|
||
|
|
:- %noun
|
||
|
|
%+ turn (gulf [1 101])
|
||
|
|
|= a=@
|
||
|
|
=+ q=[=(0 (mod a 3)) =(0 (mod a 5))]
|
||
|
|
?+ q <a>
|
||
|
|
[& &] "FizzBuzz"
|
||
|
|
[& |] "Fizz"
|
||
|
|
[| &] "Buzz"
|
||
|
|
==
|