[Metakit] Performance comparison Q

[Stanislav Karchebny]

On Monday 09 May 2005 18:49, Jean-Claude Wippler wrote:

> The C code is pretty obvious:
>
>      int sum = 0; for (i = 0; i < 50000; ++i) sum += data[i];
>
> This one in tcl 8.4.6 runs at quite a bit under 1% of that speed:
>
>      set sum 0; foreach x $data { incr sum $x }
>
> My question is: how would you write the above in <insert your
> language of choice here> ?

Ruby version (one way):

data = (0..49999) # similar to data = range(50000) in python.

data.inject(0) { |x,y| x += y }

or

sum = 0
data.each { |y| sum += y }



-- 
Best regards,
Stanislav Karchebny

Skype name: berkus
Get skype for free from www.skype.com

Information in this email is confidential and proprietary.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
Url : http://www.equi4.com/pipermail/metakit/attachments/20050510/201ae2f2/attachment.bin