Made recfib benchmark faster

Melchizedek6809 · Apr 25, 2024 · 62e53fc · 62e53fc
1 parent 2976d69
commit 62e53fc
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 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/tools/benchmark-sync.nuj b/tools/benchmark-sync.nuj
@@ -1,5 +1,5 @@
 #!/usr/bin/env nujel
-(popen "rsync -avhe ssh web/benchmark-results/ wolkenwelten.net:/srv/http/nujel.net-performance/benchmark-results/")
+(popen "rsync -avhe ssh web/benchmark-results/ wolkenwelten.net:~/http/nujel.net/performance/benchmark-results/")
 (popen "rsync -avhe ssh wolkenwelten.net:~/http/nujel.net/performance/benchmark-results/ web/benchmark-results/")
 (popen "./tools/benchmark-aggregate.nuj")
-(popen "rsync -avhe ssh web/ wolkenwelten.net:~/http/nujel.net/performance/benchmark-results/")
+(popen "rsync -avhe ssh web/ wolkenwelten.net:~/http/nujel.net/performance/")
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)")