summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-10-20 06:41:34 -0500
committerJesse Luehrs <doy@tozt.net>2012-10-20 06:41:34 -0500
commitbf7256e844ed6408b848f4f5f4cb9925282b9c6e (patch)
tree92f472a0b10952f17c5968daf49220bedb7e6ac4
parentb63cd2deb6d148db96bb29caedfddad4cd00d334 (diff)
downloadrosalind-bf7256e844ed6408b848f4f5f4cb9925282b9c6e.tar.gz
rosalind-bf7256e844ed6408b848f4f5f4cb9925282b9c6e.zip
another solution
-rw-r--r--PRTM.pl31
1 files changed, 31 insertions, 0 deletions
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 };