Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Unbalanced, Introspective Japh

by liverpole (Monsignor)
on Jul 01, 2006 at 01:41 UTC ( #558718=obfuscated: print w/ replies, xml ) Need Help??

"Unbalanced" because of the unmatched parentheses, braces, and brackets.  "Introspective" because ... well, you'll have to figure that out for yourself.

This works with Perl version 5.8.6 (in Linux), and 5.8.7 (in Windows), and possibly with other versions of Perl (though I can't be sure).

My apologies if this has been done before (and please let me know if so).  I came up with the idea just this evening, but one can never be sure whether or not similar prior art exists.

( $ ||= open$ ) ,$ ^X) ;; X :; { $ ;+= print if ($_ = lc getc $)) eq# } ( split$ ,,q#- just another perl hacker# ) [ $ ;]; eof$ ( ?die$ /: redo } 060630# ]


Comment on Unbalanced, Introspective Japh
Download Code
Replies are listed 'Best First'.
Re: Unbalanced, Introspective Japh
by Hue-Bond (Priest) on Jul 01, 2006 at 06:24 UTC
      That's very interesting, and it's different from my system, where there's only a brief, almost undiscernable pause while printing "just", and the program ends immediately after printing the final word.  I'm guessing it's either because I have a faster processor or a different version of Perl.

      It was intentional that I didn't implement any tests which were more likely to depend on the specific version of Perl running, as that might have needlessly broken the program for other versions of Perl.  Which version of Perl *are* you running, by the way?

        Which version of Perl *are* you running

        v5.8.8 built for i486-linux-gnu-thread-multi.

        My perl executable has a size of 1076888 bytes

        David Serrano

Re: Unbalanced, Introspective Japh
by jdalbec (Deacon) on Jul 01, 2006 at 20:55 UTC
Re: Unbalanced, Introspective Japh
by wulvrine (Friar) on Jul 05, 2006 at 11:15 UTC
    Great job as always! I had no idea you could do some of the things in here. You just make it look too easy (*humbled look*)

    s&&VALKYRIE &&& print $_^q|!4 =+;' *|
Re: Unbalanced, Introspective Japh
by starbolin (Hermit) on Jul 16, 2006 at 18:40 UTC

    Sorry for the late post. Does't do anything on either of my systems. Prints a single blank line on v5.8.6 openBSD v3.8 i386 and a single hyphen on v5.8.5 FreeBSD v5.3 i386. I'l look into why later tonight.

    s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2015-10-09 23:16 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (253 votes), past polls