fork download
copy 
  1.  
  2. : Fizz?  ( n -- b )
  3.   3 mod 0= dup if ." Fizz" then
  4. ;
  5.  
  6. : Buzz?  ( n -- b )
  7.   5 mod 0= dup if ." Buzz" then
  8. ;
  9.  
  10. : main ( -- )
  11.   101 1 do
  12.   i Fizz? i Buzz? or invert if i . then cr loop
  13. ;
  14.  
  15. main
  16.  
Success #stdin #stdout 0.02s 7504KB
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
31 
32 
Fizz
34 
Buzz
Fizz
37 
38 
Fizz
Buzz
41 
Fizz
43 
44 
FizzBuzz
46 
47 
Fizz
49 
Buzz
Fizz
52 
53 
Fizz
Buzz
56 
Fizz
58 
59 
FizzBuzz
61 
62 
Fizz
64 
Buzz
Fizz
67 
68 
Fizz
Buzz
71 
Fizz
73 
74 
FizzBuzz
76 
77 
Fizz
79 
Buzz
Fizz
82 
83 
Fizz
Buzz
86 
Fizz
88 
89 
FizzBuzz
91 
92 
Fizz
94 
Buzz
Fizz
97 
98 
Fizz
Buzz
https://ideone.com/SMdZX
language:
Forth (gforth 0.7.3)
created:
13 years 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!