From 28ab4a097fb73a138850a3fb7f6e480765c702ee Mon Sep 17 00:00:00 2001
From: Matthew Hall <hallmatthew314@gmail.com>
Date: Sat, 18 Feb 2023 17:19:09 +1300
Subject: Add STRCAT, update fizzbuzz

---
 examples/fizzbuzz.dumb | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

(limited to 'examples/fizzbuzz.dumb')

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
 
-- 
cgit v1.2.1