Paste: Better fizzbuzz
Author: | Dan Lucraft |
Mode: | factor |
Date: | Wed, 30 Sep 2009 20:56:45 |
Plain Text |
USING: math.ranges math sequences prettyprint kernel ;
IN: fizz-buzz;
: divides? dupd mod 0 = ;
: output
[ [ "FizzBuzz" ] [ "Fizz" ] if ]
[ [ "Buzz" ] [ dup ] if ]
if ;
: fizz-buzz
[a,b] [ 5 divides? swap 3 divides? swapd output . drop ] each ;
1 10 fizz-buzz
Author: | me |
Mode: | factor |
Date: | Thu, 17 Dec 2009 19:09:07 |
Plain Text |
: divides mod zero? ;
: divides-5-or-3
[ 5 divides? ] [ 3 divides? ] bi ;
: output
[ "Fizz" write ] when
[ "Buzz" write ] when
[ drop ] [ number>string write ] if
"\n" write ;
: fizzbuzz
100 [1,b] [ dup divides-5-or-3 [ or ] 2keep output ] each ;
New Annotation