Made recfib benchmark faster

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

Hide file tree

Showing 5 changed files with 7 additions and 5 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 0.42 :system 0.00 :elapsed "0:00.43" :cpu "98%" :text 0 :data 0 :max-resident 23648 :inputs 0 :outputs 0 :pagefaults-major 0 :pagefaults-minor 852 :swaps 0)
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/")
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)")
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		Command terminated by signal 2
		#@(:user 0.42 :system 0.00 :elapsed "0:00.43" :cpu "98%" :text 0 :data 0 :max-resident 23648 :inputs 0 :outputs 0 :pagefaults-major 0 :pagefaults-minor 852 :swaps 0)