Use default data input for afrq rosalind example

Raku · Feb 28, 2015 · bb55df5 · bb55df5
1 parent 1f15ddd
commit bb55df5
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/rosalind/afrq-grondilu.pl b/rosalind/afrq-grondilu.pl
@@ -1,10 +1,12 @@
 use v6;
 
-my @A = get.split(' ')».Num;
+sub MAIN($data-string = "0.1 0.25 0.5") {
+    my @A = $data-string.split(' ')».Num;
 
-sub afrq($r) { 1 - (1 - sqrt $r)**2 }
+    say @A».&afrq.fmt('%.3g');
+}
 
-say @A».&afrq;
+sub afrq($r) { 1 - (1 - sqrt $r)**2 }
 
 # 0.532 0.75 0.914