diff options
| -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))))) |