29 lines
808 B
Scheme
29 lines
808 B
Scheme
|
|
(use-syntax (ice-9 syncase))
|
|
|
|
(define (msecs v)
|
|
(quotient (* v 1000) internal-time-units-per-second))
|
|
|
|
(define (time* thunk)
|
|
(let ((start (times))
|
|
(start-gc (gc-run-time)))
|
|
(let ((v (thunk)))
|
|
(let ((end (times))
|
|
(end-gc (gc-run-time)))
|
|
(display "user: ")
|
|
(display (msecs (- (tms:utime end) (tms:utime start))))
|
|
(display " system: ")
|
|
(display (msecs (- (tms:stime end) (tms:stime start))))
|
|
(display " real: ")
|
|
(display (msecs (- (tms:clock end) (tms:clock start))))
|
|
(display " gc: ")
|
|
(display (msecs (- end-gc start-gc)))
|
|
(newline)))))
|
|
|
|
(define-syntax time
|
|
(syntax-rules ()
|
|
((_ expr) (time* (lambda () expr)))))
|
|
|
|
(define bitwise-and logand)
|
|
(define bitwise-ior logior)
|
|
(define bitwise-not lognot) |