如何在 Perl 中对数字求平方？

Question

我有代码可以打印出前 9 个平方数：

#!/usr/local/bin/perl

for($i=1;$i<10 ;$i++ )
{
   printf $i^2 . "\n";
}

但由于某种原因，这只是输出 30167451011。我如何正确地平方一个数字？

Answer 1

要平方，您必须使用 $i**2

#!/usr/local/bin/perl

for ( my $i = 1; $i < 10; $i++ ) {
    print $i**2 . "\n";
}

这将输出：

1
4
9
16
25
36
49
64
81

Answer 2

要解释原始代码中发生的事情，您需要知道 3 件事：首先， ^是 perl 中的 XOR 运算符，因为它是 C 中的 XOR 运算符。

1 ^ 2 = 3
2 ^ 2 = 0
3 ^ 2 = 1
4 ^ 2 = 6
...

其次， ^运算符的优先级低于字符串连接运算符. 所以$i^2 . "\\n" $i^2 . "\\n"相当于$i ^ (2 . "\\n")

第三，perl 根据需要在字符串和数字之间进行转换。 . 运算符两边都需要字符串，所以2被转换为"2"并与"\\n"连接成为字符串"2\\n" 。

然后^运算符需要两边都有数字，所以字符串"2\\n"被转换为一个数字 - 通过取前导数字部分并丢弃其余部分。 所以$i ^ 2 . "\\n"的结果$i ^ 2 . "\\n" $i ^ 2 . "\\n"最终与$i ^ 2相同。 您的"\\n"根本没有任何效果，因此所有结果都打印出来，它们之间没有任何内容。 3 , 0 , 1 , 6 , ... 变成了3016 ...

Answer 3

^是按位异或运算符

要平方一个数字，您需要指数运算符**

for my $i ( 1 .. 9 ) {
    print $i**2, "\n";
}

输出：

1
4
9
16
25
36
49
64
81

Answer 4

foreach my $i (1..9){
   say $i**2;
}

Answer 5

它也可以通过这样做来实现：

for (1..9) {
   print $_*$_,"\n"
}

输出：

1
4
9
16
25
36
49
64
81

Answer 6

您可以使用下面的代码来获取正方形。

print $_**2,"\n" for 1..10;