From 26d191afeebd0f621dbca5866a07802640e6164a Mon Sep 17 00:00:00 2001 From: "Ben (X13/Arch)" Date: Thu, 25 Apr 2024 21:22:46 +0200 Subject: [PATCH] Made recfib benchmark faster --- benchmark/recfib/fib.nuj | 2 +- benchmark/recfib/fib.scm | 4 ++-- nujel-benchmark.tmp | 2 ++ tools/benchmark.nuj | 2 +- 4 files changed, 6 insertions(+), 4 deletions(-) create mode 100644 nujel-benchmark.tmp diff --git a/benchmark/recfib/fib.nuj b/benchmark/recfib/fib.nuj index cc817c80..9f85c148 100644 --- 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 index bab3003c..e47f40d4 100644 --- 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 new file mode 100644 index 00000000..51587dac --- /dev/null +++ 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 index a2b34776..6f5d916b 100755 --- 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)")