2018-06-22 20:57:24 +00:00
|
|
|
USING: math kernel io math.functions math.parser math.ranges ;
|
2013-04-10 21:29:02 -07:00
|
|
|
IN: fizzbuzz
|
|
|
|
|
: fizz ( n -- str ) 3 divisor? "Fizz" "" ? ;
|
|
|
|
|
: buzz ( n -- str ) 5 divisor? "Buzz" "" ? ;
|
|
|
|
|
: fizzbuzz ( n -- str ) dup [ fizz ] [ buzz ] bi append [ number>string ] [ nip ] if-empty ;
|
|
|
|
|
: main ( -- ) 100 [1,b] [ fizzbuzz print ] each ;
|
|
|
|
|
MAIN: main
|
