From 8c6f7b70f9923bc720ef23f81dfe1c8122d59553 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Thu, 13 Feb 2014 16:13:35 -0800 Subject: [PATCH] add scrabble score --- scrabble_score | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100755 scrabble_score diff --git a/scrabble_score b/scrabble_score new file mode 100755 index 0000000..92ef5ef --- /dev/null +++ b/scrabble_score @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use warnings; +use strict; + +my %tile_values = ('a' => 1, 'b' => 3, 'c' => 3, 'd' => 2, + 'e' => 1, 'f' => 4, 'g' => 2, 'h' => 4, + 'i' => 1, 'j' => 8, 'k' => 5, 'l' => 1, + 'm' => 3, 'n' => 1, 'o' => 1, 'p' => 3, + 'q' => 10, 'r' => 1, 's' => 1, 't' => 1, + 'u' => 1, 'v' => 4, 'w' => 4, 'x' => 8, + 'y' => 4, 'z' => 10, "\*" => 0); + +use List::Util qw(sum); + +while (<>) { + chomp; + my $score = sum(map {$tile_values{lc($_)}} split //); + print $score . ' '.$_."\n"; +} -- 2.39.2