Hello, Sergey. Have you read this before? http://docs.racket-lang.org/guide/performance.html
On Thu, Nov 5, 2015 at 9:57 PM, Sergey Pinaev <[email protected]> wrote: > 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 > <https://groups.google.com/d/msgid/racket-dev/be718313-52f7-4025-8bb4-beb1af7fb08b%40googlegroups.com?utm_medium=email&utm_source=footer> > . > > For more options, visit https://groups.google.com/d/optout. > -- 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/CAFp0D55UEAiUw6-W_ikksbbGuic_rGF6BpHMxNr3MtmWiAyPtA%40mail.gmail.com. For more options, visit https://groups.google.com/d/optout.
