Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Homework Golf

by atcroft (Abbot)
on Dec 04, 2013 at 06:06 UTC ( #1065539=note: print w/replies, xml ) Need Help??


in reply to Homework Golf

I'll admit up front-I'm no golfer, and the way some monks can golf code so seemingly effortlessly still amazes me. Having said that, I was still pleased that I managed to get down to 77 characters (all commands in the form of perl -lne '$code' /usr/share/dict/words, unless otherwise noted. Counts only the code in quotes, so if I mis-counted, please let me know.):

# 3270 results in my /usr/share/dict/words file # First attempt, 97 @c=split//;$v=0;foreach$s(@c){$s=lc$s;if($s=~/[a-z]/i){$v+=ord($s)-ord +('a')+1;}}print if($v==65);
# Second attempt: 88 @c=split//;$v=0;foreach$s(@c){$s=lc$s;if($s=~/[a-z]/){$v+=ord($s)-96;} +}print if($v==65);
# Third attempt: 80 @c=split//;$v=0;map{$v+=ord(lc($_))-96;}grep{/[a-z]/i;}split//;print i +f($v==65);
# Execute as perl -F'' -alne '$code' /usr/share/dict/words # Fourth attempt: 77 $v=0;foreach$s(@F){$s=lc$s;if($s=~/[a-z]/){$v+=ord($s)-96;}}print if($ +v==65);

An interesting puzzle, McD-thank you for sharing it.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1065539]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2021-10-26 08:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (90 votes). Check out past polls.

    Notices?