LCSQ with NativeCall

Raku · Mar 2, 2013 · 52eed22 · 52eed22
1 parent 04215ab
commit 52eed22
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/rosalind/lcsq-grondilu.pl b/rosalind/lcsq-grondilu.pl
@@ -0,0 +1,9 @@
+use NativeCall;
+sub lcsq(Str $, Str $ --> Str) is native('./lcsq') {*}
+
+say lcsq |gather for slurp.match:
+/ ^^ '>Rosalind_' <digit>+ \n (<[\nACGT]>*) /, :g {
+    take ~.[0].subst(/\n/,'', :g);
+}
+
+# vim: ft=perl6