[Shootout-list] Four OCaml benchmarks
William Douglas Neumann
wdnx@unm.edu
Mon, 13 Dec 2004 08:14:32 -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-2097151547-1102950797=:2341
Content-Type: TEXT/PLAIN; CHARSET=US-ASCII; format=flowed
Content-ID: <Pine.LNX.4.61.0412130813411.3535@deneb.unm.edu>
Attached should be four of the new benchmarks (takfp, pidigits, nseive,
fannkuch) in OCaml. Note that I don't have any way to tell if pidigits is
done the "same way" as the java program on the site because, well, the
java program isn't actually on the site to compare with...
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-2097151547-1102950797=:2341
Content-Type: TEXT/PLAIN; CHARSET=US-ASCII; NAME="tak.ml"
Content-Transfer-Encoding: BASE64
Content-ID: <Pine.LNX.4.61.0412130813170.2341@deneb.unm.edu>
Content-Description:
Content-Disposition: ATTACHMENT; FILENAME="tak.ml"
KCogdGFrLm1sICopDQ0KDQ0KbGV0IF8gPQ0NCiAgbGV0IHJlYyB0YWsgeCB5
IHogPSANDQogICAgaWYgeSA+PSB4IHRoZW4geg0NCiAgICBlbHNlIHRhayAo
dGFrICh4IC0uIDEuKSB5IHopICh0YWsgKHkgLS4gMS4pIHogeCkgKHRhayAo
eiAtLiAxLikgeCB5KSBpbg0NCiAgbGV0IG4gPSBmbG9hdF9vZl9zdHJpbmcg
U3lzLmFyZ3YuKDEpIGluDQ0KICAgIHByaW50X2Zsb2F0ICh0YWsgKDMuICou
IG4pICgyLiAqLiBuKSBuKTsNDQogICAgcHJpbnRfbmV3bGluZSAoKTs7DQ0K
--411118345-2097151547-1102950797=:2341
Content-Type: TEXT/PLAIN; CHARSET=US-ASCII; NAME="pidigits.ml"
Content-Transfer-Encoding: BASE64
Content-ID: <Pine.LNX.4.61.0412130813171.2341@deneb.unm.edu>
Content-Description:
Content-Disposition: ATTACHMENT; FILENAME="pidigits.ml"
KCogcGlkaWdpdHMubWwgDQ0KICBSZXF1aXJlcyB0aGUgbnVtcyBsaWJyYXJ5
LCBzbyBjb21waWxlIHdpdGggc29tZXRoaW5nIGxpa2U6DQ0KICAgIG9jYW1s
b3B0IC1vIHBpZGlnaXRzIC1ub2Fzc2VydCAtdW5zYWZlIG51bXMuY214YSBw
aWRpZ2l0cy5tbA0NCiopDQ0KDQ0Kb3BlbiBCaWdfaW50OzsNDQpvcGVuIFJh
dGlvOzsNDQoNDQpleHRlcm5hbCBzZXRfYnl0ZTogc3RyaW5nIC0+IGludCAt
PiBpbnQgLT4gdW5pdCA9ICIlc3RyaW5nX3NhZmVfc2V0Ijs7DQ0KDQ0KbGV0
IGV4dHIgKHEscixzLHQpIHggPSANDQogIGNyZWF0ZV9yYXRpbyANDQogICAg
KGFkZF9iaWdfaW50IChtdWx0X2ludF9iaWdfaW50IHggcSkgcikNDQogICAg
KGFkZF9iaWdfaW50IChtdWx0X2ludF9iaWdfaW50IHggcykgdCk7Ow0NCiAg
ICANDQpsZXQgc3RfY29tcCAocSxyLHMsdCkgKHEnLHInLHMnLHQnKSA9IA0N
CiAgKA0NCiAgYWRkX2JpZ19pbnQgKG11bHRfYmlnX2ludCBxIHEnKSAobXVs
dF9iaWdfaW50IHIgcycpLA0NCiAgYWRkX2JpZ19pbnQgKG11bHRfYmlnX2lu
dCBxIHInKSAobXVsdF9iaWdfaW50IHIgdCcpLA0NCiAgYWRkX2JpZ19pbnQg
KG11bHRfYmlnX2ludCBzIHEnKSAobXVsdF9iaWdfaW50IHQgcycpLA0NCiAg
YWRkX2JpZ19pbnQgKG11bHRfYmlnX2ludCBzIHInKSAobXVsdF9iaWdfaW50
IHQgdCcpICANDQogICk7Ow0NCiAgDQ0KbGV0IHN0ck1ha2VyICgpID0NDQog
IGxldCBzYWZlIHogbiA9IChlcV9iaWdfaW50IG4gKGZsb29yX3JhdGlvIChl
eHRyIHogNCkpKQ0NCiAgYW5kIG5leHQgeiA9IGZsb29yX3JhdGlvIChleHRy
IHogMykNDQogIGFuZCBjb25zID0gc3RfY29tcA0NCiAgYW5kIHByb2QgeiBu
ID0NDQogICAgc3RfY29tcCAoKGJpZ19pbnRfb2ZfaW50IDEwKSwgbXVsdF9p
bnRfYmlnX2ludCB+LTEwIG4sIHplcm9fYmlnX2ludCwgdW5pdF9iaWdfaW50
KSB6DQ0KICBhbmQgbGZ0cyA9DQ0KICAgIFN0cmVhbS5mcm9tIA0NCiAgICAo
ZnVuIGkgLT4gDQ0KICAgICAgU29tZSAoYmlnX2ludF9vZl9pbnQgaSwgYmln
X2ludF9vZl9pbnQgKDQqaSArIDIpLCB6ZXJvX2JpZ19pbnQsIGJpZ19pbnRf
b2ZfaW50ICgyKmkgKyAxKSkpDQ0KICBhbmQgc3RhdGUgPSByZWYgKHVuaXRf
YmlnX2ludCwgemVyb19iaWdfaW50LCB6ZXJvX2JpZ19pbnQsIHVuaXRfYmln
X2ludCkgaW4NDQogIGlnbm9yZSAoU3RyZWFtLm5leHQgbGZ0cyk7DQ0KICBm
dW4gKGkgOiBpbnQpIC0+DQ0KICAgIGxldCB5ID0gcmVmIChuZXh0ICFzdGF0
ZSkgaW4NDQogICAgd2hpbGUgbm90IChzYWZlICFzdGF0ZSAheSkgZG8NDQog
ICAgICBzdGF0ZSA6PSBjb25zICFzdGF0ZSAoU3RyZWFtLm5leHQgbGZ0cyk7
DQ0KICAgICAgeSA6PSBuZXh0ICFzdGF0ZQ0NCiAgICBkb25lOw0NCiAgICBz
dGF0ZSA6PSBwcm9kICFzdGF0ZSAheTsNDQogICAgU29tZSAoaW50X29mX2Jp
Z19pbnQgIXkgKyAweDMwKTs7DQ0KICAgIA0NCmxldCBfID0NDQogIGxldCBu
ID0gaW50X29mX3N0cmluZyBTeXMuYXJndi4oMSkNDQogIGFuZCBwaVN0cmVh
bSA9IFN0cmVhbS5mcm9tIChzdHJNYWtlciAoKSkgaW4NDQogIGxldCBwaSA9
IFN0cmluZy5jcmVhdGUgMTAgaW4NDQogIGxldCByZWMgbG9vcCBpIHRlbiA9
DQ0KICAgIGlmIGkgPD0gbiB0aGVuDQ0KICAgICAgKHNldF9ieXRlIHBpIHRl
biAoU3RyZWFtLm5leHQgcGlTdHJlYW0pOw0NCiAgICAgIGxvb3AgKHN1Y2Mg
aSkgDQ0KICAgICAgICAgIChpZiB0ZW4gPSA5IHRoZW4gKFByaW50Zi5wcmlu
dGYgIiVzXHQ6JWRcbiIgcGkgaTsgMCkgZWxzZSBzdWNjIHRlbikpDQ0KICAg
IGVsc2UgaWYgdGVuID4gMCB0aGVuIChTdHJpbmcuZmlsbCBwaSB0ZW4gKDEw
IC0gdGVuKSAnICc7DQ0KICAgICAgICAgUHJpbnRmLnByaW50ZiAiJXNcdDol
ZFxuIiBwaSAocHJlZCBpKSkgaW4NDQogIGxvb3AgMSAwOzs=
--411118345-2097151547-1102950797=:2341
Content-Type: TEXT/PLAIN; CHARSET=US-ASCII; NAME="nseive.ml"
Content-Transfer-Encoding: BASE64
Content-ID: <Pine.LNX.4.61.0412130813172.2341@deneb.unm.edu>
Content-Description:
Content-Disposition: ATTACHMENT; FILENAME="nseive.ml"
KCoNDQogIFJlcXVpcmVzIHRoZSBCaWdhcnJheSBtb2R1bGUgZm9yIGxhcmdl
ciB2YWx1ZXMgb2YgbiANDQogICg+PSA5IG9uIDMyIGJpdCBzeXN0ZW1zKSwg
c28gY29tcGlsZSB3aXRoIHNvbWV0aGluZyBsaWtlOiANDQogICAgb2NhbWxv
cHQgLW5vYXNzZXJ0IC11bnNhZmUgLW8gbnNlaXZlIGJpZ2FycmF5LmNteGEg
bnNlaXZlLm1sDQ0KICBpLmUuIGluY2x1ZGUgdGhlIGJpZ2FycmF5LmNteGEg
bGlicmFyeS4uLiAqKQ0NCg0NCm9wZW4gQmlnYXJyYXk7Ow0NCg0NCmxldCBi
aWdfbnNlaXZlIG0gPQ0NCiAgbGV0IHMgPSBBcnJheTEuY3JlYXRlIEJpZ2Fy
cmF5LmNoYXIgY19sYXlvdXQgKHN1Y2MgbSkgaW4NDQogIEFycmF5MS5maWxs
IHMgJ3QnOw0NCiAgbGV0IHJlYyBzdGVwIGkgY250ID0NDQogICAgbGV0IHJl
YyB3aGFjayBqID0gaWYgaiA8PSBtIHRoZW4gKEFycmF5MS5zZXQgcyBqICdm
Jzsgd2hhY2sgKGogKyBpKSkgaW4NDQogICAgaWYgaSA8PSBtIHRoZW4NDQog
ICAgICAoaWYgQXJyYXkxLmdldCBzIGkgPSAndCcgdGhlbiANDQogICAgICAg
ICh3aGFjayAoaSBsc2wgMSk7IHN0ZXAgKHN1Y2MgaSkgKHN1Y2MgY250KSkN
DQogICAgICBlbHNlIHN0ZXAgKHN1Y2MgaSkgY250KQ0NCiAgICBlbHNlIGNu
dCBpbg0NCiAgUHJpbnRmLnByaW50ZiAiUHJpbWVzIHVwIHRvXHQlZFx0JWRc
biIgbSAoc3RlcCAyIDApOzsNDQogICAgICAgICAgICAgICAgDQ0KbGV0IF8g
PSANDQogIGxldCBuID0gKGludF9vZl9zdHJpbmcgU3lzLmFyZ3YuKDEpKSBp
bg0NCiAgYmlnX25zZWl2ZSAoKDEgbHNsIG4pICogMTAwMDApOw0NCiAgYmln
X25zZWl2ZSAoKDEgbHNsIChuLTEpKSAqIDEwMDAwKTsNDQogIGJpZ19uc2Vp
dmUgKCgxIGxzbCAobi0yKSkgKiAxMDAwMCk7Ow0NCiAgDQ0KICAgIA==
--411118345-2097151547-1102950797=:2341
Content-Type: TEXT/PLAIN; CHARSET=US-ASCII; NAME="fannkuch.ml"
Content-Transfer-Encoding: BASE64
Content-ID: <Pine.LNX.4.61.0412130813173.2341@deneb.unm.edu>
Content-Description:
Content-Disposition: ATTACHMENT; FILENAME="fannkuch.ml"
KCogZmFubmt1Y2gubWwgKikNDQoNDQooKg0NCmxldCBjb3VudF9mbGlwcyBh
cnIgPQ0NCiAgbGV0IHJlYyBjZmggZmwgPQ0NCiAgICBsZXQgc3dhcCB4IHkg
PSANDQogICAgICBsZXQgdCA9IEFycmF5LnVuc2FmZV9nZXQgYXJyIHggaW4N
DQogICAgICAgIEFycmF5LnVuc2FmZV9zZXQgYXJyIHggKEFycmF5LnVuc2Fm
ZV9nZXQgYXJyIHkpOyANDQogICAgICAgIEFycmF5LnVuc2FmZV9zZXQgYXJy
IHkgdCBpbg0NCiAgICBsZXQgZiA9IEFycmF5LnVuc2FmZV9nZXQgYXJyIDAg
aW4NDQogICAgaWYgZiA9IDEgdGhlbiBmbCBlbHNlDQ0KICAgICAgYmVnaW4N
DQogICAgICAgIGZvciBpID0gMSB0byAoZiBsc3IgMSkgZG8NDQogICAgICAg
ICAgc3dhcCAocHJlZCBpKSAoZiAtIGkpDQ0KICAgICAgICBkb25lOw0NCiAg
ICAgIGNmaCAoc3VjYyBmbCkgDQ0KICAgIGVuZCBpbg0NCiAgY2ZoIDA7Ow0N
CiopDQ0KDQ0KbGV0IGNvdW50X2ZsaXBzIGFyciA9DQ0KICBsZXQgcmVjIGNm
aCBmbCA9DQ0KICAgIGxldCBzd2FwIHggeSA9IA0NCiAgICAgIGxldCB0ID0g
YXJyLih4KSBpbg0NCiAgICAgICAgYXJyLih4KSA8LSBhcnIuKHkpOyANDQog
ICAgICAgIGFyci4oeSkgPC0gdCBpbg0NCiAgICBsZXQgZiA9IGFyci4oMCkg
aW4NDQogICAgaWYgZiA9IDEgdGhlbiBmbCBlbHNlDQ0KICAgICAgYmVnaW4N
DQogICAgICAgIGZvciBpID0gMSB0byAoZiBsc3IgMSkgZG8NDQogICAgICAg
ICAgc3dhcCAocHJlZCBpKSAoZiAtIGkpDQ0KICAgICAgICBkb25lOw0NCiAg
ICAgIGNmaCAoc3VjYyBmbCkgDQ0KICAgIGVuZCBpbg0NCiAgY2ZoIDA7Ow0N
CiAgICANDQpsZXQgZmFubmt1Y2ggbiA9IA0NCiAgbGV0IHBuID0gcHJlZCBu
IGluDQ0KICBsZXQgcmVjIGZhY3QgbiBhY2MgPSBpZiBuIDwgMiB0aGVuIGFj
YyBlbHNlIGZhY3QgKHByZWQgbikgKG4qYWNjKSBpbg0NCiAgbGV0IHAgPSBB
cnJheS5pbml0IG4gc3VjYyBpbg0NCiAgbGV0IGN0bCA9IEFycmF5Lm1ha2Ug
biAwIGluDQ0KICBsZXQgZ2VuMyAoKSA9DQ0KICBsZXQgcmVjIHVkX2N0bCBp
ID0NDQogICAgaWYgaSA+IDAgdGhlbg0NCiAgICAgIGlmIGN0bC4oaSkgPD4g
aSB0aGVuIGkNDQogICAgICBlbHNlIChjdGwuKGkpIDwtIDA7IHVkX2N0bCAo
cHJlZCBpKSkgDQ0KICAgIGVsc2UgMCBpbg0NCiAgICBsZXQgaSA9IHVkX2N0
bCAocHJlZCBuKSBpbg0NCiAgICBpZiBpIDw+IDAgdGhlbg0NCiAgICBiZWdp
bg0NCiAgICAgIGN0bC4oaSkgPC0gY3RsLihpKSArIDE7DQ0KICAgICAgcC4o
MCkgPC0gMTsNDQogICAgICBmb3IgaSA9IDAgdG8gcHJlZCBuIGRvDQ0KICAg
ICAgICBwLihpKSA8LSBwLihpIC0gY3RsLihpKSk7DQ0KICAgICAgICBwLihp
IC0gY3RsLihpKSkgPC0gaSsxOw0NCiAgICAgIGRvbmU7DQ0KICAgIGVuZCBp
bg0NCiAgbGV0IHJlYyBma2ggbXggPSBmdW5jdGlvbg0NCiAgICAgICgtIDEp
IC0+IG14DQ0KICAgIHwgaSAtPiANDQogICAgICAgIGZraCANDQogICAgICAg
ICAgKGdlbjMgKCk7DQ0KICAgICAgICAgICBpZiBwLigwKSA9IDEgfHwgcC4o
cG4pID0gbiB0aGVuIG14DQ0KICAgICAgICAgICBlbHNlIG1heCBteCAoY291
bnRfZmxpcHMgcCkpDQ0KICAgICAgICAgIChwcmVkIGkpIGluDQ0KICBma2gg
bWluX2ludCAocHJlZCAoZmFjdCBuIDEpKTs7DQ0KICANDQpsZXQgXyA9IA0N
CiAgcHJpbnRfaW50IChmYW5ua3VjaCAoaW50X29mX3N0cmluZyBTeXMuYXJn
di4oMSkpKTsgcHJpbnRfbmV3bGluZSAoKTs7DQ0K
--411118345-2097151547-1102950797=:2341--