Question

我的节目是 -

@arr=('1','1  1');
print "enter the number of rows\n";
$rows=<STDIN>;
$v=0;
while($v<$rows)
{
     foreach $ele (@arr)
        {
          @arr1=split(/\s+/,$ele);
          $g=@arr1;
          #print "$g\n";
          $i=0;
          $j=1;
          $str='';
          while ($j<$g)
             {
                $res=$arr1[$i]+$arr1[$j];
                #print "$res\n";
                $i=$1+1;
                $j=$j+1;
                $str=$str.' '.$res;

            }

        $final='1'.' '.$str.' '.'1';
        print "$final\n";


}
$v=$v+1;
#@arr=();
push(@arr,$final);
}

print "@arr";

foreach (@arr)
{

    print "$_\n";
}

我的输出是：

C:\Perl\bin>perl pascal.pl
enter the number of rows
4
1
1  1
1  2 1
1  3 3 1
1  4 6 4 1
1  5 10 8 5 1

最后一行的8应该是10.但为什么它会来8？

Answer 1

问题在于：

$i=$1+1;

您想使用$i代替$1。

你应该使用warnings，他们会告诉你的。

Answer 2

我做了一个拼写错误。而不是$ i = $ i + 1，我有$ i = $ 1 + 1.

我正在尝试使用perl的pascals三角形。我的输出有点不同。有人可以请指出错误是什么？

2 个答案: