[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gcl-devel] Mandelbrot for the terminal behaves differently with GCL and
From: |
Cristian Pietsch |
Subject: |
[Gcl-devel] Mandelbrot for the terminal behaves differently with GCL and ABCL |
Date: |
Sun, 1 Aug 2004 13:12:03 +0200 |
User-agent: |
Mutt/1.5.6i |
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
mandel.lisp
Description: Text document
- [Gcl-devel] Mandelbrot for the terminal behaves differently with GCL and ABCL,
Cristian Pietsch <=