Re^3: ACA JAPH

in reply to Re^2: ACA JAPH
in thread ACA JAPH

<shameless plug>
There's a number of tips and techniques listed in Perl Golf 101 as well as in the comments to that node.
</shameless plug>

--chargrill

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]

Comment on Re^3: ACA JAPH Select or Download Code

Replies are listed 'Best First'.
Re^4: ACA JAPH by eyepopslikeamosquito (Bishop) on Aug 18, 2007 at 23:09 UTC
Wow, that's a nice node that I wasn't previously aware of. The basic shortenings I made were: all variable names one char in length eliminate variables where you can removed quotes from strings (e.g. `"FRED"` -> `FRED`) `$x=1;$y=1` -> `$x=$y=1` `shift` -> `pop` in subs removed `return` in subs `split //` -> `/./g` `for {...}` -> `... for` `if {...}` -> `... or ...` `' '` -> `$"` These all seem to be mentioned in Perl Golf 101, except perhaps the last one. BTW, I've added Perl Golf 101 to the list of references in The Lighter Side of Perl Culture (Part IV): Golf.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: ACA JAPH
by eyepopslikeamosquito (Bishop) on Aug 18, 2007 at 23:09 UTC

Wow, that's a nice node that I wasn't previously aware of. The basic shortenings I made were:

all variable names one char in length
eliminate variables where you can
removed quotes from strings (e.g. "FRED" -> FRED)
$x=1;$y=1 -> $x=$y=1
shift -> pop in subs
removed return in subs
split // -> /./g
for {...} -> ... for
if {...} -> ... or ...
' ' -> $"

Perl Golf 101

The Lighter Side of Perl Culture (Part IV): Golf

[reply]
[d/l]
[select]

In Section Obfuscated Code