Update rosalind/iev-grondilu.pl

grondilu · grondilu · commit 989cd3dea539 · 2012-12-04T12:57:57.000+01:00
shorter version
diff --git a/rosalind/iev-grondilu.pl b/rosalind/iev-grondilu.pl
@@ -1,13 +1,4 @@
 use v6;
 
-given $*IN.get.split: " " {
-    say 2 * [+]
-    .[0],             # AA AA
-    .[1],             # AA Aa
-    .[2],             # AA aa
-    (3/4 * .[3]),     # Aa Aa
-    (1/2 * .[4]),     # Aa aa
-    0,                # aa aa
-    ;
-}
-# vim: ft=perl6
+say 2 * [+] <1 1 1 3/4 1/2 0> Z*  $*IN.get.split: " ";
+
