in reply to Re^2: Perl Golf idea
in thread Perl Golf idea
One character less:
And if you don't mind the (second) argument getting printed, another 3 chars less:perl -nlE'sub w{[sort/./g]}INIT{$w=w$_=pop}$w~~w&&say' ./dict.txt acer +t
perl -nlE'sub w{[sort/./g]}$w||=w$_=pop;$w~~w&&say' ./dict.txt acert
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: Perl Golf idea
by brx (Pilgrim) on May 01, 2012 at 20:58 UTC | |
by thundergnat (Deacon) on May 02, 2012 at 17:08 UTC |
In Section
Seekers of Perl Wisdom