[Shootout-list] New Mandelbrot Ada bench

[Pascal Obry]

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


To have the expected output I had to slightly change the
program. It runs a bit slower now :( but gives the expected
output. These kind of tests (based on real values) are very
tricky, it depends on the way the computation are ordered...


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

LS0gVGhlIEdyZWF0IENvbXB1dGVyIExhbmd1YWdlIFNob290b3V0Ci0tIGh0dHA6Ly9zaG9vdG91
dC5hbGlvdGguZGViaWFuLm9yZwotLQotLSBDb250cmlidXRlZCBieSBKaW0gUm9nZXJzCi0tIEZp
eGVkIGJ5IFBhc2NhbCBPYnJ5IG9uIDIwMDUvMDMvMjEKCndpdGggR05BVC5JTzsgICAgICAgICAg
dXNlIEdOQVQuSU87CndpdGggQWRhLkNvbW1hbmRfTGluZTsgdXNlIEFkYS5Db21tYW5kX0xpbmU7
CndpdGggSW50ZXJmYWNlczsgICAgICAgdXNlIEludGVyZmFjZXM7CndpdGggSW50ZXJmYWNlcy5D
OyAgICAgdXNlIEludGVyZmFjZXMuQzsKCnByb2NlZHVyZSBNYW5kZWxicm90IGlzCiAgIHR5cGUg
UmVhbCBpcyBkaWdpdHMgMTU7CiAgIEl0ZXIgICAgICAgICAgICAgICAgICAgOiBjb25zdGFudCA6
PSA1MDsKICAgTGltaXQgICAgICAgICAgICAgICAgICA6IGNvbnN0YW50IDo9IDQuMDsKICAgV2lk
dGgsIEhlaWdodCAgICAgICAgICA6IFBvc2l0aXZlOwogICBCaXRfTnVtICAgICAgICAgICAgICAg
IDogTmF0dXJhbCAgICA6PSAwOwogICBCeXRlX0FjYyAgICAgICAgICAgICAgIDogVW5zaWduZWRf
OCA6PSAwOwogICBaciwgWmksIENyLCBDaSwgVHIsIFRpIDogUmVhbDsKICAgTGltaXRfUmVhY2hl
ZCAgICAgICAgICA6IEJvb2xlYW47CmJlZ2luCiAgIFdpZHRoIDo9IFBvc2l0aXZlJ1ZhbHVlIChB
cmd1bWVudCAoMSkpOwoKICAgSGVpZ2h0IDo9IFdpZHRoOwoKICAgUHV0X0xpbmUgKCJQNCIpOwog
ICBQdXRfTGluZSAoQXJndW1lbnQgKDEpICYgIiAiICYgQXJndW1lbnQgKDEpKTsKCiAgIGZvciBZ
IGluIDAgLi4gSGVpZ2h0IC0gMSBsb29wCiAgICAgIGZvciBYIGluIDAgLi4gV2lkdGggLSAxIGxv
b3AKICAgICAgICAgWnIgOj0gMC4wOwogICAgICAgICBaaSA6PSAwLjA7CiAgICAgICAgIENyIDo9
IDIuMCAqIFJlYWwgKFgpIC8gUmVhbCAoV2lkdGgpIC0gMS41OwogICAgICAgICBDaSA6PSAyLjAg
KiBSZWFsIChZKSAvIFJlYWwgKEhlaWdodCkgLSAxLjA7CgogICAgICAgICBMaW1pdF9SZWFjaGVk
IDo9IEZhbHNlOwoKICAgICAgICAgZm9yIEkgaW4gMSAuLiBJdGVyIGxvb3AKICAgICAgICAgICAg
VHIgIDo9IFpyICogWnIgLSBaaSAqIFppICsgQ3I7CiAgICAgICAgICAgIFRpICA6PSAyLjAgKiBa
ciAqIFppICsgQ2k7CiAgICAgICAgICAgIFpyICA6PSBUcjsKICAgICAgICAgICAgWmkgIDo9IFRp
OwoKICAgICAgICAgICAgaWYgWnIgKiBaciArIFppICogWmkgPiBMaW1pdCB0aGVuCiAgICAgICAg
ICAgICAgIExpbWl0X1JlYWNoZWQgOj0gVHJ1ZTsKICAgICAgICAgICAgICAgZXhpdDsKICAgICAg
ICAgICAgZW5kIGlmOwogICAgICAgICBlbmQgbG9vcDsKCiAgICAgICAgIGlmIExpbWl0X1JlYWNo
ZWQgdGhlbgogICAgICAgICAgICBCeXRlX0FjYyA6PSBTaGlmdF9MZWZ0IChCeXRlX0FjYywgMSkg
b3IgMTYjMDAjOwogICAgICAgICBlbHNlCiAgICAgICAgICAgIEJ5dGVfQWNjIDo9IFNoaWZ0X0xl
ZnQgKEJ5dGVfQWNjLCAxKSBvciAxNiMwMSM7CiAgICAgICAgIGVuZCBpZjsKCiAgICAgICAgIEJp
dF9OdW0gOj0gQml0X051bSArIDE7CgogICAgICAgICBpZiBCaXRfTnVtID0gOCB0aGVuCiAgICAg
ICAgICAgIFB1dCAoQ2hhcmFjdGVyJ1ZhbCAoQnl0ZV9BY2MpKTsKICAgICAgICAgICAgQnl0ZV9B
Y2MgOj0gMDsKICAgICAgICAgICAgQml0X051bSAgOj0gMDsKICAgICAgICAgZWxzaWYgWCA9IFdp
ZHRoIC0gMSB0aGVuCiAgICAgICAgICAgIEJ5dGVfQWNjIDo9IFNoaWZ0X0xlZnQgKEJ5dGVfQWNj
LCA4IC0gKFdpZHRoIG1vZCA4KSk7CiAgICAgICAgICAgIFB1dCAoQ2hhcmFjdGVyJ1ZhbCAoQnl0
ZV9BY2MpKTsKICAgICAgICAgICAgQnl0ZV9BY2MgOj0gMDsKICAgICAgICAgICAgQml0X051bSAg
Oj0gMDsKICAgICAgICAgZW5kIGlmOwogICAgICBlbmQgbG9vcDsKICAgZW5kIGxvb3A7CmVuZCBN
YW5kZWxicm90Owo=
--Oh1QN5H5aD
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

--Oh1QN5H5aD--