update fib function

linsyking · Apr 4, 2023 · c32a812 · c32a812
1 parent f3f97bb
commit c32a812
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/examples/syn.cat b/examples/syn.cat
@@ -25,3 +25,4 @@ num x = ! if eq len x "S0" spack digit x cat cat cat cat cat cat cat `add mul "`
 spack x = cat cat `"` x `"`
 leq x y = in x y
 show x = ! if leq len x digit "9" spack revdigit x cat cat cat cat `cat show "` let "SSSSSSSSSS" "S" sub x let "SSSSSSSSSS" "" x `" revdigit "` let "SSSSSSSSSS" "" x `"`
+fib x = if eq x zero zero ! if leq x num "2" spack num "1" "add fib pred x fib pred pred x"
diff --git a/examples/syn.meow b/examples/syn.meow
@@ -193,3 +193,15 @@ show(x) {
     };
     !(if(leq(len(x), digit("9")), spack(revdigit(x)) , `cat show "` + rem + `" revdigit "` + la + `"`))
 }
+
+fib(x) {
+    if(
+        eq(x, zero()),
+        zero(),
+        !(if(
+            leq(x, num("2")),
+            spack(num("1")),
+            `add fib pred x fib pred pred x`
+        ))
+    )
+}