[Shootout-list] New version of the Mandelbrot Ada bench

[Pascal Obry]

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


I had introduced an error in the previous version.
I have also experienced some problems with the number
of iteration to get the same results as the C version
on my Windows machine. To have the same output I need
51 iterations, seems like there is some rounding problems
on the floating points...


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

LS0gVGhlIEdyZWF0IENvbXB1dGVyIExhbmd1YWdlIFNob290b3V0Ci0tIGh0dHA6Ly9zaG9vdG91
dC5hbGlvdGguZGViaWFuLm9yZwotLQotLSBDb250cmlidXRlZCBieSBKaW0gUm9nZXJzCi0tIEZp
eGVkIGJ5IFBhc2NhbCBPYnJ5IG9uIDIwMDUvMDMvMTkKCndpdGggR05BVC5JTzsgICAgICAgICAg
dXNlIEdOQVQuSU87CndpdGggQWRhLkNvbW1hbmRfTGluZTsgdXNlIEFkYS5Db21tYW5kX0xpbmU7
CndpdGggSW50ZXJmYWNlczsgICAgICAgdXNlIEludGVyZmFjZXM7Cgpwcm9jZWR1cmUgTWFuZGVs
YnJvdCBpcwogICB0eXBlIFJlYWwgaXMgZGlnaXRzIDE1OwogICBJdGVyICAgICAgICAgICAgICAg
ICAgIDogY29uc3RhbnQgOj0gNTA7CiAgIExpbWl0ICAgICAgICAgICAgICAgICAgOiBjb25zdGFu
dCBSZWFsIDo9IDQuMDsKICAgV2lkdGgsIEhlaWdodCAgICAgICAgICA6IFBvc2l0aXZlOwogICBC
aXRfTnVtICAgICAgICAgICAgICAgIDogTmF0dXJhbCAgICA6PSAwOwogICBCeXRlX0FjYyAgICAg
ICAgICAgICAgIDogVW5zaWduZWRfOCA6PSAwOwogICBaciwgWmksIENyLCBDaSwgVHIsIFRpIDog
UmVhbDsKICAgTCwgWnIyLCBaaTIgICAgICAgICAgICA6IFJlYWw7CmJlZ2luCiAgIFdpZHRoIDo9
IFBvc2l0aXZlJ1ZhbHVlIChBcmd1bWVudCAoMSkpOwoKICAgSGVpZ2h0IDo9IFdpZHRoOwoKICAg
UHV0X0xpbmUgKCJQNCIpOwogICBQdXRfTGluZSAoQXJndW1lbnQgKDEpICYgIiAiICYgQXJndW1l
bnQgKDEpKTsKCiAgIGZvciBZIGluIDAgLi4gSGVpZ2h0IC0gMSBsb29wCiAgICAgIGZvciBYIGlu
IDAgLi4gV2lkdGggLSAxIGxvb3AKICAgICAgICAgWnIgOj0gMC4wOwogICAgICAgICBaaSA6PSAw
LjA7CiAgICAgICAgIENyIDo9IDIuMCAqIFJlYWwgKFgpIC8gUmVhbCAoV2lkdGgpIC0gMS41Owog
ICAgICAgICBDaSA6PSAyLjAgKiBSZWFsIChZKSAvIFJlYWwgKEhlaWdodCkgLSAxLjA7CgogICAg
ICAgICBmb3IgSSBpbiAxIC4uIEl0ZXIgbG9vcAogICAgICAgICAgICBacjIgOj0gWnIgKiogMjsK
ICAgICAgICAgICAgWmkyIDo9IFppICoqIDI7CiAgICAgICAgICAgIFRyICA6PSBacjIgLSBaaTIg
KyBDcjsKICAgICAgICAgICAgVGkgIDo9IDIuMCAqIFpyICogWmkgKyBDaTsKICAgICAgICAgICAg
WnIgIDo9IFRyOwogICAgICAgICAgICBaaSAgOj0gVGk7CiAgICAgICAgICAgIEwgICA6PSBacjIg
KyBaaTI7CiAgICAgICAgICAgIGV4aXQgd2hlbiBMID4gTGltaXQ7CiAgICAgICAgIGVuZCBsb29w
OwoKICAgICAgICAgaWYgTCA+IExpbWl0IHRoZW4KICAgICAgICAgICAgQnl0ZV9BY2MgOj0gU2hp
ZnRfTGVmdCAoQnl0ZV9BY2MsIDEpIG9yIDE2IzAwIzsKICAgICAgICAgZWxzZQogICAgICAgICAg
ICBCeXRlX0FjYyA6PSBTaGlmdF9MZWZ0IChCeXRlX0FjYywgMSkgb3IgMTYjMDEjOwogICAgICAg
ICBlbmQgaWY7CgogICAgICAgICBCaXRfTnVtIDo9IEJpdF9OdW0gKyAxOwoKICAgICAgICAgaWYg
Qml0X051bSA9IDggdGhlbgogICAgICAgICAgICBQdXQgKENoYXJhY3RlcidWYWwgKEJ5dGVfQWNj
KSk7CiAgICAgICAgICAgIEJ5dGVfQWNjIDo9IDA7CiAgICAgICAgICAgIEJpdF9OdW0gIDo9IDA7
CiAgICAgICAgIGVsc2lmIFggPSBXaWR0aCAtIDEgdGhlbgogICAgICAgICAgICBCeXRlX0FjYyA6
PSBTaGlmdF9MZWZ0IChCeXRlX0FjYywgOCAtIChXaWR0aCBtb2QgOCkpOwogICAgICAgICAgICBQ
dXQgKENoYXJhY3RlcidWYWwgKEJ5dGVfQWNjKSk7CiAgICAgICAgICAgIEJ5dGVfQWNjIDo9IDA7
CiAgICAgICAgICAgIEJpdF9OdW0gIDo9IDA7CiAgICAgICAgIGVuZCBpZjsKICAgICAgZW5kIGxv
b3A7CiAgIGVuZCBsb29wOwplbmQgTWFuZGVsYnJvdDsK
--uHduMFz+BL
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

--uHduMFz+BL--