Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: spiraling quine

by PyrexKidd (Monk)
on Feb 17, 2011 at 21:20 UTC ( #888802=note: print w/ replies, xml ) Need Help??


in reply to spiraling quine

In an effort to understand what is going on here, I decided to put the code in a more readable format

#!/usr/bin/perl $_=' $q="\47"; while($; = $z+ =.5){ %c = $r = 0; $/=""; while(20+$z>($;+=.05)){ $c { int $_ + 26 + 2 * ($r += .02) * sin $; } { 1 - $_ + 10 + int $r * cos $; } = 1for(0..1) } $t = reverse; $/ .= `clear` . "#!/usr/bin/perl\n\$_=$q\n"; for $y (1..20){ $c{$_}{$y} ? $/ .= chop $t : ($/ .= "\40")for(0..53); $/.="\n" } print "$/$q;s;" .chr(92). "s;;g;eval\n" } '; s;\s;;g;eval

Quite amazingly it prints the same image in this format. I think it has to do with the sin/cos.

Two things I am unfamiliar with, the $; variable and this line:

s;\s;;g;eval

Big props BTW


Comment on Re: spiraling quine
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2014-12-29 01:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (183 votes), past polls