From 0287c37a00c3d1d49d4b7ddb291ccfcd3d389312 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Mon, 5 Nov 2007 01:57:18 -0500 Subject: [PATCH] * updated benchmarks/README since quicksort now works. --- benchmarks.larceny/bench | 1 + benchmarks.larceny/num-iters/num-iters.scm | 1 + benchmarks.larceny/results.Larceny-r6rs | 56 ++++++++++++++++++++++ benchmarks.larceny/src/quicksort.scm | 4 +- benchmarks/README | 2 +- benchmarks/rnrs-benchmarks.ss | 2 +- 6 files changed, 62 insertions(+), 4 deletions(-) diff --git a/benchmarks.larceny/bench b/benchmarks.larceny/bench index 020c8d7..6d50265 100755 --- a/benchmarks.larceny/bench +++ b/benchmarks.larceny/bench @@ -81,6 +81,7 @@ setup () CHICKEN_INIT="/Users/ikarus/.opt/bin/csi" GSI="/Users/ikarus/.opt/4.0b20/bin/gsi" GSC="/Users/ikarus/.opt/4.0b20/bin/gsc" + MIT="mit-scheme" ;; esac diff --git a/benchmarks.larceny/num-iters/num-iters.scm b/benchmarks.larceny/num-iters/num-iters.scm index e98bc27..21ff128 100644 --- a/benchmarks.larceny/num-iters/num-iters.scm +++ b/benchmarks.larceny/num-iters/num-iters.scm @@ -66,5 +66,6 @@ (define gcold-iters 10000) ;(define nbody-iters 1) ; nondeterministic (order of evaluation) +(define quicksort-iters 100) (define fpsum-iters 10) diff --git a/benchmarks.larceny/results.Larceny-r6rs b/benchmarks.larceny/results.Larceny-r6rs index cf3ab1b..bfccfe4 100644 --- a/benchmarks.larceny/results.Larceny-r6rs +++ b/benchmarks.larceny/results.Larceny-r6rs @@ -8458,3 +8458,59 @@ Larceny v0.93 "Deviated Prevert" (Nov 10 2006 04:27:45, precise:BSD Unix:unified > bench DIED! + +**************************** +Benchmarking Larceny-r6rs on Sun Nov 4 23:27:58 EST 2007 under Darwin Vesuvius.local 8.10.1 Darwin Kernel Version 8.10.1: Wed May 23 16:33:00 PDT 2007; root:xnu-792.22.5~1/RELEASE_I386 i386 i386 + +Testing quicksort under Larceny-r6rs +Compiling... +Larceny v0.93 "Deviated Prevert" (Nov 10 2006 04:27:45, precise:BSD Unix:unified) + + +> +> +Running... +Larceny v0.93 "Deviated Prevert" (Nov 10 2006 04:27:45, precise:BSD Unix:unified) + + +> bench DIED! + +**************************** +Benchmarking Larceny-r6rs on Sun Nov 4 23:33:16 EST 2007 under Darwin Vesuvius.local 8.10.1 Darwin Kernel Version 8.10.1: Wed May 23 16:33:00 PDT 2007; root:xnu-792.22.5~1/RELEASE_I386 i386 i386 + +Testing quicksort under Larceny-r6rs +Compiling... +Larceny v0.93 "Deviated Prevert" (Nov 10 2006 04:27:45, precise:BSD Unix:unified) + + +> +> +Running... +Larceny v0.93 "Deviated Prevert" (Nov 10 2006 04:27:45, precise:BSD Unix:unified) + + +> +Words allocated: 84219692 +Words reclaimed: 0 +Elapsed time...: 124748 ms (User: 73859 ms; System: 50830 ms) +Elapsed GC time: 183 ms (CPU: 180 in 320 collections.) + +**************************** +Benchmarking Larceny-r6rs on Mon Nov 5 01:11:44 EST 2007 under Darwin Vesuvius.local 8.10.1 Darwin Kernel Version 8.10.1: Wed May 23 16:33:00 PDT 2007; root:xnu-792.22.5~1/RELEASE_I386 i386 i386 + +Testing scheme under Larceny-r6rs +Compiling... +Larceny v0.93 "Deviated Prevert" (Nov 10 2006 04:27:45, precise:BSD Unix:unified) + + +> +> +Running... +Larceny v0.93 "Deviated Prevert" (Nov 10 2006 04:27:45, precise:BSD Unix:unified) + + +> +Words allocated: 29621942 +Words reclaimed: 0 +Elapsed time...: 1199 ms (User: 1195 ms; System: 4 ms) +Elapsed GC time: 44 ms (CPU: 48 in 113 collections.) diff --git a/benchmarks.larceny/src/quicksort.scm b/benchmarks.larceny/src/quicksort.scm index 7c20991..458311d 100644 --- a/benchmarks.larceny/src/quicksort.scm +++ b/benchmarks.larceny/src/quicksort.scm @@ -82,7 +82,6 @@ (run-benchmark "quicksort30" quicksort-iters - quicksort-benchmark (lambda (v) (call-with-current-continuation (lambda (return) @@ -91,4 +90,5 @@ #t) (if (not (<= (vector-ref v (- i 1)) (vector-ref v i))) - (return #f)))))))) + (return #f)))))) + (lambda () quicksort-benchmark))) diff --git a/benchmarks/README b/benchmarks/README index 35b82bb..0894144 100644 --- a/benchmarks/README +++ b/benchmarks/README @@ -40,6 +40,6 @@ output is modeled after Chez Scheme's in order to facilitate interoperability with tools that parse benchmark data. BUGS: - maze, nbody, and quicksort do not work yet. + maze and nbody do not work yet because they require make-polar. Aziz,,, diff --git a/benchmarks/rnrs-benchmarks.ss b/benchmarks/rnrs-benchmarks.ss index fe62ae4..a37f18c 100644 --- a/benchmarks/rnrs-benchmarks.ss +++ b/benchmarks/rnrs-benchmarks.ss @@ -174,7 +174,7 @@ (define parsing-iters 1000) (define gcold-iters 10000) - (define quicksort-iters 1) + (define quicksort-iters 100) (define fpsum-iters 10) (define nbody-iters 1) ; nondeterministic (order of evaluation) )