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.
