http://qs321.pair.com?node_id=412688

The algorithm present in this JAPH is a variation on another JAPH I wrote, although the look is quite different. It only has one trick that I consider surprising, but I thought the formatting turned out rather nice. 

s oohaa ctkseurjogis;
s ii rpeehrtlo nisom;
+$ -= + split  $ +; ;
print + splice @ ## ;
_  => + $ ---, $ ++ 1
while + $ ---- $ ++ @
      _

[download]

Replies are listed 'Best First'.
Re: Variation on a (JAPH) theme
by jdalbec (Deacon) on Dec 07, 2004 at 03:12 UTC
    Some documentation, some code modifications to try: 
    s oohaa ctkseurjogis;
#print "$_\n";
s ii rpeehrtlo nisom;
#print "$_\n";
+$ -= + split  $ +; ;
=pod
split  In scalar context, returns the number of fields found and
       splits into the @_ array.  Use of split in scalar context is
       deprecated, however, because it clobbers your subroutine argu-
       ments.

$-     The number of lines left on the page of the currently selected
       output channel.  Used with formats.  (Mnemonic: lines_on_page -
       lines_printed.)
=cut
#$\ = $/; do {local $\; print "$- "},
print + splice @ ## ;
_  => + $ ---, $ ++ 1
while + $ ---- $ ++ @
      _

    [download]
    In My 1st post (japh) I saw 0-1=1 using $|. Now I see 0-1=0 using $-. You and blazar should write a tutorial on "special properties of special variables".
[reply]
[d/l]
[select]
      Indeed I discovered the special property of $| while developing that JAPH. Someone pointed out that it's well known to golfers who often spot it to alternate between two values...
[reply]
Re: Variation on a (JAPH) theme
by blazar (Canon) on Dec 10, 2004 at 13:32 UTC
    Indeed it's not too hard to understand, but it looks really nice. I'm *slightly* bothered by the missing ",\n" and I prefer s/j(?=ust)/J/ and s/p(?=erl)/P/ anyway. But it's so nice and small and delicate...
[reply]

Back to Obfuscated Code