8 lines
354 B
Text
8 lines
354 B
Text
: fizz? ( s-f ) 3 mod 0 = ;
|
|
: buzz? ( s-f ) 5 mod 0 = ;
|
|
: num? ( s-f ) dup fizz? swap buzz? or 0 = ;
|
|
: ?fizz ( s- ) fizz? [ "Fizz" puts ] ifTrue ;
|
|
: ?buzz ( s- ) buzz? [ "Buzz" puts ] ifTrue ;
|
|
: ?num ( s- ) num? &putn &drop if ;
|
|
: fizzbuzz ( s- ) dup ?fizz dup ?buzz dup ?num space ;
|
|
: all ( - ) 100 [ 1+ fizzbuzz ] iter ;
|