19 lines
310 B
Text
19 lines
310 B
Text
#load("std.grr")
|
|
|
|
def fizzbuzz? { [3 % 0 =] [5 % 0 =] bi or }
|
|
def fizz { when: 3 % 0 = ["Fizz" print]; }
|
|
def buzz { when: 5 % 0 = ["Buzz" print]; }
|
|
|
|
def fizzbuzz1 {
|
|
if: fizzbuzz?
|
|
[ [fizz] keep buzz nl ]
|
|
[ . ];
|
|
}
|
|
|
|
def fizzbuzz {
|
|
0 swap times:
|
|
[ 1 + dup [fizzbuzz1] keep ];
|
|
drop
|
|
}
|
|
|
|
30 fizzbuzz
|