FizzBuzz/Basic: Difference between revisions
Content added Content deleted
No edit summary |
(Add BaCon) |
||
Line 11: | Line 11: | ||
80 NEXT A |
80 NEXT A |
||
</lang> |
</lang> |
||
=={{header|BaCon}}== |
|||
<lang freebasic>' FizzBuzz |
|||
FOR i = 1 TO 100 |
|||
msg$ = IIF$(MOD(i, 3) = 0, "Fizz", "") |
|||
msg$ = msg$ & IIF$(MOD(i, 5) = 0, "Buzz", "") |
|||
PRINT IIF$(msg$ = "", STR$(i), msg$), " "; |
|||
NEXT |
|||
PRINT</lang> |
|||
{{out}} |
|||
<pre>prompt$ bacon fizzbuzz.bac |
|||
Converting 'fizzbuzz.bac'... done, 7 lines were processed in 0.003 seconds. |
|||
Compiling 'fizzbuzz.bac'... cc -c fizzbuzz.bac.c |
|||
cc -o fizzbuzz fizzbuzz.bac.o -lbacon -lm |
|||
Done, program 'fizzbuzz' ready. |
|||
prompt$ ./fizzbuzz | fold -w 72 -s |
|||
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</pre> |
|||
=={{header|BASIC}}== |
=={{header|BASIC}}== |