Merge pull request #4 from grondilu/master

Adding two more solutions for Rosalind

Author: grondilu

rosalind/grph-grondilu.pl

@@ -0,0 +1,14 @@
+use v6;
+
+my %dna = gather for
+$*IN.slurp.match( / ^^ '>Rosalind_' (<digit> **4) \n (<[\nACGT]>*) /, :g) {
+    take ~.[0], ~.[1].subst(/\n/,'', :g);
+}
+
+for %dna X %dna -> $a, $b {
+    next if $a.key eq $b.key;
+    say 'Rosalind_' «~« ($a, $b)».key
+    if $a.value.substr(*-3) eq $b.value.substr(0, 3);
+}
+
+# vim: ft=perl6

rosalind/subs-grondilu.pl

@@ -0,0 +1,6 @@
+use v6;
+
+my ($S, $t) = $*IN.lines;
+say gather for $S.match(/$t/, :overlap) { take 1+.from }
+
+# vim: ft=perl6