This self-reproducing code prints a turning spirale filled with it's own code. Turning speed depends on processor speed. Comments welcome.
#!/usr/bin/perl $_=' $q ="\ 47"; wh ile ($ ;= $z += .5 ){ %c= $r=0;$/ ="";whi le(2 0+ $z>($;+=.05)){$c{int$ _+ 2 6+ 2*($ r+= .0 2) * s in$ ;}{1 -$_ +1 0+ int $r*c o s $ ;} =1for(0. .1) }$ t =r ever se;$ /. =` c le ar `. " #! / usr /bi n/ pe rl \n\ $_ =$q \n" ; fo r$y (1..20){$c{$_} { $ y }? $ /.=chop$t : ($/ . =" \4 0") for(0. .53) ; $/. ="\n"}pri nt"$/$ q; s; ". chr(9 2)."s;;g;eval\n "} ';s;\s;;g;eval
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: spiraling quine
by thelenm (Vicar) on Jun 20, 2002 at 15:27 UTC | |
by vagnerr (Prior) on Jun 20, 2002 at 16:12 UTC | |
Re: spiraling quine
by Marza (Vicar) on Jun 20, 2002 at 20:06 UTC | |
by Juerd (Abbot) on Jun 21, 2002 at 07:22 UTC | |
Re: spiraling quine
by johnirl (Monk) on Jul 12, 2002 at 15:29 UTC | |
by gaal (Parson) on Jun 30, 2004 at 17:36 UTC | |
Re: spiraling quine
by sschneid (Deacon) on Jun 20, 2002 at 18:10 UTC | |
Re: spiraling quine
by cecil36 (Pilgrim) on Jun 20, 2002 at 20:40 UTC | |
Re: spiraling quine
by BrowserUk (Patriarch) on Jun 21, 2002 at 14:09 UTC | |
Re: spiraling quine
by Anonymous Monk on Jun 21, 2002 at 19:07 UTC | |
Re: spiraling quine
by phrenesis (Initiate) on Jun 21, 2002 at 12:54 UTC | |
Re: spiraling quine
by RMGir (Prior) on Jun 21, 2002 at 19:54 UTC | |
Re: spiraling quine
by wufnik (Friar) on Jul 25, 2003 at 12:15 UTC | |
Hypnotic
by perlmoth (Hermit) on Jun 27, 2002 at 12:20 UTC | |
Re: spiraling quine
by ambrus (Abbot) on Feb 18, 2011 at 11:02 UTC | |
Re: spiraling quine
by PyrexKidd (Monk) on Feb 17, 2011 at 21:20 UTC | |
Re: spiraling quine
by RocketPro (Initiate) on Oct 21, 2002 at 23:56 UTC | |
by Len (Friar) on Oct 23, 2002 at 10:56 UTC |
Back to
Obfuscated Code