added more examples, project euler

2025-09-15 18:54:31 +01:00
parent 66d257bf83
commit 3f0d61f466
5 changed files with 79 additions and 9 deletions
--- a/examples/euler-2.zorth
+++ b/examples/euler-2.zorth
@@ -0,0 +1,14 @@
+: over swap dup rot rot ;
+: rem over over / * - ;
+
+1 2 
+begin
+  over 4000000 < 
+while
+  over 2 rem 0 = if
+    over mem @ + mem swap !
+  else fi
+  dup rot +
+repeat
+
+mem @ .