为什么这个Perlone-linerofFibonacci工作?

print$f+=$z=$f-$z,$/for--$z..8

或者,如果将 $z 替换为 $!,则可以执行以下操作。

print$f+=$!=$f-$!for--$!..8

但为什么?$!是错误 perlval,不是吗?

回答

如果我们放一些空间以使其更具可读性:

print $f += $z = $f - $z ,$/ for --$z .. 8

让我们将不同的部分提取到正常代码中。首先,使用常规for循环。

for (--$z .. 8) {
     print $f += $z = $f - $z ,$/
}

前缀-- 自动递减运算符将获取未初始化的变量$z,将其强制转换为 0,减去 1,然后返回-1。这与分配-1$z.

我们从 -1 到 8 循环。这些数字是无关紧要的,因为它们被分配给$_从未使用过的 。基本上我们只循环 10 个步骤。此步骤中使用的变量无关紧要。它可以是任何可以分配的变量,这就是为什么$!——操作系统错误变量也能正常工作。

我们可以将语句简化为

$z = -1;
for (0 .. 9)

打印语句主要打印两件事:

$f += $z = $f - $z

$/

用逗号分隔的两个语句,,表示它是一个列表。预定义的变量$/是输入记录分隔符;默认情况下是换行符(取决于操作系统)。print需要一个参数列表,这就是它的工作方式。print自动换行与say. 所以我们可以交换它并将代码简化为:

say $f += $z = $f - $z

让我们解开那个任务。它基本上是两个语句,从右到左依次执行,以打印结束:

$z = $f - $z
$f += $z
say $f

如果我们把它放在一起,我们得到:

$z = -1;
for (0 .. 9) {       # loop 10 times
    $z = $f - $z;    # calculate increment
    $f += $z;        # increment value
    say $f;          # print value
}

它是这样工作的:

我们知道$z最初-1来自for循环。由于$f从未使用过,它将是未定义的(在减法上下文中使用时将被强制转换为 0)。所以我们得到:

$z = $f - $z = undef - (-1) = 0 + 1 = 1
$f += $z = 1 => $f = $f + 1 => $f = 1

所以第一次循环迭代打印 1。下一轮

$z = $f - $z = 1 - 1 = 0
$f += $z = 0 => $f = $f + 0 = 1 + 0 = 1

下一个打印也是 1。下一回合

$z = $f - $z = 1 - 0 = 1
$f += $z = 1 => $f = $f + 1 = 1 + 1 = 2

等等。


以上是为什么这个Perlone-linerofFibonacci工作?的全部内容。
THE END
分享
二维码
< <上一篇
下一篇>>