Arcade Wise
10/13/2023, 1:32 PM: fizzBuzz? ( n -- ) "" swap ( str n -- )
( str n n ) dup 3 % 0 = ( str n ) if swap ( n str ) "Fizz" concat ( n strFizz ) swap then
( str n n ) dup 5 % 0 = ( str n ) if swap ( n str ) "Buzz" concat ( n strFizz ) swap then
concat .
;
1 100 do i fizzBuzz? loop
I have been working on a forth implementation, and this fully works now! I'm super excited to show the cooler stuff that goes along with it too :>Andrew F
10/21/2023, 6:40 AM