fork download
copy 
  1. : "u" ( u-au) 0 <# #s #> ;
  2. : type+ ( uau-u) tuck type + ;
  3. : dofizz ( uu-) do 9 0 ( width written )
  4.   i 3 mod 0= if s" fizz" type+ then
  5.   i 5 mod 0= if s" buzz" type+ then
  6.   dup 0= if i "u" type+ then 
  7.   - spaces loop ;
  8. 31 1 dofizz
  9.  
Success #stdin #stdout 0.01s 5284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1        2        fizz     4        buzz     fizz     7        8        fizz     buzz     11       fizz     13       14       fizzbuzz 16       17       fizz     19       buzz     fizz     22       23       fizz     buzz     26       fizz     28       29       fizzbuzz
https://ideone.com/Z4MCG6
language:
Forth (gforth 0.7.3)
created:
9 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!