From bf7256e844ed6408b848f4f5f4cb9925282b9c6e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 20 Oct 2012 06:41:34 -0500
Subject: another solution

---
 PRTM.pl | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 PRTM.pl

diff --git a/PRTM.pl b/PRTM.pl
new file mode 100644
index 0000000..32bfe8c
--- /dev/null
+++ b/PRTM.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.016;
+
+use List::Util 'sum';
+
+my %mass = qw(
+    A   71.03711
+    C   103.00919
+    D   115.02694
+    E   129.04259
+    F   147.06841
+    G   57.02146
+    H   137.05891
+    I   113.08406
+    K   128.09496
+    L   113.08406
+    M   131.04049
+    N   114.04293
+    P   97.05276
+    Q   128.05858
+    R   156.10111
+    S   87.03203
+    T   101.04768
+    V   99.06841
+    W   186.07931
+    Y   163.06333 
+);
+
+printf "%.2f\n", sum map { $mass{$_} } split '', do { chomp(my $in = scalar <>); $in };
-- 
cgit v1.2.3