suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

A little documentation

Browse Source
This commit is contained in:
Jay McCarthy 2010-08-17 15:23:00 -06:00
parent 1aac3c8e53
commit 3be8e3ba86
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/stress/stress.rkt
View File

@ -2,6 +2,9 @@
(provide stress
fit)
; fit : string number (number -> any) #:slices number -> void
; Run f with slices different numbers between 0 and max, then print the summary
; timing with label
(define (fit label max f #:slices [slices 20])
(fit-display
label
@ -27,6 +30,9 @@
(custodian-shutdown-all exp-cust)
(values cpu real gc))
; stress : number [string expr ...] ...
; Runs trials-expr different instances of each (begin expr ...) averaging the
; timing and displaying them sorted by cpu time
(define-syntax-rule (stress trials-expr [label body ...] ...)
(stress* trials-expr
(cons label (λ () body ...))