btw, if function does not allocate memory and just compute something -
things getting better:
1 place:
time: 12763
2 places:
time: 12798
10 places:
time: 13778
modified "child":
(define (child ch)
(let ((n (place-channel-get ch)))
(let ((start (current-milliseconds)))
(cond
((number? n)
(place-channel-put
ch
(and (let loop ((res 0) (n (* n 300)))
(if (= n 0)
res
(loop (add1 res) (sub1 n))))
(- (current-milliseconds) start)))
(child ch))
((equal? n "ping")
(place-channel-put ch "pong")
(child ch))))))
--
You received this message because you are subscribed to the Google Groups
"Racket Developers" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-dev/be718313-52f7-4025-8bb4-beb1af7fb08b%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
