racket/collects/tests/mzscheme/benchmarks/common/scheme48-prelude.sch
Matthew Flatt 42e68c8ff1 even more benchmark scaffolding
svn: r17884
2010-01-29 16:33:15 +00:00

23 lines
564 B
Scheme

(define (time* thunk)
(let ((start-cpu (run-time))
(start-real (real-time)))
(let ((result (thunk)))
(let ((end-cpu (run-time))
(end-real (real-time)))
(let ((cpu (- end-cpu start-cpu))
(real (- end-real start-real)))
(display "cpu time: ")
(display cpu)
(display " real time: ")
(display real)
(newline)
result)))))
(define-syntax time
(syntax-rules ()
((_ expr) (time* (lambda () expr)))))
(define (error . args) (+ 1 args))