28 lines
864 B
Scheme
Executable File
28 lines
864 B
Scheme
Executable File
#!/usr/bin/env ikarus --r6rs-script
|
|
|
|
(import (ikarus))
|
|
|
|
(define all-benchmarks
|
|
'(ack array1 bibfreq boyer browse cat compiler conform cpstak ctak dderiv
|
|
deriv destruc diviter divrec dynamic earley fft fib fibc fibfp
|
|
fpsum gcbench gcold graphs lattice matrix maze mazefun mbrot
|
|
nbody nboyer nqueens ntakl nucleic paraffins parsing perm9 peval
|
|
pi pnpoly primes puzzle quicksort ray sboyer scheme simplex
|
|
slatex string sum sum1 sumfp sumloop tail tak takl trav1 trav2
|
|
triangl wc))
|
|
|
|
|
|
(define cmd
|
|
"../src/ikarus -b ../scheme/ikarus.boot --r6rs-script bench.ss ~a")
|
|
|
|
(for-each
|
|
(lambda (x)
|
|
(fprintf (current-error-port) "running ~s\n" x)
|
|
(for-each
|
|
(lambda (_)
|
|
(unless (zero? (system (format cmd x)))
|
|
(fprintf (current-error-port) "ERROR: ~s failed\n" x)))
|
|
(make-list 5)))
|
|
all-benchmarks)
|
|
|