<div dir="ltr">On Wed, May 8, 2013 at 7:04 AM, Manfred Lotz <span dir="ltr">&lt;<a href="mailto:manfred.lotz@arcor.de" target="_blank">manfred.lotz@arcor.de</a>&gt;</span> wrote:<br><div class="gmail_extra"><div class="gmail_quote">

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="HOEnZb"><div class="h5">On Wed, 8 May 2013 06:19:27 -0400<br>
Carl Eastlund &lt;<a href="mailto:cce@ccs.neu.edu">cce@ccs.neu.edu</a>&gt; wrote:<br>
<br>
&gt; I&#39;m seeing similar results on my end; I timed by first running &quot;raco<br>
&gt; make&quot; on both files, then timing &quot;racket&quot; on both.  I think what<br>
&gt; we&#39;re seeing is a small startup time cost on Typed Racket.  I ran a<br>
&gt; longer benchmark and Typed Racket edges out untyped Racket if I run a<br>
&gt; few million iterations (given this is such a short computation).  The<br>
&gt; expressions I used are:<br>
&gt;<br>
&gt; ;; utest.rkt<br>
&gt; (void<br>
&gt;   (for/list {[i (in-range (* 10 1000 1000))]}<br>
&gt;     (distance<br>
&gt;       (pt (+ i 1.2) (+ i 2.1))<br>
&gt;       (pt (+ i 4.3) (+ i 5.6)))))<br>
&gt;<br>
&gt; and<br>
&gt;<br>
&gt; ;; test.rkt<br>
&gt; (void<br>
&gt;   (for/list: : (Listof Float) {[i (in-range (* 10 1000 1000))]}<br>
&gt;     (distance<br>
&gt;       (pt (+ i 1.2) (+ i 2.1))<br>
&gt;       (pt (+ i 4.3) (+ i 5.6)))))<br>
&gt;<br>
&gt;<br>
&gt; I see just under 5 seconds for test.rkt and just over 5 seconds for<br>
&gt; utest.rkt.  So there&#39;s a fraction of a second extra startup time for<br>
&gt; Typed Racket, but it takes less time for each subsequent computation,<br>
&gt; so the difference depends on how much &quot;real&quot; work you do after<br>
&gt; startup.  I don&#39;t know what causes that startup cost, but hopefully<br>
&gt; this kind of benchmark will be useful to the Typed Racket maintainers<br>
&gt; in closing the gap for future versions.  So, thanks for the example,<br>
&gt; Manfred!<br>
&gt;<br>
<br>
</div></div>Hi Carl,<br>
This is interesting. If I run it I have around 5 seconds for the typed<br>
version and around 4 seconds for the untyped version. My system is a<br>
64bit Linux.<br>
<span class="HOEnZb"><font color="#888888"><br>
--<br>
Manfred<br></font></span></blockquote><div><br></div><div>What I ran was:<br><br>  raco make test.rkt utest.rkt &amp;&amp; time racket test.rkt &amp;&amp; time racket utest.rkt<br><br></div><div>Just to make sure we&#39;re comparing apples to apples, does that give you the same results you saw before?<br>

</div><div> <span class="HOEnZb"><font color="#888888"></font></span><br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><span class="HOEnZb"></span>&gt; On Wed, May 8, 2013 at 5:32 AM, Manfred Lotz<br>

<div class="HOEnZb"><div class="h5">
&gt; &lt;<a href="mailto:manfred.lotz@arcor.de">manfred.lotz@arcor.de</a>&gt; wrote:<br>
&gt;<br>
&gt; &gt; Hi there,<br>
&gt; &gt; I did a small test using typed racket.<br>
&gt; &gt;<br>
&gt; &gt; This is an example from the documentation:<br>
&gt; &gt;<br>
&gt; &gt; #lang typed/racket<br>
&gt; &gt; ;; test.rkt<br>
&gt; &gt;<br>
&gt; &gt; (struct: pt ([x : Float] [y : Float]))<br>
&gt; &gt;<br>
&gt; &gt; (: distance (pt pt -&gt; Float))<br>
&gt; &gt; (define (distance p1 p2)<br>
&gt; &gt;   (sqrt (+ (sqr (- (pt-x p2) (pt-x p1)))<br>
&gt; &gt;            (sqr (- (pt-y p2) (pt-y p1))))))<br>
&gt; &gt;<br>
&gt; &gt; (distance (pt 1.2 2.1) (pt 4.3 5.6))<br>
&gt; &gt;<br>
&gt; &gt; This is the untyped version:<br>
&gt; &gt; #lang racket<br>
&gt; &gt; ;; utest.rkt<br>
&gt; &gt;<br>
&gt; &gt; (struct pt (x y))<br>
&gt; &gt;<br>
&gt; &gt; (define (distance p1 p2)<br>
&gt; &gt;   (sqrt (+ (sqr (- (pt-x p2) (pt-x p1)))<br>
&gt; &gt;            (sqr (- (pt-y p2) (pt-y p1))))))<br>
&gt; &gt;<br>
&gt; &gt; (distance (pt 1.2 2.1) (pt 4.3 5.6))<br>
&gt; &gt;<br>
&gt; &gt;<br>
&gt; &gt; Now running both:<br>
&gt; &gt; time racket test.rkt<br>
&gt; &gt; 4.675467891024383<br>
&gt; &gt; racket test.rkt  1.24s user 0.08s system 99% cpu 1.333 total<br>
&gt; &gt;<br>
&gt; &gt;<br>
&gt; &gt; time racket utest.rkt<br>
&gt; &gt; 4.675467891024383<br>
&gt; &gt; racket utest.rkt  0.22s user 0.03s system 99% cpu 0.248 total<br>
&gt; &gt;<br>
&gt; &gt;<br>
&gt; &gt; It seems the typed version needs a lot of time for the type<br>
&gt; &gt; checking. The time for time checking could be cut mostly by:<br>
&gt; &gt;<br>
&gt; &gt; raco exe test.rkt<br>
&gt; &gt; time ./test<br>
&gt; &gt; 4.675467891024383<br>
&gt; &gt; ./test  0.49s user 0.03s system 99% cpu 0.531 total<br>
&gt; &gt;<br>
&gt; &gt; But still runtime is more than twice as long. I could get the<br>
&gt; &gt; impression that typed racket is generally slower.<br>
&gt; &gt;<br>
&gt; &gt;<br>
&gt; &gt; Question: Is there any conclusion to be drawn from this (like that<br>
&gt; &gt; typed racket is slower than &#39;normal&#39; racket)? Or is my test just a<br>
&gt; &gt; bad test?<br>
&gt; &gt;<br>
&gt; &gt;<br>
&gt; &gt; --<br>
&gt; &gt; Manfred<br></div></div></blockquote></div></div></div>