diff options
| author | Andy Wingo <wingo@pobox.com> | 2017-06-17 22:06:17 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-06-17 22:06:17 +0200 |
| commit | bfc658db9f32e8ef4ddeb11e65adb8081001f47e (patch) | |
| tree | 5af681d685c09170c047d115150e9f1f56ab10ee | |
| parent | Add scale-bench file. (diff) | |
| download | guile-fibers-bfc658db9f32e8ef4ddeb11e65adb8081001f47e.tar.gz | |
Add makefile for collecting data
| -rw-r--r-- | benchmarks/Makefile | 24 | ||||
| -rw-r--r-- | benchmarks/scale-bench | 1 |
2 files changed, 25 insertions, 0 deletions
diff --git a/benchmarks/Makefile b/benchmarks/Makefile new file mode 100644 index 0000000..d571231 --- /dev/null +++ b/benchmarks/Makefile @@ -0,0 +1,24 @@ +chain_csv:=chain-0.csv chain-10.csv chain-100.csv +ping_pong_csv:=ping-pong-10.csv ping-pong-100.csv +fan_out_csv:=fan-out-10.csv fan-out-100.csv +diagonal_csv:=diagonal-10.csv diagonal-100.csv +sieve_csv:=sieve-2000.csv + +csv:=$(chain_csv) $(ping_pong_csv) $(fan_out_csv) $(diagonal_csv) $(sieve_csv) + +all: $(csv) + +chain-%.csv: + /opt/guile/env ../env guile ./scale-bench guile chain.scm $* '#e1e4' | tee $@ + +ping-pong-%.csv: + /opt/guile/env ../env guile ./scale-bench guile ping-pong.scm $* '#e1e4' | tee $@ + +fan-out-%.csv: + /opt/guile/env ../env guile ./scale-bench guile fan-out.scm $* '#e1e5' | tee $@ + +diagonal-%.csv: + /opt/guile/env ../env guile ./scale-bench guile fan-out.scm $* '#e1e5' | tee $@ + +sieve-%.csv: + /opt/guile/env ../env guile ./scale-bench guile sieve.scm $* | tee $@ diff --git a/benchmarks/scale-bench b/benchmarks/scale-bench index 6c67ed6..09aec9d 100644 --- a/benchmarks/scale-bench +++ b/benchmarks/scale-bench @@ -27,6 +27,7 @@ (when (< iteration iteration-count) (let ((result (run-test ncores args))) (format #t "~a,~a\n" ncores result)) + (force-output) (lp (1+ iteration)))) (lp (1+ ncores))))) |