Help for this page

Select Code to Download

Select or download this

sub benchmark_routine
{
...
          unless (($testFn->($sentence, $wantedLetters))==$expectedRes
+ult);
    }
}

Select or download this

sub RMGir_indexNot {
    my ($sentence, $wantedLetters)=@_;
...
    return !(grep index($sentence,$_)<$[,
                                  split //,$wantedLetters);
}