Re: Re: spiraling quine: WIN2k

[Len]

Tnx Olecam.

I've done some minor changes to the Windows code.

Putting the system("cls") just before the print gives a better flicker-free image.
And because system("cls") has more chr's than `clear` some frames (for example the 5th frame) are not self-replicating because the output code is incomplete. So I've decreased the radius of the spiral a bit so all the code fit's in it....

#!/usr/bin/perl
$_='
      $q=                              "\4 7"
    ;wh            ile($;=$z+=.5          ){ %c
  =$r          =0;$/="";while(  21+$        z> (
 $;         +=.05))           {$c{i nt        $ _+
26         +2*(                   $r+=.        0 1
9         )*s                       in $;       }{1
-        $_         +10+int$r*c       os$;      }=1
        f         or(0..1)}$t=re       v e       r s
       e;        $/.         =`cl       s`        ."
      #!        /u       sr   /bi       n/        pe
      rl       \n\      $_=$q\n"        ;f        or
      $y       (1.       .20){         $c        {$
      _ }       { $y                  }?         $
       /.=       chop$              t:(         $/
.      ="\4       0")for(       0..53          );
$       /.="        \n"}system("cls           ")
;p       ri nt          "$/$q;s            ;".
c h        r(92)                         ."s;
 ; g;       eva l\n"                  }

';s;\s;;g;eval

[Anonymous Monk]

The version for *nix kind of worked on Win32, if you screwed your eyes up. I was impressed with 'just' that.

Having read on and found this (the Win32 version) - I'm blown away!