- 636 名前：デフォルトの名無しさん mailto:sage [2008/02/18(月) 16:00:56 ]
- こんなんで我慢してちょ
(define (bench exp)
__(let* ((start (current-milliseconds))
_________(value exp)
_________(end (current-milliseconds)))
____(display start)
____(newline)
____(display value)
____(newline)
____(display end)
____(newline)
____(display (- end start))))
ミリ秒でしか測れないし
余計な出力もあるのがダサいけど
