[Shootout-list] mandelbrot in CHICKEN scheme
Greg Buchholz
sleepingsquirrel@member.fsf.org
Sat, 8 Jan 2005 10:53:32 -0800 (PST)
--0-583536980-1105210412=:29749
Content-Type: text/plain; charset=us-ascii
Content-Id:
Content-Disposition: inline
Attached is a Mandelbrot implementation in CHICKEN scheme.
Greg Buchholz
__________________________________
Do you Yahoo!?
Yahoo! Mail - Easier than ever with enhanced search. Learn more.
http://info.mail.yahoo.com/mail_250
--0-583536980-1105210412=:29749
Content-Type: application/octet-stream; name="fractal.chicken"
Content-Transfer-Encoding: base64
Content-Description: fractal.chicken
Content-Disposition: attachment; filename="fractal.chicken"
Ozs7IE1hbmRlbGJyb3QgaW4gQ0hJQ0tFTiBzY2hlbWUKOzs7IEdyZWcgQnVj
aGhvbHoKOzs7IGNvbXBpbGU6ICBjc2MgZnJhY3RhbC5jaGlja2VuIC1PMyAt
byBmcmFjdGFsCgooZGVmaW5lIChtYWluIGFyZ3MpCiAgKGxldCAoKG4gKHN0
cmluZy0+bnVtYmVyIChjYXIgYXJncykpKSkKICAgIChkaXNwbGF5ICJQNCIp
IChuZXdsaW5lKSAoZGlzcGxheSBuKSAoZGlzcGxheSAiICIpIChkaXNwbGF5
IG4pIChuZXdsaW5lKSAKICAgIChwcmludFBCTSAwIDAgbiAocG9pbnRzIDAg
MCBuKSkpKQoKKGRlZmluZSAocG9pbnRzIHggeSBuKQogIChpZiAoPSB5IG4p
CiAgICAnKCkKICAgIChpZiAoPSB4IG4pCiAgICAgICAgKHBvaW50cyAwICgr
IHkgMSkgbikKICAgICAgICAoY29ucyAobWFuZGVsIChjb25zICgtICgqIDIg
KC8geCBuKSkgMS41KSAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICgt
ICgqIDIgKC8geSBuKSkgMS4wKSkgCiAgICAgICAgICAgICAgICAgICAgICAo
Y29ucyAwLjAgMC4wKSA1MCkKICAgICAgICAgICAgICAoZGVsYXkgKHBvaW50
cyAoKyB4IDEpIHkgbikpKSkpKQoKKGRlZmluZSAobWFuZGVsIGMgeiBpdGVy
KQogICAgKGlmICg9IGl0ZXIgMCkKICAgICAgICAxCiAgICAgICAgKGxldCAo
KG4gKGNhZGQgKGNtdWx0IHogeikgYykpKQogICAgICAgICAgICAgKGlmICg+
IChtYWduaXR1ZGUgbikgMi4wKQogICAgICAgICAgICAgICAgICAwCiAgICAg
ICAgICAgICAgICAgIChtYW5kZWwgYyBuICgtIGl0ZXIgMSkpKSkpKQoKKGRl
ZmluZSAocHJpbnRQQk0gYWNjIGkgbiBzdHJlYW0pCiAgKGNvbmQgKChudWxs
PyBzdHJlYW0pIChkaXNwbGF5IChhY2MtPmNoYXIgYWNjIGkpKSkKICAgICAg
ICAoKGFuZCAoPSAocmVtYWluZGVyIGkgOCkgMCkgKG5vdCAoPSBpIDApKSkK
ICAgICAgICAgICAgICAgICAoYmVnaW4gKGRpc3BsYXkgKGludGVnZXItPmNo
YXIgYWNjKSkgCiAgICAgICAgICAgICAgICAgICAgICAgIChwcmludFBCTSAo
Y2FyIHN0cmVhbSkgKCsgMSBpKSBuIChmb3JjZSAoY2RyIHN0cmVhbSkpKSkp
CiAgICAgICAgKCg9IGkgbikgKGJlZ2luIChkaXNwbGF5IChhY2MtPmNoYXIg
YWNjIG4pKQogICAgICAgICAgICAgICAgICAgICAgICAocHJpbnRQQk0gMCAw
IG4gc3RyZWFtKSkpCiAgICAgICAgKGVsc2UgKHByaW50UEJNICgrICgqIDIg
YWNjKSAoY2FyIHN0cmVhbSkpICgrIDEgaSkgbiAoZm9yY2UgKGNkciBzdHJl
YW0pKSkpKSkKCihkZWZpbmUgKGFjYy0+Y2hhciBhY2MgeCkKICAgIChpbnRl
Z2VyLT5jaGFyICgqIGFjYyAoZXhwdCAocmVtYWluZGVyIHggOCkgMikpKSkK
CihkZWZpbmUgKG1hZ25pdHVkZSBuKSAKICAgIChzcXJ0ICgrICgqIChjYXIg
bikgKGNhciBuKSkoKiAoY2RyIG4pIChjZHIgbikpKSkpCgooZGVmaW5lIChj
YWRkIGEgYikKICAgIChjb25zICgrIChjYXIgYSkgKGNhciBiKSkoKyAoY2Ry
IGEpIChjZHIgYikpKSkKCihkZWZpbmUgKGNtdWx0IGEgYikKICAgIChjb25z
ICgtICgqIChjYXIgYSkgKGNhciBiKSkgKCogKGNkciBhKSAoY2RyIGIpKSkK
ICAgICAgICAgICgrICgqIChjYXIgYSkgKGNkciBiKSkgKCogKGNkciBhKSAo
Y2FyIGIpKSkpKQoKKG1haW4gKGNvbW1hbmQtbGluZS1hcmd1bWVudHMpKQo=
--0-583536980-1105210412=:29749--