! Copyright (c) 2012 Anonymous ! See http://factorcode.org/license.txt for BSD license. USING: io kernel math math.functions math.parser math.ranges sequences ; IN: rosetta-code.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 ; : fizzbuzz-main ( -- ) 100 [1,b] [ fizzbuzz print ] each ; MAIN: fizzbuzz-main