[rosalind] FIB solution

Raku · Feb 22, 2013 · cc2ca22 · cc2ca22
1 parent 1ea55bc
commit cc2ca22
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/rosalind/fib-grondilu.pl b/rosalind/fib-grondilu.pl
@@ -0,0 +1,7 @@
+
+my ($n, $k) = get.words;
+my @fib := 1, 1, * * $k + * ... *;
+
+say @fib[$n-1];
+
+# vim: ft=perl6
diff --git a/rosalind/sexl-grondilu.pl b/rosalind/sexl-grondilu.pl
@@ -0,0 +1,4 @@
+use v6;
+
+say map { 2*$^x*(1-$x) }, get.split(' ')».Num;
+