diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-10-20 06:41:34 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-10-20 06:41:34 -0500 |
commit | bf7256e844ed6408b848f4f5f4cb9925282b9c6e (patch) | |
tree | 92f472a0b10952f17c5968daf49220bedb7e6ac4 | |
parent | b63cd2deb6d148db96bb29caedfddad4cd00d334 (diff) | |
download | rosalind-bf7256e844ed6408b848f4f5f4cb9925282b9c6e.tar.gz rosalind-bf7256e844ed6408b848f4f5f4cb9925282b9c6e.zip |
another solution
-rw-r--r-- | PRTM.pl | 31 |
1 files changed, 31 insertions, 0 deletions
@@ -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 }; |