enhancing the Math:fibo function to hide the accumulators

Author: SuperFola

Math.ark

@@ -53,12 +53,12 @@
 # =begin
 # (math:fibo 45 0 1)
 # =end
-(let math:fibo (fun (n p c) {
-    (if (<= n 0)
-        0
-        (if (= n 1)
-            c
-            (math:fibo (- n 1) c (+ p c))))}))
+(let math:fibo (fun (n) {
+    (let impl (fun (n p c)
+        (if (<= n 0) 0
+            (if (= n 1) c
+                (impl (- n 1) c (+ p c))))))
+    (impl n 0 1)}))
 
 # @brief Returns the list of a number's divisors
 # @param n the number

tests/math-tests.ark

@@ -21,9 +21,9 @@
     (set tests (assert-eq (math:pow 2 2) 4 "math:pow" tests))
     (set tests (assert-eq (math:pow 4 0.5) 2 "math:pow" tests))
     # small trick with toNumber because we have number's approximation because of the underlying double
-    (set tests (assert-eq (math:fibo 31 0 1) (toNumber "1346269") "math:fibo" tests))
+    (set tests (assert-eq (math:fibo 31) (toNumber "1346269") "math:fibo" tests))
     # small trick with toNumber because we have number's approximation because of the underlying double
-    (set tests (assert-eq (math:fibo 32 0 1) (toNumber "2178309") "math:fibo" tests))
+    (set tests (assert-eq (math:fibo 32) (toNumber "2178309") "math:fibo" tests))
     (set tests (assert-eq (math:divs 6) [1 2 3 6] "math:divs" tests))
     (set tests (assert-eq (math:divs 2) [1 2] "math:divs" tests))
     (set tests (assert-eq (math:divs 931) [1 7 19 49 133 931] "math:divs" tests))