Added new slow test

Melchizedek6809 · Apr 26, 2024 · 3126755 · 3126755
1 parent 7e9a151
commit 3126755
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/tests/slow/recfib.nuj b/tests/slow/recfib.nuj
@@ -0,0 +1,11 @@
+#!/usr/bin/env nujel
+
+(defn fib (n)
+      (cond ((zero? n) 0)
+            ((= 1 n) 1)
+            (#t (+ (fib (- n 1)) (fib (- n 2))))))
+
+(def res (fib 36))
+(when-not (= res 14930352)
+          (throw (list :wrong-result "Wrong result" res)))
+:success