Question

我正在尝试使用一个变量，并一步为其分配一个表达式：

给定的（样本）代码

my @l=<a b c d e f g h i j k>;
my $i=0;
while $i < 7 {
    say @l[$i];
    $i= ($i+1) * 2;
}

# Output:
# a
# c
# g

所需的功能：

my @l=<a b c d e f g h i j k>;
my $i=0;
say @l[$i =~ ($i+1) * 2] while $i < 7;
# Here, first the @l[$i] must be evaluated 
# then $i must be assigned to the expression
# ($i+1) * 2 
# (The =~ operator is selected just as an example)

# Output:
# The same output as above should come, that is:
# a
# c
# g

在使用变量$i之后，应（一步）为其分配（样本）表达式($i+1) * 2，并且该表达式应仅在数组索引内 { {1}}，即@l[$i =~ ($i+1) * 2]的参数应该不更改。

在这里，我以Regex方程运算符while（检查并分配运算符，AFIAK）为例。在这种情况下，它当然行不通。我是否需要任何操作员或某种解决方法来实现该功能？谢谢。

Answer 1

你是说，像这样？

my @l = <a b c d e f g h i j k>; 
say @l[ 0, (* + 1) * 2 ...^ * > 7 ]; # says a c g;

更加详细：

my @l = <a b c d e f g h i j k>; 
say @l[ 0, -> $i { ($i + 1) * 2 } ...^ -> $i { $i > 7 } ];

甚至

my sub next-i( $i ) { ($i + 1) * 2 };
my sub last-i( $i ) { $i > 7 };

my @l = <a b c d e f g h i j k>; 
say @l[ 0, &next-i ...^ &last-i ];

编辑：或者，如果如下面的注释所示，您事先知道了元素的数量，则可以删除结尾块并（简化？）为

say @l[ (0, (* + 1) * 2 ... *)[^3] ];

编辑：

使用变量并一步为其分配一个表达式

好吧，赋值的结果就是赋值，如果这就是您想要的/想要的，那么如果您坚持使用while循环，那么这可能对您有用。

my @l = <a b c d e f g h i j k>; 
my $i = -1; say @l[ $i = ($i + 1) * 2 ] while $i < 3;

Answer 2

my @l=<a b c d e f g h i j k>;
my $i=0;
say @l[($=$i,$i=($i+1)*2)[0]] while $i < 7'

a
c
g

使用$作弊。否则，它将无法正常工作...

我本以为($i,$i=($i+1)*2)[0]会成功的。

在Raku中一步使用一个变量并为其分配一个表达式

2 个答案: