Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

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


Comment on please delete
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.
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!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://177750]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2014-09-21 07:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (167 votes), past polls