summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorMatthew Hall <hallmatthew314@gmail.com>2023-02-18 17:19:09 +1300
committerMatthew Hall <hallmatthew314@gmail.com>2023-02-18 17:19:09 +1300
commit28ab4a097fb73a138850a3fb7f6e480765c702ee (patch)
tree2521dcbff013b670caec4b5b8de0eac8a0f150cc /examples
parent8c33b3d2c69b6800ca34155d62c000250980e47e (diff)
Add STRCAT, update fizzbuzz
Diffstat (limited to 'examples')
-rw-r--r--examples/fizzbuzz.dumb13
1 files changed, 4 insertions, 9 deletions
diff --git a/examples/fizzbuzz.dumb b/examples/fizzbuzz.dumb
index 692402a..43b4d82 100644
--- a/examples/fizzbuzz.dumb
+++ b/examples/fizzbuzz.dumb
@@ -1,13 +1,8 @@
1
WHILE 100 OVER <= DO
- 3 OVER %
- OVER 5 SWAP %
- IF 0 ==
- DO
- IF 0 == DO "Fizzbuzz" ELSE "Buzz" END
- ELSE
- IF 0 == DO "Fizz" ELSE DUP END
- END
- . 1 +
+ 5 OVER % IF 0 == DO "Buzz" ELSE "" END
+ OVER 3 SWAP % IF 0 == DO "Fizz" ELSE "" END
+ ++ OVER SWAP IF DUP "" == DO SWAP END
+ . DROP 1 +
END