How do I chain to an inline block in Perl 6?
我想修改一個(gè)數(shù)組(我在這個(gè)例子中使用了 splice, 但是它也可能是修改數(shù)組的任何操作)并返回修改后的數(shù)組 - 和 slice 不一樣, slice 返回的是從數(shù)組中摳出的項(xiàng)。我可以很容易地通過在數(shù)組中存儲(chǔ)一個(gè) block 來做到, 就像下面這樣:
my $1 = -> $a { splice($a,1,3,[1,2,3]); $a };
say (^6).map( { $_ < 4 ?? 0 !! $_ } ).Array;
# [0 0 0 0 4 5]
say (^6).map( { $_ < 4 ?? 0 !! $_ } ).Array.$1;
# [0 1 2 3 4 5]
我怎么把由 $1 代表的 block 內(nèi)聯(lián)到單個(gè)表達(dá)式中呢？ 下面的解決方法不正確:
say (^6).map( { $_ < 4 ?? 0 !! $_ } ).Array.(-> $a { splice($a,1,3,[1,2,3]); $a })
Invocant requires a type object of type Array, but an object instance was passed. Did you forget a 'multi'?
解決方法是添加一個(gè) & 符號(hào):
say (^6).map( { $_ < 4 ?? 0 !! $_ } ).Array.&(-> $a { splice($a,1,3,[1,2,3]); $a })
# 輸出 [0 1 2 3 4 5]
Getting a positional slice using a Range variable as a subscript
my @numbers = <4 8 16 16 23 42>;
.say for @numbers[0..2]; # this works
# 4
# 8
# 15
# but this doesn't
my $range = 0..2;
.say for @numbers[$range];
# 16
最后的那個(gè)下標(biāo)看起來好像把 $range 解釋為range中元素的個(gè)數(shù)(3)。怎么回事?
解決方法
使用 @numbers[|$range] 把 range 對(duì)象展平到列表中。或者在 Range 對(duì)象上使用綁定來傳遞它們。
# On Fri Jul 2016, gfldex wrote:
my @numbers = <4 8 15 16 23 42>; my $range = 0..2; .say for @numbers[$range];
# OUTPUT?16?
# expected:
# OUTPUT?4\n 8\n 15?
# 這是對(duì)的, 并且還跟 "Scalar container implies item" 規(guī)則有關(guān).
# Changing it would break things like the second evaluation here:
my @x = 1..10; my @y := 1..3; @x[@y]
# (2 3 4)
@x[item @y]
# 4
# 注意在簽名中 range 可以被綁定給 @y, 而特殊的 Range 可以生成一個(gè)像 @x[$(@arr-param)] 的表達(dá)式
# 這在它的語義中是不可預(yù)期的。
# 同樣, 綁定給 $range 也能提供預(yù)期的結(jié)果
my @numbers = <4 8 15 16 23 42>; my $range := 0..2; .say for @numbers[$range];
# OUTPUT?4
8
15
?
# 這也是預(yù)期的結(jié)果, 因?yàn)槭褂媒壎ň蜎]有標(biāo)量容器來強(qiáng)制被當(dāng)成一個(gè) item 了。
# So, all here is working as designed.
或者：
.say for @numbers[@($range)]
# 4
# 8
# 15
綁定到標(biāo)量容器的符號(hào)輸出一個(gè)東西
可以達(dá)到你想要的選擇包含：
前置一個(gè) @ 符號(hào)來得到單個(gè)東西的復(fù)數(shù)形式：numbers[@$range]; 或者以不同的形式來聲明 ragne 變量, 以使它直接工作。
對(duì)于后者, 考慮下面的形式:
# Bind the symbol `numbers` to the value 1..10:
my \numbers = [0,1,2,3,4,5,6,7,8,9,10];
# Bind the symbol `rangeA` to the value 1..10:
my \rangeA := 1..10;
# Bind the symbol `rangeB` to the value 1..10:
my \rangeB = 1..10;
# Bind the symbol `$rangeC` to the value 1..10:
my $rangeC := 1..10;
# Bind the symbol `$rangeD` to a Scalar container
# and then store the value 1..10 in it:`
my $rangeD = 1..10;
# Bind the symbol `@rangeE` to the value 1..10:
my @rangeE := 1..10;
# Bind the symbol `@rangeF` to an Array container and then
# store 1 thru 10 in the Scalar containers 1 thru 10 inside the Array
my @rangeF = 1..10;
say numbers[rangeA]; # (1 2 3 4 5 6 7 8 9 10)
say numbers[rangeB]; # (1 2 3 4 5 6 7 8 9 10)
say numbers[$rangeC]; # (1 2 3 4 5 6 7 8 9 10)
say numbers[$rangeD]; # 10
say numbers[@rangeE]; # (1 2 3 4 5 6 7 8 9 10)
say numbers[@rangeF]; # (1 2 3 4 5 6 7 8 9 10)
綁定到標(biāo)量容器($rangeD)上的符號(hào)總是產(chǎn)生單個(gè)值。在 [...]下標(biāo)中單個(gè)值必須是數(shù)字。
對(duì)于 range, 被當(dāng)作單個(gè)數(shù)字時(shí), 產(chǎn)生的是 range 的長度。
