切成每段n个元素的列表
# Perl 6 code
my $a-array = (3,4,5, 7,8,9, 12,13,14, 15);
$a-array.rotor(3,True) # 每三个元素一组, True表示多出来的也单独一个组
# gets ((3 4 5) (7) (8 9 12) (13)) #二位数组
切成每段n个元素的列表
# Perl 6 code
my $a-array = (3,4,5, 7,8,9, 12,13,14, 15);
$a-array.rotor(3,True) # 每三个元素一组, True表示多出来的也单独一个组
# gets ((3 4 5) (7) (8 9 12) (13)) #二位数组