Question

用perl写一个程序 解决这类问题 举个简单例子 就是 错位相减 为什么我的程序只能算出2和3呢？

最简单化的问题0 2 3
0 2 3
2 1
3
我的程序是这样的：
#! /usr/local/bin/perl
$ARGV=<STDIN>; #就是输入一个数列 也就是上面的0，2，3
chop($ARGV);
@argv=split(/\,/,$ARGV);
$count=scalar(@argv); #统计这个数组的元素个数 下面会用到
print("the array has $count elements\n");
print("the first number in the array is $argv[0]\n");
$i=1;
$j=0;
foreach (@argv)
{if($i<$count and $j<$count-1)
{
$item=$argv[$i]-$argv[$j];
print($item);
$i=$i+1;
}
}
求高手指教 我还要在哪里添加什么 才可以输出 2,3,1呢？

Answer 1

你能不能说说你是想怎么错位相减呢，举个数学的例子的，怎么0,2,3错位相减就成2,3,1了？程序本身不会很难，只要我清楚你想做什么。
另外一个建议啊，argv这个词不要自己用，因为其本身有意义，用了之后虽然没有错误，但是让人读起来就会很别扭，过些时间你自己也看不懂了。

追问

就是用2减去0是2，用3减去0是3 再用3减去2是1 就是0 2 3 要通过这个程序去求出2，3,1。
0 2 3
2 1
3
恩恩 我会接受建议的 初学者嘛

Answer 2

for $i(1..$count-1){
for $j($i+1..$count){
print $argv[$j]-$argv[$i],' ';
}
print "\n";
}

追问

perl里面可以这样写么？

追答

当然可以了