CREATE : FizzBuzz
​

​Tom Scott has a great video about the FizzBuzz interview question used by Google and others. 

The programming problem is to print out numbers within a loop, except if the number is divisible by 3 then print "Fizz" and if it's divisible by 5 print "Buzz". And if it's divisible by both, print "FizzBuzz". Sounds easy, but it requires a little thought. ​

Here's our solution in Forth:

: fizz  ( n -- rem , divisible by 3? )
   3 mod
   dup 0= if 
      ." Fizz" 
   then
;

: buzz  ( n -- rem , divisible by 5? )
   5 mod
   dup 0= if 
      ." Buzz" 
   then
;

: fizzbuzz ( n -- , fizzbuzz )
  dup
  for
    cr
    dup i -
    dup fizz
    over buzz
    * if        \ if neither remainders are 0, print number
      . else drop
    then 
  next 
  drop
;

To test it:

20 fizzbuzz
​100 fizzbuzz

How long does it take to run on a Scamp?

ticks 100 fizzbuzz ticks - abs .

gives a result of 15 ms.

​In comparison, Fizzbuzz solutions in python, running on a PC, have been benchmarked between 200 ms and 400 ms. 

---