diff options
Diffstat (limited to 'examples/fizzbuzz.dumb')
| -rw-r--r-- | examples/fizzbuzz.dumb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/examples/fizzbuzz.dumb b/examples/fizzbuzz.dumb index 43b4d82..2ba6033 100644 --- a/examples/fizzbuzz.dumb +++ b/examples/fizzbuzz.dumb @@ -1,8 +1,14 @@ +''' bottom of the stack is the incrementing value, starts at 1 ''' 1 +''' while the incrementing value is <= 100 ''' WHILE 100 OVER <= DO + ''' push string "Buzz" if inc. is divisible by 5, else an empty string ''' 5 OVER % IF 0 == DO "Buzz" ELSE "" END + ''' push string "Fizz" if inc. is divisible by 3, else an empty string ''' OVER 3 SWAP % IF 0 == DO "Fizz" ELSE "" END + ''' concat the two strings and copy the inc., if the string is empty, swap them ''' ++ OVER SWAP IF DUP "" == DO SWAP END + ''' print the top of the stack, drop the next item, add 1 to inc. ''' . DROP 1 + END |