<div dir="ltr">Thanks for the tip! I tried it again, this time using 100000000, and the Haskell one runs at around 25 seconds. The C one is only 1.5 seconds. Can that still be the run time system?</div><br><div class="gmail_quote"><div dir="ltr">On Wed, May 4, 2016 at 9:18 PM Mike Izbicki <<a href="mailto:mike@izbicki.me">mike@izbicki.me</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">You need to be doing tests that take much longer to accurately compare<br>
runtimes of executables.  Here's why:<br>
<br>
Haskell programs have a more complicated run time system than C<br>
programs, and the binaries output by GHC are much larger.  Therefore,<br>
there will be a small additional overhead that you have to pay once<br>
when the program starts.  For some machines, this could possibly be on<br>
the order of 0.3 seconds.<br>
<br>
I'd recommend you scale your test so that it takes at least 30 seconds<br>
for the slowest program.  This will give you more meaningful results.<br>
<br>
On Wed, May 4, 2016 at 6:07 PM, Jake <<a href="mailto:jake.waksbaum@gmail.com" target="_blank">jake.waksbaum@gmail.com</a>> wrote:<br>
> I also tried the more standard forM_ [0..100000] idiom and got similar<br>
> times. I hoped loop might be faster, but apparently not.<br>
><br>
> On Wed, May 4, 2016 at 9:05 PM Jake <<a href="mailto:jake.waksbaum@gmail.com" target="_blank">jake.waksbaum@gmail.com</a>> wrote:<br>
>><br>
>> I'm trying to write a program in Haskell that writes a large file at the<br>
>> end, and it seems like that output alone is taking way longer than it<br>
>> should. I don't understand why Haskell shouldn't be able to write data as<br>
>> quickly as C, so I wrote two test files:<br>
>><br>
>> -- Test.hs<br>
>> import Control.Loop<br>
>> import Data.ByteString.Builder<br>
>> import System.IO<br>
>><br>
>> main :: IO ()<br>
>> main =<br>
>>  Â numLoop 0 1000000 $ \_ -><br>
>>  Â  Â hPutBuilder stdout $ char7 ' '<br>
>><br>
>> // test.c<br>
>> #include <stdio.h><br>
>><br>
>> int main() {<br>
>>  Â int i;<br>
>>  Â for (i = 0; i < 1000000; i++) {<br>
>>  Â  Â fprintf(stdout, " ");<br>
>>  Â }<br>
>>  Â return 0;<br>
>> }<br>
>><br>
>> I compiled them both with -O2, and ran them redirecting their outputs to<br>
>> /dev/null. For the Haskell version I got times aroudn 0.3 seconds, while the<br>
>> C version was around 0.03. Is there any reason why in simple IO the Haskell<br>
>> version would be slower by an order of magnitude?<br>
><br>
><br>
> _______________________________________________<br>
> Haskell-Cafe mailing list<br>
> <a href="mailto:Haskell-Cafe@haskell.org" target="_blank">Haskell-Cafe@haskell.org</a><br>
> <a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe" rel="noreferrer" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe</a><br>
><br>
</blockquote></div>