TURING COMPLETE!

2025-09-09 18:58:26 +01:00
parent b84f5f5e53
commit e440585f90
3 changed files with 106 additions and 5 deletions
--- a/examples/69420.zorth
+++ b/examples/69420.zorth
@@ -1,20 +1,20 @@
 ( 69420 - a variation on FizzBuzz... but with 69 and 420 )

 : over swap dup rot rot ;
-: mod over over / * - ;
+: rem over over / * - ;

 1

 begin
  dup 50<
 while
-  dup 15 mod 0 = if
+  dup 15 rem 0 = if
    69420 .
  else
-    dup 3 mod 0 = if
+    dup 3 rem 0 = if
      69 .
    else
-      dup 3 mod 0 = if
+      dup 3 rem 0 = if
        420 .
      else
        dup .