RE: [Gcl-devel] Mandelbrot for the terminal behaves differently withGCL and ABCL

[Mike Thomas]

Hi Christian.

Thanks for bringing this to our attention.

I've was on leave yesterday and am catching up on other stuff so can't look
further into this at the moment.  I have CLISP, LW Personal and Corman here
so hopefully will have some basis on which to work when I get back to your
email.

Cheers

Mike Thomas.

| -----Original Message-----
| From: address@hidden
| [mailto:address@hidden
| Behalf Of Cristian Pietsch
| Sent: Sunday, 1 August 2004 9:12 PM
| To: Mike Thomas; Peter Graves
| Cc: address@hidden
| Subject: [Gcl-devel] Mandelbrot for the terminal behaves differently
| withGCL and ABCL
|
|
| Hello Peter,
| hello Mike,
|
| perhaps you have noticed that somebody posted a nifty tiny fractal
| ASCII art generator for the Mandelbrot set to comp.lang.lisp (see
| attachment).
|
| Incidentally, I have noticed that most implementations produce the
| same ``apple man'', but GCL, Armed Bear Common Lisp, Poplog, and
| LispWorks have their own version each. I don't know if this is caused
| by different precision arithmetic or different encodings. I also don't
| know if this should be considered a bug or just a gap in the Common
| Lisp standard. So before I post this to c.l.l, I want to show you my
| findings. Here is the ``mainstream'' behaviour:
|
|
| Allegro CL (Solaris + Linux), CLISP, CMUCL, SBCL, and ECL-Spain
| (KCL-based) produce this result (76 chars wide):
|
| ~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}||||||||{{{zyvrwum{|||||}}}}}}~~~
| ~~~~~~~~~~
| ~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}|||||||||{{{zyxwoaqwxz{{{|||||}}}}}}
| ~~~~~~~~~~
| ~~~~~~~~}}}}}}}}}}}}}}}}}}}|||||||||{{zzzyxvn
| Knwyz{{{{||||}}}}}}~~~~~~~~
| ~~~~~~}}}}}}}}}}}}}}}}}}||||||||{{zyxuxxxwvuq
| svwwyzzzyr{||}}}}}}}~~~~~~
| ~~~~}}}}}}}}}}}}}}}}}|||||{{{{{zzzxt>  qf
| pttfqeqz{|}}}}}}}}~~~~
| ~~~}}}}}}}}}}}}}}|||{{{{{{{{{zzzywotn
| atyz{||}}}}}}}}~~~
| ~~}}}}}}}}}||||{{zwvyyyyyyyyyyyxvsP
| swvz{||}}}}}}}}~~
| ~}}}}|||||||{{{{zyxvpP[ur]spvwwvi
| qxz{|||}}}}}}}}~
| ~}||||||||{{{{{zyytun         qq
| avz{|||}}}}}}}}~
| ~||||||{zzzzyyxtroqb           a
| xz{{|||}}}}}}}}~
| ~cgcbY _TRZU9 .
| pvxyz{{||||}}}}}}}}
| ~||||||{zzzzyyxtroqb           a
| xz{{|||}}}}}}}}~
| ~}||||||||{{{{{zyytun         qq
| avz{|||}}}}}}}}~
| ~}}}}|||||||{{{{zyxvpP[ur]spvwwvi
| qxz{|||}}}}}}}}~
| ~~}}}}}}}}}||||{{zwvyyyyyyyyyyyxvsP
| swvz{||}}}}}}}}~~
| ~~~}}}}}}}}}}}}}}|||{{{{{{{{{zzzywotn
| atyz{||}}}}}}}}~~~
| ~~~~}}}}}}}}}}}}}}}}}|||||{{{{{zzzxt>  qf
| pttfqeqz{|}}}}}}}}~~~~
| ~~~~~~}}}}}}}}}}}}}}}}}}||||||||{{zyxuxxxwvuq
| svwwyzzzyr{||}}}}}}}~~~~~~
| ~~~~~~~~}}}}}}}}}}}}}}}}}}}|||||||||{{zzzyxvn
| Knwyz{{{{||||}}}}}}~~~~~~~~
| ~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}|||||||||{{{zyxwoaqwxz{{{|||||}}}}}}
| ~~~~~~~~~~
| ~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}||||||||{{{zyvrwum{|||||}}}}}}~~~
| ~~~~~~~~~~
|
|
| GCL produces this one (75 chars wide, different center line, asymmetric):
|
| ~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}||||||||{{{zyvrwuW{|||||}}}}}}~~~
| ~~~~~~~~~
| ~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}|||||||||{{{zyxwoaqwxz{{{|||||}}}}}}
| ~~~~~~~~~
| ~~~~~~~~}}}}}}}}}}}}}}}}}}}|||||||||{{zzzyxvn
| Knwyz{{{{||||}}}}}}~~~~~~~
| ~~~~~~}}}}}}}}}}}}}}}}}}||||||||{{zyxuxxxwvuq
| svwwyzzzyr{||}}}}}}}~~~~~
| ~~~~}}}}}}}}}}}}}}}}}|||||{{{{{zzzxt>  qf
| pttfqeqz{|}}}}}}}}~~~
| ~~~}}}}}}}}}}}}}}|||{{{{{{{{{zzzywotn
| atyz{||}}}}}}}}~~
| ~~}}}}}}}}}||||{{zwvyyyyyyyyyyyxvsP
| swvz{||}}}}}}}}~
| ~}}}}|||||||{{{{zyxvpN[ur]spvwwvi
| qxz{|||}}}}}}}}
| ~}||||||||{{{{{zyytun         qq
| avz{|||}}}}}}}}
| ~||||||{zzzzyyxtroqb           a
| xz{{|||}}}}}}}}
| ~>E87  3!
| pvxyz{{||||}}}}}}}
| ~||||||{zzzzyyxtroqb           a
| xz{{|||}}}}}}}}
| ~}||||||||{{{{{zyytun         qq
| avz{|||}}}}}}}}
| ~}}}}|||||||{{{{zyxvpN[ur]spvwwvi
| qxz{|||}}}}}}}}
| ~~}}}}}}}}}||||{{zwvyyyyyyyyyyyxvsP
| swvz{||}}}}}}}}~
| ~~~}}}}}}}}}}}}}}|||{{{{{{{{{zzzywotn
| atyz{||}}}}}}}}~~
| ~~~~}}}}}}}}}}}}}}}}}|||||{{{{{zzzxt>  qf
| pttfqeqz{|}}}}}}}}~~~
| ~~~~~~}}}}}}}}}}}}}}}}}}||||||||{{zyxuxxxwvuq
| svwwyzzzyr{||}}}}}}}~~~~~
| ~~~~~~~~}}}}}}}}}}}}}}}}}}}|||||||||{{zzzyxvn
| Knwyz{{{{||||}}}}}}~~~~~~~
| ~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}|||||||||{{{zyxwoaqwxz{{{|||||}}}}}}
| ~~~~~~~~~
| ~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}||||||||{{{zyvrwuW{|||||}}}}}}~~~
| ~~~~~~~~~
| ~~~~~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}}|||||{zmt{{{||||}}}}}~~~~~~~
| ~~~~~~~~~
|
|
| Armed Bear Common Lisp (75 chars wide, much like GCL, asymmetric):
|
| ~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}||||||||{{{zyvrwuV{|||||}}}}}}~~~
| ~~~~~~~~~
| ~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}|||||||||{{{zyxwoaqwxz{{{|||||}}}}}}
| ~~~~~~~~~
| ~~~~~~~~}}}}}}}}}}}}}}}}}}}|||||||||{{zzzyxvn
| Knwyz{{{{||||}}}}}}~~~~~~~
| ~~~~~~}}}}}}}}}}}}}}}}}}||||||||{{zyxuxxxwvuq
| svwwyzzzyr{||}}}}}}}~~~~~
| ~~~~}}}}}}}}}}}}}}}}}|||||{{{{{zzzxt>  qf
| pttfqeqz{|}}}}}}}}~~~
| ~~~}}}}}}}}}}}}}}|||{{{{{{{{{zzzywotn
| atyz{||}}}}}}}}~~
| ~~}}}}}}}}}||||{{zwvyyyyyyyyyyyxvsP
| swvz{||}}}}}}}}~
| ~}}}}|||||||{{{{zyxvpN[ur]spvwwvi
| qxz{|||}}}}}}}}
| ~}||||||||{{{{{zyytun         qq
| avz{|||}}}}}}}}
| ~||||||{zzzzyyxtroqb           a
| xz{{|||}}}}}}}}
| address@hidden<;$ 6# +
| pvxyz{{||||}}}}}}}
| ~||||||{zzzzyyxtroqb           a
| xz{{|||}}}}}}}}
| ~}||||||||{{{{{zyytun         qq
| avz{|||}}}}}}}}
| ~}}}}|||||||{{{{zyxvpN[ur]spvwwvi
| qxz{|||}}}}}}}}
| ~~}}}}}}}}}||||{{zwvyyyyyyyyyyyxvsP
| swvz{||}}}}}}}}~
| ~~~}}}}}}}}}}}}}}|||{{{{{{{{{zzzywotn
| atyz{||}}}}}}}}~~
| ~~~~}}}}}}}}}}}}}}}}}|||||{{{{{zzzxt>  qf
| pttfqeqz{|}}}}}}}}~~~
| ~~~~~~}}}}}}}}}}}}}}}}}}||||||||{{zyxuxxxwvuq
| svwwyzzzyr{||}}}}}}}~~~~~
| ~~~~~~~~}}}}}}}}}}}}}}}}}}}|||||||||{{zzzyxvn
| Knwyz{{{{||||}}}}}}~~~~~~~
| ~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}|||||||||{{{zyxwoaqwxz{{{|||||}}}}}}
| ~~~~~~~~~
| ~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}||||||||{{{zyvrwuW{|||||}}}}}}~~~
| ~~~~~~~~~
| ~~~~~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}}|||||{zmt{{{||||}}}}}~~~~~~~
| ~~~~~~~~~
|
|
| Lispworks (75 chars wide, much like GCL, asymmetric):
|
| ~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}||||||||{{{zyvrwuW{|||||}}}}}}~~~
| ~~~~~~~~~
| ~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}|||||||||{{{zyxwoaqwxz{{{|||||}}}}}}
| ~~~~~~~~~
| ~~~~~~~~}}}}}}}}}}}}}}}}}}}|||||||||{{zzzyxvn
| Knwyz{{{{||||}}}}}}~~~~~~~
| ~~~~~~}}}}}}}}}}}}}}}}}}||||||||{{zyxuxxxwvuq
| svwwyzzzyr{||}}}}}}}~~~~~
| ~~~~}}}}}}}}}}}}}}}}}|||||{{{{{zzzxt>  qf
| pttfqeqz{|}}}}}}}}~~~
| ~~~}}}}}}}}}}}}}}|||{{{{{{{{{zzzywotn
| atyz{||}}}}}}}}~~
| ~~}}}}}}}}}||||{{zwvyyyyyyyyyyyxvsP
| swvz{||}}}}}}}}~
| ~}}}}|||||||{{{{zyxvpN[ur]spvwwvi
| qxz{|||}}}}}}}}
| ~}||||||||{{{{{zyytun         qq
| avz{|||}}}}}}}}
| ~||||||{zzzzyyxtroqb           a
| xz{{|||}}}}}}}}
| address@hidden::# 6# (
| pvxyz{{||||}}}}}}}
| ~||||||{zzzzyyxtroqb           a
| xz{{|||}}}}}}}}
| ~}||||||||{{{{{zyytun         qq
| avz{|||}}}}}}}}
| ~}}}}|||||||{{{{zyxvpN[ur]spvwwvi
| qxz{|||}}}}}}}}
| ~~}}}}}}}}}||||{{zwvyyyyyyyyyyyxvsP
| swvz{||}}}}}}}}~
| ~~~}}}}}}}}}}}}}}|||{{{{{{{{{zzzywotn
| atyz{||}}}}}}}}~~
| ~~~~}}}}}}}}}}}}}}}}}|||||{{{{{zzzxt>  qf
| pttfqeqz{|}}}}}}}}~~~
| ~~~~~~}}}}}}}}}}}}}}}}}}||||||||{{zyxuxxxwvuq
| svwwyzzzyr{||}}}}}}}~~~~~
| ~~~~~~~~}}}}}}}}}}}}}}}}}}}|||||||||{{zzzyxvn
| Knwyz{{{{||||}}}}}}~~~~~~~
| ~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}|||||||||{{{zyxwoaqwxz{{{|||||}}}}}}
| ~~~~~~~~~
| ~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}||||||||{{{zyvrwuW{|||||}}}}}}~~~
| ~~~~~~~~~
| ~~~~~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}}|||||{zmt{{{||||}}}}}~~~~~~~
| ~~~~~~~~~
|
|
| Poplog Common Lisp has yet another one (76 chars wide, asymmetric):
|
| ~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}||||||||{{{zyvrwuo{|||||}}}}}}~~~
| ~~~~~~~~~~
| ~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}|||||||||{{{zyxwoaqwxz{{{|||||}}}}}}
| ~~~~~~~~~~
| ~~~~~~~~}}}}}}}}}}}}}}}}}}}|||||||||{{zzzyxvn
| Knwyz{{{{||||}}}}}}~~~~~~~~
| ~~~~~~}}}}}}}}}}}}}}}}}}||||||||{{zyxuxxxwvuq
| svwwyzzzyr{||}}}}}}}~~~~~~
| ~~~~}}}}}}}}}}}}}}}}}|||||{{{{{zzzxt>  qf
| pttfqeqz{|}}}}}}}}~~~~
| ~~~}}}}}}}}}}}}}}|||{{{{{{{{{zzzywotn
| atyz{||}}}}}}}}~~~
| ~~}}}}}}}}}||||{{zwvyyyyyyyyyyyxvsP
| swvz{||}}}}}}}}~~
| ~}}}}|||||||{{{{zyxvpK[ur]spvwwvi
| qxz{|||}}}}}}}}~
| ~}||||||||{{{{{zyytun         qq
| avz{|||}}}}}}}}~
| ~||||||{zzzzyyxtroqb           a
| xz{{|||}}}}}}}}~
| ~ijce] cYZ^YI ?
| pvxyz{{||||}}}}}}}}
| ~||||||{zzzzyyxtroqb           a
| xz{{|||}}}}}}}}~
| ~}||||||||{{{{{zyytun         qq
| avz{|||}}}}}}}}~
| ~}}}}|||||||{{{{zyxvpP[ur]spvwwvi
| qxz{|||}}}}}}}}~
| ~~}}}}}}}}}||||{{zwvyyyyyyyyyyyxvsO
| swvz{||}}}}}}}}~~
| ~~~}}}}}}}}}}}}}}|||{{{{{{{{{zzzywotn
| atyz{||}}}}}}}}~~~
| ~~~~}}}}}}}}}}}}}}}}}|||||{{{{{zzzxt?  qf
| pttfqeqz{|}}}}}}}}~~~~
| ~~~~~~}}}}}}}}}}}}}}}}}}||||||||{{zyxuxxxwvuq
| svwwyzzzyr{||}}}}}}}~~~~~~
| ~~~~~~~~}}}}}}}}}}}}}}}}}}}|||||||||{{zzzyxvn
| Knwyz{{{{||||}}}}}}~~~~~~~~
| ~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}|||||||||{{{zyxwoaqwxz{{{|||||}}}}}}
| ~~~~~~~~~~
| ~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}||||||||{{{zyvrwun{|||||}}}}}}~~~
| ~~~~~~~~~~
| ~~~~~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}}|||||{zmt{{{||||}}}}}~~~~~~~
| ~~~~~~~~~~
|
|
|
| Edi Weitz' version (also posted to c.l.l) behaved exactly the same with
| regard to output.
|
| I attached the source code from the original article.
|
| Cheers,
| Christian
|
| --
|   Christian Pietsch
|   http://www.interling.de
|