Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Self printing code

by ccn (Vicar)
on Apr 29, 2009 at 16:20 UTC ( #760916=obfuscated: print w/ replies, xml ) Need Help??

No digits, no backslashes, no dollar signs, no quotes...
s bbq oprint q cs c and print grep !m w[a|c]w, a..c, a..c and print q +rq r and print grep m r[^np]r, n..p and print and print grep m i[^np] +i, n..p and print grep !m y[a|c]y, a..c and print q re and r and prin +tobe and print q cs c and print grep !m w[a|c]w, a..c, a..c and print + q rq r and print grep m r[^np]r, n..p and print and print grep m i[^ +np]i, n..p and print grep !m y[a|c]y, a..c and print q re and r and p +rint
I wonder is it possible to get rid of square brackets, pipes and '^'?

Update: Yes, it is possible!
Update2: use ellipses and reformat the code

s bbq oprint q as a and print grep! m aca, grep! m cac, a... c, a... c and print q aq a and print grep! m pnp, grep! m npn, n... p and print and print grep! m pnp, grep! m npn, n... p and print grep! m cac, grep! m aca, a... c and print q qe and q and printobe and print q as a and print grep! m aca, grep! m cac, a... c, a... c and print q aq a and print grep! m pnp, grep! m npn, n... p and print and print grep! m pnp, grep! m npn, n... p and print grep! m cac, grep! m aca, a... c and print q qe and q and print

Comment on Self printing code
Select or Download Code
Re: Self printing code
by grinder (Bishop) on Apr 29, 2009 at 21:30 UTC

    Woo, impressive. Now you just have to get rid of the bangs (!) and you could be onto something.

    update: mmm, even better. I think we have a masterpiece.

    • another intruder with the mooring in the heart of the Perl

      The bangs are on their place, see update. It became a poem.
Re: Self printing code
by Lawliet (Curate) on Apr 30, 2009 at 01:40 UTC

    Wow, very cool. It looks like there should be a secret message in there somewhere.

    I don't mind occasionally having to reinvent a wheel; I don't even mind using someone's reinvented wheel occasionally. But it helps a lot if it is symmetric, contains no fewer than ten sides, and has the axle centered. I do tire of trapezoidal wheels with offset axles. --Joseph Newcomer

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://760916]
Approved by Fletch
Front-paged by grinder
help
Chatterbox?
and the web crawler heard nothing...

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

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (217 votes), past polls