Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (11 sloc) 271 Bytes
use Test;
use List::Utils;
{
my @a = permute((1, 2, 3));
is @a.elems, 6, "(1, 2, 3) has 6 permutations";
}
{
my $a := permute(1..100);
is $a[0].elems, 100, "permute(1..100) is lazy, and the first thing it returns is 100 elements long";
}
done-testing;
Something went wrong with that request. Please try again.