[Shootout-list] statistics Ada bench

[Pascal Obry]

--cNzveRzR55
Content-Type: text/plain; charset=us-ascii
Content-Description: message body text
Content-Transfer-Encoding: 7bit


Resubmitted as attachment as the program has been damaged
by the cut&paste.


--cNzveRzR55
Content-Type: application/octet-stream
Content-Disposition: attachment;
	filename="moments.adb"
Content-Transfer-Encoding: base64

Ci0tICRJZDogbW9tZW50cy1nbmF0LmNvZGUsdiAxLjcgMjAwNS8wMy8xNSAwNjoxODowMCBiZnVs
Z2hhbSBFeHAgJAotLSBodHRwOi8vZGFkYS5wZXJsLml0L3Nob290b3V0LwotLSBBZGEgOTUgY29k
ZSBieSBDLkMuCi0tIE1vZGlmaWVkIGJ5IFBhc2NhbCBPYnJ5IG9uIDIwMDUvMDMvMTgKCi0tIEFu
bm90YXRlZCBBZGEgUmVmZXJlbmNlIE1hbnVhbCBJU08vSUVDIDg2NTI6MTk5NTogaHR0cDovL3d3
dy5hZGEtYXV0aC5vcmcvCgp3aXRoIFN5c3RlbSwgQWRhLk51bWVyaWNzLkdlbmVyaWNfRWxlbWVu
dGFyeV9GdW5jdGlvbnM7CndpdGggQWRhLlVuY2hlY2tlZF9EZWFsbG9jYXRpb247CndpdGggQWRh
LlRleHRfSU87IHVzZSBBZGEuVGV4dF9JTzsKCnByb2NlZHVyZSBNb21lbnRzIGlzCgogICB0eXBl
IFJlYWwgaXMgZGlnaXRzIFBvc2l0aXZlJ01heCAoMTUsIFN5c3RlbS5NYXhfRGlnaXRzKTsKCiAg
IHBhY2thZ2UgQUYgaXMgbmV3IEFkYS5OdW1lcmljcy5HZW5lcmljX0VsZW1lbnRhcnlfRnVuY3Rp
b25zIChSZWFsKTsKICAgcGFja2FnZSBSSU8gaXMgbmV3IEFkYS5UZXh0X0lPLkZsb2F0X0lPIChO
dW0gPT4gUmVhbCk7CgogICBwcm9jZWR1cmUgUHV0CiAgICAgKEl0ZW0gOiBSZWFsOyBGb3JlIDog
RmllbGQgOj0gMDsgQWZ0IDogRmllbGQgOj0gNjsKICAgICAgRXhwICA6IEZpZWxkIDo9IDApIHJl
bmFtZXMgUklPLlB1dDsKCiAgIGdlbmVyaWMKICAgICAgIHR5cGUgSXRlbV9UeXBlIGlzIHByaXZh
dGU7CiAgICAgICB3aXRoIGZ1bmN0aW9uICI8PSIgKFgsIFkgOiBJdGVtX1R5cGUpIHJldHVybiBC
b29sZWFuOwogICAgICAgdHlwZSBTZXF1ZW5jZSBpcyBhcnJheSAoSW50ZWdlciByYW5nZSA8Pikg
b2YgSXRlbV9UeXBlOwogICBwYWNrYWdlIFNvcnRfUGtnIGlzCiAgICAgIHByb2NlZHVyZSBRdWlj
a19Tb3J0IChTIDogaW4gb3V0IFNlcXVlbmNlKTsKICAgZW5kIFNvcnRfUGtnOyAgLS0gIENvcGll
ZCBmcm9tIFNvdXRoYW1wdG9uIEFkYSBNUElDSCBzdXBlcmNvbXB1dGVyIGJpbmRpbmdzCgogICBw
YWNrYWdlIGJvZHkgU29ydF9Qa2cgaXMKCiAgICAgIHByb2NlZHVyZSBRdWlja19Tb3J0IChTIDog
aW4gb3V0IFNlcXVlbmNlKSBpcwoKICAgICAgICAgcHJvY2VkdXJlIFNvcnRfUmVjdXJzaXZlIChM
d2IsIFVwYiA6IEludGVnZXIpIGlzCiAgICAgICAgICAgIFBpdm90IDogSXRlbV9UeXBlIDo9IFMg
KFVwYik7CiAgICAgICAgICAgIEZyb250IDogSW50ZWdlciA6PSBMd2I7CiAgICAgICAgICAgIEJh
Y2sgIDogSW50ZWdlciA6PSBVcGI7CiAgICAgICAgICAgIFRlbXAgIDogSXRlbV9UeXBlOwogICAg
ICAgICBiZWdpbgogICAgICAgICAgICBpZiBMd2IgPCBVcGIgdGhlbgoKICAgICAgICAgICAgICAg
d2hpbGUgRnJvbnQgPD0gQmFjayBsb29wCgogICAgICAgICAgICAgICAgICB3aGlsZSBub3QgKFBp
dm90IDw9IFMgKEZyb250KSkgbG9vcAogICAgICAgICAgICAgICAgICAgICBGcm9udCA6PSBGcm9u
dCArIDE7CiAgICAgICAgICAgICAgICAgIGVuZCBsb29wOwoKICAgICAgICAgICAgICAgICAgd2hp
bGUgbm90ICAoUyAoQmFjaykgPD0gUGl2b3QpIGxvb3AKICAgICAgICAgICAgICAgICAgICAgQmFj
ayA6PSBCYWNrIC0gMTsKICAgICAgICAgICAgICAgICAgZW5kIGxvb3A7CgogICAgICAgICAgICAg
ICAgICBpZiBGcm9udCA8PSBCYWNrIHRoZW4KICAgICAgICAgICAgICAgICAgICAgVGVtcCA6PSBT
IChGcm9udCk7CiAgICAgICAgICAgICAgICAgICAgIFMgKEZyb250KSA6PSBTIChCYWNrKTsKICAg
ICAgICAgICAgICAgICAgICAgUyAoQmFjaykgOj0gVGVtcDsKICAgICAgICAgICAgICAgICAgICAg
RnJvbnQgOj0gRnJvbnQgKyAxOwogICAgICAgICAgICAgICAgICAgICBCYWNrICA6PSBCYWNrIC0g
MTsKICAgICAgICAgICAgICAgICAgZW5kIGlmOwogICAgICAgICAgICAgICBlbmQgbG9vcDsKCiAg
ICAgICAgICAgICAgIFNvcnRfUmVjdXJzaXZlIChMd2IsIEJhY2spOwogICAgICAgICAgICAgICBT
b3J0X1JlY3Vyc2l2ZSAoRnJvbnQsIFVwYik7CiAgICAgICAgICAgIGVuZCBpZjsKICAgICAgICAg
ZW5kIFNvcnRfUmVjdXJzaXZlOwoKICAgICAgYmVnaW4KICAgICAgICAgU29ydF9SZWN1cnNpdmUg
KFMnRmlyc3QsIFMnTGFzdCk7CiAgICAgIGVuZCBRdWlja19Tb3J0OwoKICAgZW5kIFNvcnRfUGtn
OwoKICAgdHlwZSBSZWFsX0FycmF5IGlzIGFycmF5IChJbnRlZ2VyIHJhbmdlIDw+KSBvZiBSZWFs
OwogICB0eXBlIFJlYWxfQXJyYXlfUHRyIGlzIGFjY2VzcyBSZWFsX0FycmF5OwoKICAgcHJvY2Vk
dXJlIERlYWxsb2NhdGVfUmVhbF9BcnJheSBpcyBuZXcgQWRhLlVuY2hlY2tlZF9EZWFsbG9jYXRp
b24KICAgICAoT2JqZWN0ID0+IFJlYWxfQXJyYXksIE5hbWUgPT4gUmVhbF9BcnJheV9QdHIpOwoK
ICAgcGFja2FnZSBTb3J0IGlzIG5ldyBTb3J0X1BrZyAoUmVhbCwgIjw9IiA9PiAiPD0iLCBTZXF1
ZW5jZSA9PiBSZWFsX0FycmF5KTsKCiAgIERhdGEgICAgICAgICAgICAgICAgICAgICA6IFJlYWxf
QXJyYXlfUHRyIDo9IG5ldyBSZWFsX0FycmF5ICgxIC4uIDApOwogICBUZW1wX0FycmF5ICAgICAg
ICAgICAgICAgOiBSZWFsX0FycmF5X1B0cjsKICAgRGV2LCBEXzIsIE1lYW4sIE1lZGlhbiAgIDog
UmVhbDsKICAgU3RhbmRhcmRfRGV2aWF0aW9uICAgICAgIDogUmVhbDsKICAgU3VtLCBBdmdfQWJz
X0RldmlhdGlvbiAgIDogUmVhbCAgICA6PSAwLjA7CiAgIFZhcmlhbmNlLCBTa2V3LCBLdXJ0b3Np
cyA6IFJlYWwgICAgOj0gMC4wOwogICBNICAgICAgICAgICAgICAgICAgICAgICAgOiBOYXR1cmFs
IDo9IDA7CgpiZWdpbgogICB3aGlsZSBub3QgRW5kX09mX0ZpbGUgbG9vcAogICAgICBNIDo9IE0g
KyAxOwoKICAgICAgaWYgTSA+IERhdGEnTGFzdCB0aGVuCiAgICAgICAgIFRlbXBfQXJyYXkgOj0g
bmV3IFJlYWxfQXJyYXkgKDEgLi4gMSArIERhdGEnTGFzdCAqIDQpOwogICAgICAgICBUZW1wX0Fy
cmF5IChEYXRhJ1JhbmdlKSA6PSBEYXRhLmFsbDsKICAgICAgICAgRGVhbGxvY2F0ZV9SZWFsX0Fy
cmF5IChEYXRhKTsKICAgICAgICAgRGF0YSA6PSBUZW1wX0FycmF5OwogICAgICBlbmQgaWY7Cgog
ICAgICBSSU8uR2V0IChJdGVtID0+IERhdGEgKE0pKTsKICAgICAgU3VtIDo9IFN1bSArIERhdGEg
KE0pOwogICBlbmQgbG9vcDsKCiAgIE1lYW4gOj0gU3VtIC8gUmVhbCAoTSk7CgogICBmb3IgSyBp
biAxIC4uIE0gbG9vcAogICAgICBEZXYgICAgICAgICAgICAgICA6PSBEYXRhIChLKSAtIE1lYW47
CiAgICAgIEF2Z19BYnNfRGV2aWF0aW9uIDo9IEF2Z19BYnNfRGV2aWF0aW9uICsgYWJzIERldjsK
ICAgICAgRF8yICAgICAgICAgICAgICAgOj0gRGV2ICogRGV2OwogICAgICBWYXJpYW5jZSAgICAg
ICAgICA6PSBWYXJpYW5jZSArIERfMjsKICAgICAgU2tldyAgICAgICAgICAgICAgOj0gU2tldyAr
IChEXzIgKiBEZXYpOwogICAgICBLdXJ0b3NpcyAgICAgICAgICA6PSBLdXJ0b3NpcyArIChEXzIg
KiBEXzIpOwogICBlbmQgbG9vcDsKCiAgIEF2Z19BYnNfRGV2aWF0aW9uICA6PSBBdmdfQWJzX0Rl
dmlhdGlvbiAvIFJlYWwgKE0pOwogICBWYXJpYW5jZSAgICAgICAgICAgOj0gVmFyaWFuY2UgLyBS
ZWFsIChNIC0gMSk7CiAgIFN0YW5kYXJkX0RldmlhdGlvbiA6PSBBRi5TcXJ0IChWYXJpYW5jZSk7
CgogICBpZiBWYXJpYW5jZSA8IDEwLjAgKiBSZWFsJ01vZGVsX0Vwc2lsb24gdGhlbgogICAgICBQ
dXRfTGluZSAoIj4gUmVkdWNlZCBhY2N1cmFjeSByZXN1bHRzOiAwID0gKChWYXJpYW5jZS8xMCAr
IDEpIC0gMSkiKTsKICAgZWxzZQogICAgICBTa2V3IDo9IFNrZXcgLyAoUmVhbCAoTSkgKiBWYXJp
YW5jZSAqIFN0YW5kYXJkX0RldmlhdGlvbik7CiAgICAgIEt1cnRvc2lzIDo9IC0zLjAgKyBLdXJ0
b3NpcyAvIChSZWFsIChNKSAqIFZhcmlhbmNlICogVmFyaWFuY2UpOwogICBlbmQgaWY7CgogICBT
b3J0LlF1aWNrX1NvcnQgKFMgPT4gRGF0YSAoMSAuLiBNKSk7CgogICBpZiAxID0gKE0gbW9kIDIp
IHRoZW4KICAgICAgTWVkaWFuIDo9IERhdGEgKChNICsgMSkgLyAyKTsKICAgZWxzZQogICAgICBN
ZWRpYW4gOj0gKERhdGEgKE0gLyAyKSArIERhdGEgKDEgKyBNIC8gMikpIC8gMi4wOwogICBlbmQg
aWY7CgogICBQdXRfTGluZSAoIm46ICAgICAgICAgICAgICAgICAiICYgSW50ZWdlcidJbWFnZSAo
TSkpOwogICBQdXQgKCJtZWRpYW46ICAgICAgICAgICAgICIpOyBQdXQgKE1lZGlhbik7ICAgICAg
ICAgICAgICBOZXdfTGluZTsKICAgUHV0ICgibWVhbjogICAgICAgICAgICAgICAiKTsgUHV0IChN
ZWFuKTsgICAgICAgICAgICAgICAgTmV3X0xpbmU7CiAgIFB1dCAoImF2ZXJhZ2VfZGV2aWF0aW9u
OiAgIik7IFB1dCAoQXZnX0Fic19EZXZpYXRpb24pOyAgIE5ld19MaW5lOwogICBQdXQgKCJzdGFu
ZGFyZF9kZXZpYXRpb246ICIpOyBQdXQgKFN0YW5kYXJkX0RldmlhdGlvbik7ICBOZXdfTGluZTsK
ICAgUHV0ICgidmFyaWFuY2U6ICAgICAgICAgICAiKTsgUHV0IChWYXJpYW5jZSk7ICAgICAgICAg
ICAgTmV3X0xpbmU7CiAgIFB1dCAoInNrZXc6ICAgICAgICAgICAgICAgIik7IFB1dCAoU2tldyk7
ICAgICAgICAgICAgICAgIE5ld19MaW5lOwogICBQdXQgKCJrdXJ0b3NpczogICAgICAgICAgICIp
OyBQdXQgKEt1cnRvc2lzKTsgICAgICAgICAgICBOZXdfTGluZTsKZW5kIE1vbWVudHM7Cg==
--cNzveRzR55
Content-Type: text/plain; charset=us-ascii
Content-Description: message body and .signature
Content-Transfer-Encoding: 7bit


Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|              http://www.obry.org
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595

--cNzveRzR55--