Help for this page

Select Code to Download

Select or download this

    $seq ~~ m:overlap/ GUAUG /;

    say "Found ", +@$0, " at:";
    say "\t", $_.pos for @$0;

Select or download this

    use Perl6::Rules;
    use Perl6::Say;
...

    say "Found ", scalar(@$0), " at:";
    say "\t", $_->pos for @$0;