[Shootout-list] Mandelbrot Ada bench

[Pascal Obry]

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


New version, I had a line that was not used anymore. So this
version is a line shorter :)


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

LS0gVGhlIEdyZWF0IENvbXB1dGVyIExhbmd1YWdlIFNob290b3V0Ci0tIGh0dHA6Ly9zaG9vdG91
dC5hbGlvdGguZGViaWFuLm9yZwotLQotLSBDb250cmlidXRlZCBieSBKaW0gUm9nZXJzCi0tIEZp
eGVkIGJ5IFBhc2NhbCBPYnJ5IG9uIDIwMDUvMDMvMjEKCndpdGggR05BVC5JTzsgICAgICAgICAg
dXNlIEdOQVQuSU87CndpdGggQWRhLkNvbW1hbmRfTGluZTsgdXNlIEFkYS5Db21tYW5kX0xpbmU7
CndpdGggSW50ZXJmYWNlczsgICAgICAgdXNlIEludGVyZmFjZXM7Cgpwcm9jZWR1cmUgTWFuZGVs
YnJvdCBpcwogICB0eXBlIFJlYWwgaXMgZGlnaXRzIDE1OwogICBJdGVyICAgICAgICAgICAgICAg
ICAgIDogY29uc3RhbnQgOj0gNTA7CiAgIExpbWl0ICAgICAgICAgICAgICAgICAgOiBjb25zdGFu
dCA6PSA0LjA7CiAgIFdpZHRoLCBIZWlnaHQgICAgICAgICAgOiBQb3NpdGl2ZTsKICAgQml0X051
bSAgICAgICAgICAgICAgICA6IE5hdHVyYWwgICAgOj0gMDsKICAgQnl0ZV9BY2MgICAgICAgICAg
ICAgICA6IFVuc2lnbmVkXzggOj0gMDsKICAgWnIsIFppLCBDciwgQ2ksIFRyLCBUaSA6IFJlYWw7
CiAgIExpbWl0X1JlYWNoZWQgICAgICAgICAgOiBCb29sZWFuOwpiZWdpbgogICBXaWR0aCA6PSBQ
b3NpdGl2ZSdWYWx1ZSAoQXJndW1lbnQgKDEpKTsKCiAgIEhlaWdodCA6PSBXaWR0aDsKCiAgIFB1
dF9MaW5lICgiUDQiKTsKICAgUHV0X0xpbmUgKEFyZ3VtZW50ICgxKSAmICIgIiAmIEFyZ3VtZW50
ICgxKSk7CgogICBmb3IgWSBpbiAwIC4uIEhlaWdodCAtIDEgbG9vcAogICAgICBmb3IgWCBpbiAw
IC4uIFdpZHRoIC0gMSBsb29wCiAgICAgICAgIFpyIDo9IDAuMDsKICAgICAgICAgWmkgOj0gMC4w
OwogICAgICAgICBDciA6PSAyLjAgKiBSZWFsIChYKSAvIFJlYWwgKFdpZHRoKSAtIDEuNTsKICAg
ICAgICAgQ2kgOj0gMi4wICogUmVhbCAoWSkgLyBSZWFsIChIZWlnaHQpIC0gMS4wOwoKICAgICAg
ICAgTGltaXRfUmVhY2hlZCA6PSBGYWxzZTsKCiAgICAgICAgIGZvciBJIGluIDEgLi4gSXRlciBs
b29wCiAgICAgICAgICAgIFRyICA6PSBaciAqIFpyIC0gWmkgKiBaaSArIENyOwogICAgICAgICAg
ICBUaSAgOj0gMi4wICogWnIgKiBaaSArIENpOwogICAgICAgICAgICBaciAgOj0gVHI7CiAgICAg
ICAgICAgIFppICA6PSBUaTsKCiAgICAgICAgICAgIGlmIFpyICogWnIgKyBaaSAqIFppID4gTGlt
aXQgdGhlbgogICAgICAgICAgICAgICBMaW1pdF9SZWFjaGVkIDo9IFRydWU7CiAgICAgICAgICAg
ICAgIGV4aXQ7CiAgICAgICAgICAgIGVuZCBpZjsKICAgICAgICAgZW5kIGxvb3A7CgogICAgICAg
ICBpZiBMaW1pdF9SZWFjaGVkIHRoZW4KICAgICAgICAgICAgQnl0ZV9BY2MgOj0gU2hpZnRfTGVm
dCAoQnl0ZV9BY2MsIDEpIG9yIDE2IzAwIzsKICAgICAgICAgZWxzZQogICAgICAgICAgICBCeXRl
X0FjYyA6PSBTaGlmdF9MZWZ0IChCeXRlX0FjYywgMSkgb3IgMTYjMDEjOwogICAgICAgICBlbmQg
aWY7CgogICAgICAgICBCaXRfTnVtIDo9IEJpdF9OdW0gKyAxOwoKICAgICAgICAgaWYgQml0X051
bSA9IDggdGhlbgogICAgICAgICAgICBQdXQgKENoYXJhY3RlcidWYWwgKEJ5dGVfQWNjKSk7CiAg
ICAgICAgICAgIEJ5dGVfQWNjIDo9IDA7CiAgICAgICAgICAgIEJpdF9OdW0gIDo9IDA7CiAgICAg
ICAgIGVsc2lmIFggPSBXaWR0aCAtIDEgdGhlbgogICAgICAgICAgICBCeXRlX0FjYyA6PSBTaGlm
dF9MZWZ0IChCeXRlX0FjYywgOCAtIChXaWR0aCBtb2QgOCkpOwogICAgICAgICAgICBQdXQgKENo
YXJhY3RlcidWYWwgKEJ5dGVfQWNjKSk7CiAgICAgICAgICAgIEJ5dGVfQWNjIDo9IDA7CiAgICAg
ICAgICAgIEJpdF9OdW0gIDo9IDA7CiAgICAgICAgIGVuZCBpZjsKICAgICAgZW5kIGxvb3A7CiAg
IGVuZCBsb29wOwplbmQgTWFuZGVsYnJvdDsK
--T+7VrnMc0h
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

--T+7VrnMc0h--