Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: One more quine

by mtve (Deacon)
on Apr 20, 2010 at 13:51 UTC ( [id://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)

Replies are listed 'Best First'.
Re^2: One more quine
by choroba (Cardinal) 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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://835773]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2024-04-19 21:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found