From a7cc2c1e6abc63f3c923bbf0c5d6bdbbd5e6b357 Mon Sep 17 00:00:00 2001 From: Christopher Lemmer Webber Date: Tue, 29 Oct 2019 14:47:30 -0400 Subject: [PATCH] Add some commented out perf test results --- misc/perf-tests.rkt | 14 ++++++++++++++ 1 file changed, 14 insertions(+) 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])