added examples (fib,69420/fizzbuzz)

2025-09-07 18:36:59 +01:00
parent ab2cba643d
commit c323e84a00
3 changed files with 70 additions and 0 deletions
--- a/examples/69420.zorth
+++ b/examples/69420.zorth
@@ -0,0 +1,25 @@
+: over swap dup rot rot ;
+: mod over over / * - ;
+
+1
+
+begin
+  dup 50<
+while
+  dup 15 mod 0 = if
+    69420 .
+  else
+    dup 3 mod 0 = if
+      69 .
+    else
+      dup 3 mod 0 = if
+        420 .
+      else
+        dup .
+      fi 
+    fi
+  fi
+  1+
+repeat
+
+ret