[Shootout-list] Four OCaml benchmarks

Mon, 13 Dec 2004 12:21:54 -0700 (MST)

  This message is in MIME format.  The first part should be readable text,
  while the remaining parts are likely unreadable without MIME-aware tools.

--411118345-1326173358-1102965714=:16501
Content-Type: TEXT/PLAIN; charset=US-ASCII; format=flowed

On Mon, 13 Dec 2004, Isaac Gouy wrote:

> /* The Great Computer Language Shootout
>   http://shootout.alioth.debian.org/
>
>   contributed by Isaac Gouy
> */

<much java code snipped>

Thanks.  After looking ot the java code I was unable te decide if my 
previous solution using the built in Stream module was "Same Way" enough 
or not, so I just wrote a new version that certainly ought to be.  it 
should be attached to this mail...

Both versions seem to run at about the same speed, so I don't really care 
which one you choose...

William D. Neumann
<wdnx@unm.edu>

FWO to the Nth degree!!!
---
Dear Lord, please make me the kind of person
my dog thinks I am.
--411118345-1326173358-1102965714=:16501
Content-Type: TEXT/PLAIN; charset=US-ASCII; name="pidigits.ml"
Content-Transfer-Encoding: BASE64
Content-ID: <Pine.LNX.4.61.0412131221540.16501@deneb.unm.edu>
Content-Description: 
Content-Disposition: attachment; filename="pidigits.ml"

KCogcGlkaWdpdHMubWwgDQ0KICBSZXF1aXJlcyB0aGUgbnVtcyBsaWJyYXJ5
LCBzbyBjb21waWxlIHdpdGggc29tZXRoaW5nIGxpa2U6DQ0KICAgIG9jYW1s
b3B0IC1vIHBpZGlnaXRzIC1ub2Fzc2VydCAtdW5zYWZlIG51bXMuY214YSBw
aWRpZ2l0cy5tbA0NCiopDQ0KDQ0Kb3BlbiBCaWdfaW50OzsNDQpvcGVuIFJh
dGlvOzsNDQoNDQpleHRlcm5hbCBzZXRfYnl0ZTogc3RyaW5nIC0+IGludCAt
PiBpbnQgLT4gdW5pdCA9ICIlc3RyaW5nX3Vuc2FmZV9zZXQiOzsNDQoNDQpt
b2R1bGUgUGlTcGlnb3QgPQ0NCiAgc3RydWN0DQ0KDQ0KICB0eXBlIHRyYW5z
Zm9ybSA9IHtxIDogYmlnX2ludDsgciA6IGJpZ19pbnQ7IHMgOiBiaWdfaW50
OyB0IDogYmlnX2ludH07Ow0NCiAgdHlwZSB0cmFuc2Zvcm1hdGlvbiA9IGlu
dCAqIHRyYW5zZm9ybTs7DQ0KDQ0KICB0eXBlIHQgPQ0NCiAgICB7DQ0KICAg
IG11dGFibGUgeiA6IHRyYW5zZm9ybTsNDQogICAgbXV0YWJsZSB4IDogdHJh
bnNmb3JtOw0NCiAgICBtdXRhYmxlIGxmdHMgOiB0cmFuc2Zvcm1hdGlvbg0N
CiAgICB9OzsNDQoNDQogIGxldCBuZXh0TEZUUyAoaSx4ZnJtIDogdHJhbnNm
b3JtYXRpb24pID0gDQ0KICAgIGxldCBqID0gc3VjYyBpIGluDQ0KICAgIGos
e3EgPSBiaWdfaW50X29mX2ludCBqOw0NCiAgICAgICByID0gYmlnX2ludF9v
Zl9pbnQgKDQqaiArIDIpOw0NCiAgICAgICBzID0gemVyb19iaWdfaW50Ow0N
CiAgICAgICB0ID0gYmlnX2ludF9vZl9pbnQgKDIqaiArIDEpDQ0KICAgICAg
fTs7DQ0KDQ0KICBsZXQgZnJlc2ggKCkgPQ0NCiAgICB7DQ0KICAgICB6ID0g
e3EgPSB1bml0X2JpZ19pbnQ7IHIgPSB6ZXJvX2JpZ19pbnQ7IHMgPSB6ZXJv
X2JpZ19pbnQ7IHQgPSB1bml0X2JpZ19pbnR9Ow0NCiAgICAgeCA9IHtxID0g
emVyb19iaWdfaW50OyByID0gemVyb19iaWdfaW50OyBzID0gemVyb19iaWdf
aW50OyB0ID0gemVyb19iaWdfaW50fTsNDQogICAgIGxmdHMgPSAwLHtxID0g
emVyb19iaWdfaW50OyByID0gemVyb19iaWdfaW50OyBzID0gemVyb19iaWdf
aW50OyB0ID0gemVyb19iaWdfaW50fQ0NCiAgICB9OzsNDQogIA0NCiAgbGV0
IGNvbXBvc2UgeGZybSB4ZnJtJyA9IA0NCiAgICBsZXQgcSA9IHhmcm0ucSBh
bmQgcSc9eGZybScucQ0NCiAgICBhbmQgciA9IHhmcm0uciBhbmQgcic9eGZy
bScucg0NCiAgICBhbmQgcyA9IHhmcm0ucyBhbmQgcyc9eGZybScucw0NCiAg
ICBhbmQgdCA9IHhmcm0udCBhbmQgdCc9eGZybScudCBpbg0NCiAgICB7DQ0K
ICAgIHEgPSBhZGRfYmlnX2ludCAobXVsdF9iaWdfaW50IHEgcScpIChtdWx0
X2JpZ19pbnQgciBzJyk7DQ0KICAgIHIgPSBhZGRfYmlnX2ludCAobXVsdF9i
aWdfaW50IHEgcicpIChtdWx0X2JpZ19pbnQgciB0Jyk7DQ0KICAgIHMgPSBh
ZGRfYmlnX2ludCAobXVsdF9iaWdfaW50IHMgcScpIChtdWx0X2JpZ19pbnQg
dCBzJyk7DQ0KICAgIHQgPSBhZGRfYmlnX2ludCAobXVsdF9iaWdfaW50IHMg
cicpIChtdWx0X2JpZ19pbnQgdCB0JykgIA0NCiAgICB9OzsNDQoNDQogIGxl
dCBleHRyICh4ZnJtIDogdHJhbnNmb3JtKSB4ID0gDQ0KICAgIGNyZWF0ZV9y
YXRpbyANDQogICAgICAoYWRkX2JpZ19pbnQgKG11bHRfaW50X2JpZ19pbnQg
eCB4ZnJtLnEpIHhmcm0ucikNDQogICAgICAoYWRkX2JpZ19pbnQgKG11bHRf
aW50X2JpZ19pbnQgeCB4ZnJtLnMpIHhmcm0udCk7Ow0NCg0NCiAgbGV0IGRp
Z2l0IHBzID0gZmxvb3JfcmF0aW8gKGV4dHIgcHMueiAzKTs7DQ0KICBsZXQg
c2FmZSB6IG4gPSAoZXFfYmlnX2ludCBuIChmbG9vcl9yYXRpbyAoZXh0ciB6
IDQpKSk7Ow0NCiAgbGV0IGNvbnN1bWUgcHMgPSBjb21wb3NlIHBzLnogKHNu
ZCBwcy5sZnRzKTs7DQ0KICBsZXQgcHJvZHVjZSB6IG4gPQ0NCiAgICAgIGNv
bXBvc2Uge3EgPSBiaWdfaW50X29mX2ludCAxMDsNDQogICAgICAgICAgICAg
ICByID0gbXVsdF9pbnRfYmlnX2ludCB+LTEwIG47DQ0KICAgICAgICAgICAg
ICAgcyA9IHplcm9fYmlnX2ludDsNDQogICAgICAgICAgICAgICB0ID0gdW5p
dF9iaWdfaW50DQ0KICAgICAgICAgICAgICB9IHo7Ow0NCiAgICANDQogIGxl
dCByZWMgbmV4dCBwcyA9DQ0KICAgIGxldCB5ID0gZGlnaXQgcHMgaW4NDQog
ICAgaWYgc2FmZSBwcy56IHkgdGhlbg0NCiAgICAgIChwcy56IDwtIHByb2R1
Y2UgcHMueiB5OyBpbnRfb2ZfYmlnX2ludCB5ICsgMHgzMCkNDQogICAgZWxz
ZQ0NCiAgICAgIChwcy5sZnRzIDwtIG5leHRMRlRTIHBzLmxmdHM7IHBzLnog
PC0gY29uc3VtZSBwczsgbmV4dCBwcyk7Ow0NCiAgICANDQplbmQ7Ow0NCg0N
Cg0NCmxldCBfID0NDQogIGxldCBuID0gaW50X29mX3N0cmluZyBTeXMuYXJn
di4oMSkNDQogIGFuZCBwaVN0cmVhbSA9IFBpU3BpZ290LmZyZXNoICgpIGlu
DQ0KICBsZXQgcGkgPSBTdHJpbmcuY3JlYXRlIDEwIGluDQ0KICBsZXQgcmVj
IGxvb3AgaSB0ZW4gPQ0NCiAgICBpZiBpIDw9IG4gdGhlbg0NCiAgICAgIChz
ZXRfYnl0ZSBwaSB0ZW4gKFBpU3BpZ290Lm5leHQgcGlTdHJlYW0pOw0NCiAg
ICAgIGxvb3AgKHN1Y2MgaSkgDQ0KICAgICAgICAgIChpZiB0ZW4gPSA5IHRo
ZW4gKFByaW50Zi5wcmludGYgIiVzXHQgOiVkXG4iIHBpIGk7IDApIGVsc2Ug
c3VjYyB0ZW4pKQ0NCiAgICBlbHNlIGlmIHRlbiA+IDAgdGhlbiAoU3RyaW5n
LmZpbGwgcGkgdGVuICgxMCAtIHRlbikgJyAnOw0NCiAgICAgICAgIFByaW50
Zi5wcmludGYgIiVzXHQ6JWRcbiIgcGkgKHByZWQgaSkpIGluDQ0KICBsb29w
IDEgMDs7DQ0K

--411118345-1326173358-1102965714=:16501--