3 lines
305 B
Text
3 lines
305 B
Text
[\[^^>][$;,1+]#%%]⇒P {define operator P: print stored string}
|
|
[$$3/%$[][0$"Fizz"P]?\5/%$[][0$"Buzz"P]?*[$.][]?10,]c: {define function c: mod 3, mod 5 tests, print according output}
|
|
0[$100<][1+c;!]# {loop from 1 to 100}
|