diff --git a/misc/perf-tests.rkt b/misc/perf-tests.rkt index 5b2127c..375a531 100644 --- a/misc/perf-tests.rkt +++ b/misc/perf-tests.rkt @@ -33,6 +33,10 @@ (spawn ^simple-actor)) (call friend 'oop)))))) +;;; 2019-10-29 +;; perf-tests.rkt> (call-a-lot) +;; cpu time: 991 real time: 990 gc time: 5 + (define (call-a-lot [actormap (make-whactormap)]) (define ((^simple-actor bcom)) 'hello) @@ -45,6 +49,12 @@ (for ([i 1000000]) (call friend)))))) +;;; 2019-10-29 +;; perf-tests.rkt> (bcom-a-lot) +;; cpu time: 1567 real time: 1566 gc time: 36 +;; perf-tests.rkt> (bcom-a-lot #:reckless? #t) +;; cpu time: 1352 real time: 1352 gc time: 29 + ;; A bunch of actors updating themselves (define (bcom-a-lot [actormap (make-whactormap)] #:num-actors [num-actors 1000] @@ -65,6 +75,10 @@ ($ i-a))) #:reckless? reckless?)))) +;;; 2019-10-29 +;; perf-tests.rkt> (set!-a-lot) +;; cpu time: 1106 real time: 1105 gc time: 13 + (define (set!-a-lot [actormap (make-whactormap)] #:num-actors [num-actors 1000] #:iterations [iterations 1000])