General FizzBuzz: Difference between revisions
Content added Content deleted
No edit summary |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 519: | Line 519: | ||
{{Out}} |
{{Out}} |
||
<pre>1 |
<pre>1 |
||
2 |
|||
Fizz |
|||
4 |
|||
Buzz |
|||
Fizz |
|||
Baxx |
|||
8 |
|||
Fizz |
|||
Buzz |
|||
11 |
|||
Fizz |
|||
13 |
|||
Baxx |
|||
FizzBuzz |
|||
16 |
|||
17 |
|||
Fizz |
|||
19 |
|||
Buzz</pre> |
|||
=={{header|Arturo}}== |
|||
<lang rebol>maxNum: to :integer strip input "Set maximum number: " |
|||
facts: map 1..3 'x -> split.words strip input ~"Enter factor |x|: " |
|||
loop 1..maxNum 'i [ |
|||
printNum: true |
|||
loop facts 'fact -> |
|||
if zero? i % to :integer fact\0 [ |
|||
prints fact\1 |
|||
printNum: false |
|||
] |
|||
print (printNum)? -> i -> "" |
|||
]</lang> |
|||
{{out}} |
|||
<pre>Set maximum number: 20 |
|||
Enter factor 1: 3 Fizz |
|||
Enter factor 2: 5 Buzz |
|||
Enter factor 3: 7 Baxx |
|||
1 |
|||
2 |
2 |
||
Fizz |
Fizz |