Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: How I Learned About Quines

by ambrus (Abbot)
on Apr 16, 2010 at 11:45 UTC ( #835076=note: print w/ replies, xml ) Need Help??


in reply to How I Learned About Quines

Apart from the webpages you mention, there's also Douglas Hofstadter's book Gödel, Escher, Bach. For perl specifically, there's my Short quines.

Update: These days I also started to like quines that look like this:

print+("\\","\"",",","print+(",")[3,1,0,0,1,2,1,0,1,1,2,1,2,1,2,1,3,1, +2,1,4,1,4]")[3,1,0,0,1,2,1,0,1,1,2,1,2,1,2,1,3,1,2,1,4,1,4]

Update 2010-01-28: These unpack quines by mtve below are nice. Here's my attempt.

print unpack a44X44a43xaXXaaXaXaxaXaX4axa, "print unpack a44X44a43xaXX +aaXaXaxaXaX4axa, \"\\\nn"

Or, if you don't need the newline, this works too.

print unpack a35X35a34xaXXaaXaXXa,"print unpack a35X35a34xaXXaaXaXXa,\ +"\\"

Update 2012-12-12: see also General quine, Short quines.


Comment on Re: How I Learned About Quines
Select or Download Code
Replies are listed 'Best First'.
Re^2: How I Learned About Quines
by mtve (Chaplain) on Mar 03, 2011 at 18:04 UTC

    uuencode to the rescue!

    print unpack a27uX30a30X3u,"print unpack a27uX30a30X3u,!(@"
      well duh, just to complement that never-ending unpack
      print pack'a*c3X2a*c4X2a2c4X3a2c3X3c3X2c2Xa3cXc2Xa3',("print pack'a*c3X2a*c4X2a2c4X3a2c3X3c3X2c2Xa3cXc2Xa3',(",34,44,")x7")x7

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (7)
As of 2015-07-08 02:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (93 votes), past polls