为什么这个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
等等。