Browse Source

Add some commented out perf test results

machines
Christopher Lemmer Webber 6 years ago
parent
commit
a7cc2c1e6a
No known key found for this signature in database
GPG Key ID: 4BC025925FF8F4D3
  1. 14
      misc/perf-tests.rkt

14
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])

Loading…
Cancel
Save