Subarray
1234567891011121314151617
my @big = ^1000000;
my @small = 50 .. 55;
multi comp([], @) { True }
multi comp(($f, *@rest), ($ where * === $f, *@rest2)) {
comp(@rest, @rest2)
}
multi comp($, $) { False }
sub subarray(@small, @big) {
for 0 .. (@big - @small) {
return True if comp @small, @big[$_..$_+@small]
}
False
}
say subarray @small, @big
Raku
INFO