Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

please delete

by NodeReaper (Curate)
on Jun 27, 2002 at 16:25 UTC ( #177750=note: print w/replies, xml ) Need Help??

in reply to spiraling quine

Reason: neophyte delete (requested by author)

For more information on this node visit: this

Replies are listed 'Best First'.
Re: Re: spiraling quine: WIN2k
by Len (Friar) on Jun 28, 2002 at 08:31 UTC
    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
      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!
Re: Re: spiraling quine: WIN2k
by FLGomes (Novice) on Jun 27, 2002 at 21:48 UTC
    Wow. My head's spinning.... One of the best obfuscateds I have seem.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://177750]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2018-06-20 04:35 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (116 votes). Check out past polls.