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

Re: One more quine

by mtve (Chaplain)
on Apr 20, 2010 at 13:51 UTC ( #835773=note: print w/ replies, xml ) Need Help??


in reply to One more quine
in thread How I Learned About Quines

Alphabetic quine

s sslcsene s sa zs sgxlt print lc for uc sazsslcseneazsazsaazzsazsgxltazprintazlcazforazucaz

update: fixed for perl 5.8 thanks to choroba

s ssab x ab ttucte x ab ttab ababt x ab ta btabtgx x print lcs x s ttucte x s tts sst x s ta btstgx x print lc

Pack ascii quine

+print pack'h*a*',$x,$x=b2072796e64702071636b67286a216a272c24287c24287d3

And another printf quine

printf'%s(%1$s)',q(printf'%s(%1$s)',q)


Comment on Re: One more quine
Select or Download Code
Re^2: One more quine
by choroba (Abbot) on Apr 20, 2010 at 14:01 UTC
    perl -e 's sslcsene s sa zs sgxlt print lc for uc sazsslcseneazsazsaazzsazsgxltazprintazlcazforazucaz'

    gives:

    s sslcsene s sa zs sgxlt print lc for uc s sslcsene s sa zs sgxlt print lc for uc

    Which is not the same :(

      Which is not the same :(

      Works for me on 5.10. Nice job mtve!

      --
       David Serrano
       (Please treat my english text just like Perl code, i.e. feel free to notify me of any syntax, grammar, style and/or spelling errors. Thank you!).

        5.8.8 here.

      indeed it wont work on 5.8, it's a bug in perl. compare

      print lc, uc for uc abc

      with

      print lc, uc for uc 'abc'

      for now i don't know how to fix it.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (12)
As of 2014-11-26 16:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (172 votes), past polls