Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Anonymous-recursion/Klingphix/anonymous-recursion.klingphix
+++ b/Task/Anonymous-recursion/Klingphix/anonymous-recursion.klingphix
@ -0,0 +1,22 @@
+include ..\Utilitys.tlhy
+
+
+:fib %f !f
+    %fr
+    [ %n !n
+        $n 2 <
+        ( [$n]
+          [$n 1 - $fr eval $n 2 - $fr eval +] )
+        if
+    ] !fr
+
+    $f 0 <
+    ( ["Error: number is negative"]
+      [$f true $fr if] )
+    if
+;
+
+
+25 fib ?
+msec ?
+"End " input