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

Re: One more quine

by mtve (Deacon)
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


Replies are listed 'Best First'.
Re^2: One more quine
by choroba (Bishop) on Apr 20, 2010 at 14:01 UTC
    perl -e 's sslcsene s sa zs sgxlt print lc for uc sazsslcseneazsazsaazzsazsgxltazprintazlcazforazucaz'


    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


      print lc, uc for uc 'abc'

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://835773]
[Discipulus]: hello vroom and thanks for this amazing place!
[marto]: I can't remember exactly, but it has been years since I last saw the name listed in 'Other users'
[Corion]: Heh - vroom came with interesting news - the site will likely be migrated away from *BSD to Ubuntu soonish... Hopefully I can give the new environment a test drive before it spins up :)

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (7)
As of 2018-07-19 07:49 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (404 votes). Check out past polls.