method rotor(*@cycle, Bool() :$partial)

rotor 返回一個 list, 這個 list 的元素也是 list, 其中每個子列表由調用者中的元素組成. 在最簡單的情況下, @cycle 只包含一個整數, 這時調用者列表被分割為多個子列表, 每個子列表中的元素盡可能多的為那個整數指定的個數. 如果 :$partial 為 True, 不夠分的最后那部分也會被包括進去, 即使它不滿足長度的要求:

say ('a'..'h').rotor(3).join('|'); # a b c|d e f
say ('a'..'h').rotor(3, :partial).join('|'); # a b c|d e f|g h

如果 @cycle 的元素是一個 [/type/Pair](file:///type/Pair), 則 pair 的鍵指定了所返回子列表的長度(即每個子列表中含有的元素數), pair 的鍵值指定兩個列表之間的間隙; 負的間隙會產生重疊:

say ('a'..'h').rotor(2 => 1).join('|'); # a b|d e|g h
say ('a'..'h').rotor(3 => -1).join('|'); # a b c|c d e|e f g
> my $pair  = 2 => 1;> my $key   = $pair.key;> my $value = $pair.value;
> say ('a'..'h').rotor($key => $value).join('|') # a b|d e|g h

如果 @cycle 的元素個數大于 1 時, rotor 會按 @cycle 中的元素依次循環調用者列表, 得到每個子列表:

say ('a'..'h').rotor(2, 3).join('|'); # a b|c d e|f g
say ('a'..'h').rotor(1 => 1, 3).join('|'); # a|c d e|f

組合多個循環周期 和 :partial 也有效:

say ('a'..'h').rotor(1 => 1, 3 => -1, :partial).join('|'); # a|c d e|e|g h

注意, 從 rotor 函數返回的一列列表們賦值給一個變量時會展開為一個數組:

my @maybe_lol = ('a'..'h').rotor(2 => 1);@maybe_lol.perl.say;   #  ["a", "b", "d", "e", "g", "h"]<>

這可能不是你想要的, 因為 rotor 之后的輸出看起來是這樣的:

say ('a'..'h').rotor(2 => 1).perl; # (("a", "b"), ("d", "e"), ("g", "h"))

要強制返回列表的列表, 使用綁定而非賦值:

my @really_lol := ('a'..'h').rotor(2 => 1);@really_lol.perl.say;   # (("a", "b"), ("d", "e"), ("g", "h"))