Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Camel JAPH

by agianni (Hermit)
on Feb 27, 2007 at 13:29 UTC ( #602295=obfuscated: print w/ replies, xml ) Need Help??

This isn't all that obfuscated, but it's my first try at both JAPH and obfuscation:
perl -e'map\ {map{print chr }/\d\ {3}/gx }join q{},\ split/\s/sx,q(0741171151\ 16032097110111116104101\ 114 032 080 10 1\ 114 108 032 104 \ 09 70 99 10\ 7 1 0 1\ 1 1 4 0\ 4 4 ) ;'

Comment on Camel JAPH
Download Code
Re: Camel JAPH
by Anno (Deacon) on Feb 27, 2007 at 14:52 UTC
    Pretty!

    As for obfuscated, it's certainly obfuscated enough to belong in this section, or, at least, in no other.

    A JAPH as such doesn't have to be obfuscated at all. Any novel way of making Perl print the four words is valid.

    Anno

Re: Camel JAPH
by monkfan (Curate) on Mar 08, 2007 at 13:53 UTC
    Neat, but running on Linux, it gives me this error:
    monkfan@access7:~$perl -e'map\ > {map{print chr }/\d\ > {3}/gx }join q{},\ > split/\s/sx,q(0741171151\ > 16032097110111116104101\ > 114 032 080 10 1\ > 114 108 032 104 \ > 09 70 99 10\ > 7 1 0 1\ > 1 1 4 0\ > 4 4 ) ;' syntax error at -e line 3, near "}join" (Might be a runaway multi-line // string starting on line 2) Execution of -e aborted due to compilation errors.

    Regards,
    Edward
      Solaris 8 same error - cool though

      # perl -e'map\ > {map{print chr }/\d\ > {3}/gx }join q{},\ > split/\s/sx,q(0741171151\ > 16032097110111116104101\ > 114 032 080 10 1\ > 114 108 032 104 \ > 09 70 99 10\ > 7 1 0 1\ > 1 1 4 0\ > 4 4 ) ;' syntax error at -e line 3, near "}join" (Might be a runaway multi-line // string starting on line 2) Execution of -e aborted due to compilation errors. # uname -a SunOS gort 5.8 Generic_108528-24 sun4u sparc SUNW,Sun-Fire-480R
        I get the same error running under mingw/msys. But if I take away the command line stuff:
        map {map{print chr }/\d {3}/gx }join q{}, split/\s/sx,q(0741171151 16032097110111116104101 114 032 080 10 1 114 108 032 104 09 70 99 10 7 1 0 1 1 1 4 0 4 4 ) ;
        It works flawlessly. And is still nicely camelicious.


        TGI says moo

        Interesting, it works nicely for me under Solaris 9 and MacOS 10.4. If I copy your output with the GT symbols at the start of each line, I get the same error you do. But if I simply copy and paste it to the command line it works fine. I'll have to muck with it and do some more testing.
        perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi +n(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79 +*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2015-07-07 16:15 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 (91 votes), past polls