7 lines
243 B
Text
7 lines
243 B
Text
|
needs math'
|
||
|
|
: <fizzbuzz>
|
||
|
|
[ 15 ^math'divisor? ] [ drop "FizzBuzz" puts ] when
|
||
|
|
[ 3 ^math'divisor? ] [ drop "Fizz" puts ] when
|
||
|
|
[ 5 ^math'divisor? ] [ drop "Buzz" puts ] when putn ;
|
||
|
|
: fizzbuzz cr 100 [ 1+ <fizzbuzz> space ] iter ;
|