Made recfib benchmark faster

Melchizedek6809 · Apr 25, 2024 · 26d191a · 26d191a
1 parent 2976d69
commit 26d191a
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 4 deletions.
diff --git a/benchmark/recfib/fib.nuj b/benchmark/recfib/fib.nuj
@@ -5,4 +5,4 @@
             ((= 1 n) 1)
             (#t (+ (fib (- n 1)) (fib (- n 2))))))
 
-(pfmtln "fib(40) is: {}\nGC Runs: {}" (fib 40) (garbage-collection-runs))
+(pfmtln "fib(30) is: {}\nGC Runs: {}" (fib 30) (garbage-collection-runs))
diff --git a/benchmark/recfib/fib.scm b/benchmark/recfib/fib.scm
@@ -3,6 +3,6 @@
             ((= 1 n) 1)
             (#t (+ (fib (- n 1)) (fib (- n 2))))))
 
-(display "fib(40) = ")
-(display (fib 40))
+(display "fib(30) = ")
+(display (fib 30))
 (display "\n")
diff --git a/nujel-benchmark.tmp b/nujel-benchmark.tmp
@@ -0,0 +1,2 @@
+Command terminated by signal 2
+#@(:user 6.22 :system 0.00 :elapsed "0:06.32" :cpu "98%" :text 0 :data 0 :max-resident 19380 :inputs 0 :outputs 0 :pagefaults-major 0 :pagefaults-minor 3909 :swaps 0)
diff --git a/tools/benchmark.nuj b/tools/benchmark.nuj
@@ -108,7 +108,7 @@
             ("crc32" "0936343A")
             ("compile-stdlib" "Image built")
             ("adler32" "E50BA232")
-            ("recfib" "102334155")
+            ("recfib" "832040")
             (otherwise "チーズスイートホーム")))
 
 (def time-template "#@(:user %U :system %S :elapsed \\\"%E\\\" :cpu \\\"%P\\\" :text %X :data %D :max-resident %M :inputs %I :outputs %O :pagefaults-major %F :pagefaults-minor %R :swaps %W)")