ikarus/benchmarks/new/r6rs-benchmarks.ss

(library (r6rs-benchmarks)
  (export run-benchmark 
     ack-iters 
     fib-iters)
  (import (ikarus))
  
  (define (run-bench count run)
    (unless (= count 0)
      (let f ([count (- count 1)])
        (cond
          [(= count 0) (run)]
          [else 
           (begin (run) (f (- count 1)))]))))

  (define (run-benchmark name count ok? run-maker . args)
    (let ([run (apply run-maker args)])
      (let ([result 
             (time-it name
              (lambda () (run-bench count run)))])
        (unless (ok? result) 
          (error #f "*** wrong result ***")))))


  ; Gabriel benchmarks
  (define boyer-iters        20)
  (define browse-iters      600)
  (define cpstak-iters     1000)
  (define ctak-iters        100)
  (define dderiv-iters  2000000)
  (define deriv-iters   2000000)
  (define destruc-iters     500)
  (define diviter-iters 1000000)
  (define divrec-iters  1000000)
  (define puzzle-iters      100)
  (define tak-iters        2000)
  (define takl-iters        300)
  (define trav1-iters       100)
  (define trav2-iters        20)
  (define triangl-iters      10)
  ; Kernighan and Van Wyk benchmarks
  (define ack-iters           1)
  (define array1-iters        1)
  (define cat-iters           1)
  (define string-iters        1)
  (define sum1-iters          1)
  (define sumloop-iters       1)
  (define tail-iters          1)
  (define wc-iters            1)
  
  ; C benchmarks
  (define fft-iters        2000)
  (define fib-iters           5)
  (define fibfp-iters         2)
  (define mbrot-iters       100)
  (define nucleic-iters       5)
  (define pnpoly-iters   100000)
  (define sum-iters       10000)
  (define sumfp-iters      5000)
  (define tfib-iters         20)
  
  ; Other benchmarks
  (define conform-iters      40)
  (define dynamic-iters      20)
  (define earley-iters      200)
  (define fibc-iters        500)
  (define graphs-iters      300)
  (define lattice-iters       1)
  (define matrix-iters      400)
  (define maze-iters       4000)
  (define mazefun-iters    1000)
  (define nqueens-iters    2000)
  (define paraffins-iters  1000)
  (define peval-iters       200)
  (define pi-iters            2)
  (define primes-iters   100000)
  (define ray-iters           5)
  (define scheme-iters    20000)
  (define simplex-iters  100000)
  (define slatex-iters       20)
  (define perm9-iters        10)
  (define nboyer-iters      100)
  (define sboyer-iters      100)
  (define gcbench-iters       1)
  (define compiler-iters    300)

  ; New benchmarks
  (define parsing-iters    1000)
  (define gcold-iters     10000)
  ;(define nbody-iters         1) ; nondeterministic (order of evaluation)
    )