18 lines
462 B
Factor
18 lines
462 B
Factor
! 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
|