RosettaCodeData/Task/Binary-search/Perl-6/binary-search-1.pl6

sub search (@a, $x --> Int) {
    binary_search { $x cmp @a[$^i] }, 0, @a.end
}