Concatenative topics
Concatenative meta
Other languages
Meta
Print the first 30 numbers using the following rules:
n
is divisible by 3, print "fizz"n
is divisible by 5, print "buzz"n
is divisible by both, print "fizzbuzz": fizzify ( sbuf m n string -- ) [ divisor? ] dip '[ _ append! ] when drop ; : fizzbuzz* ( n -- ) 0 <sbuf> swap { [ 3 "fizz" fizzify ] [ 5 "buzz" fizzify ] [ '[ _ >dec ] when-empty print ] } 2cleave ; : fizzbuzz ( n -- ) [1..b] [ fizzbuzz* ] each ;
This revision created on Fri, 8 Mar 2024 18:39:14 by CapitalEx (Add FizzBuzz Example)