method rotor(*@cycle, Bool() :$partial)
rotor 返回一個(gè) list, 這個(gè) list 的元素也是 list, 其中每個(gè)子列表由調(diào)用者中的元素組成. 在最簡(jiǎn)單的情況下, @cycle 只包含一個(gè)整數(shù), 這時(shí)調(diào)用者列表被分割為多個(gè)子列表, 每個(gè)子列表中的元素盡可能多的為那個(gè)整數(shù)指定的個(gè)數(shù). 如果 :$partial 為 True, 不夠分的最后那部分也會(huì)被包括進(jìn)去, 即使它不滿足長(zhǎng)度的要求:
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 的元素是一個(gè) [/type/Pair](file:///type/Pair), 則 pair 的鍵指定了所返回子列表的長(zhǎng)度(即每個(gè)子列表中含有的元素?cái)?shù)), pair 的鍵值指定兩個(gè)列表之間的間隙; 負(fù)的間隙會(huì)產(chǎn)生重疊:
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 的元素個(gè)數(shù)大于 1 時(shí), rotor 會(huì)按 @cycle 中的元素依次循環(huán)調(diào)用者列表, 得到每個(gè)子列表:
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
組合多個(gè)循環(huán)周期 和 :partial 也有效:
say ('a'..'h').rotor(1 => 1, 3 => -1, :partial).join('|'); # a|c d e|e|g h
注意, 從 rotor 函數(shù)返回的一列列表們賦值給一個(gè)變量時(shí)會(huì)展開為一個(gè)數(shù)組:
my @maybe_lol = ('a'..'h').rotor(2 => 1);@maybe_lol.perl.say; # ["a", "b", "d", "e", "g", "h"]<>
這可能不是你想要的, 因?yàn)?rotor 之后的輸出看起來是這樣的:
say ('a'..'h').rotor(2 => 1).perl; # (("a", "b"), ("d", "e"), ("g", "h"))
要強(qiáng)制返回列表的列表, 使用綁定而非賦值:
my @really_lol := ('a'..'h').rotor(2 => 1);@really_lol.perl.say; # (("a", "b"), ("d", "e"), ("g", "h"))
