From 41e9b4d9ddd27065920ad8997dfd2bb640efe861 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sun, 20 Mar 2022 20:15:43 -0400 Subject: [PATCH] Some light speed testing: Ludus is 1000x slower than Clojure. --- src/ludus/interpreter.clj | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/ludus/interpreter.clj b/src/ludus/interpreter.clj index 796e2e0..17b8eff 100644 --- a/src/ludus/interpreter.clj +++ b/src/ludus/interpreter.clj @@ -253,7 +253,7 @@ (n) -> mult (n, fact (sub (n, 1))) } - fact (6) + fib (1) ") @@ -278,6 +278,16 @@ ") +(defn fib [n] + (case n + 0 1 + + 1 1 + + (+ (fib (- n 1)) (fib (- n 2))))) + +(fib 35) +