求教~~数组底加减运算

sumin_0527

UID: 26879
帖子: 2
积分: 4
在线时间: 10 分钟

1^# sumin_0527 发表于 2008-03-25 10:23

求教~~数组底加减运算

老大们~

怎么对2个数组进行加减运算阿?

@a=(5,8,12,4,5,7,9);
@b=(2,0,6,2,0,2,5);

我想得到 @a 和 @b 的差值如:

@c=(3,8,6,2,5,5,4);

这个有什么好的方法没阿??

我用循环遍历的方法,觉得写的好罗嗦阿....

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

2^# hitsubunnu 发表于 2008-03-25 12:07

[Copy to clipboard] [ - ]

CODE:

@a=(5,8,12,4,5,7,9);
@b=(2,0,6,2,0,2,5);

$length = @a;
for(0..$length){
$tmp = $a[$_]-$b[$_];
push @c,$tmp;
}
print @c;

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

3^# churchmice 发表于 2008-03-25 12:07

QUOTE:

原帖由 sumin_0527 于 2008-3-25 10:23 发表
老大们~

怎么对2个数组进行加减运算阿?

@a=(5,8,12,4,5,7,9);
@b=(2,0,6,2,0,2,5);

我想得到 @a 和 @b 的差值如:

@c=(3,8,6,2,5,5,4);

这个有什么好的方法没阿??

我用循环遍 ...

其实都一样的

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
my @a = qw ( 5 8 12 4 5 7 9);
my @b = qw (2 0 6 2 0 2 5);
my @c = map { $a[$_] - $b[$_]} 0..@a -1;
print "@c\n";

sumin_0527

UID: 26879
帖子: 2
积分: 4
在线时间: 10 分钟

4^# sumin_0527 发表于 2008-03-25 12:25

谢谢大侠们~~~

比我写的简单多了阿~~谢谢了~~~

odacharlee

UID: 7090
帖子: 37
积分: 85
在线时间: 2 小时

5^# odacharlee 发表于 2008-03-27 00:17

TMTOWTDI，perl的精神

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

6^# __lxmxn__ 发表于 2008-03-27 00:20

QUOTE:

原帖由 odacharlee 于 2008-3-27 00:17 发表
TMTOWTDI，perl的精神

what 's the meanings ?

odacharlee

UID: 7090
帖子: 37
积分: 85
在线时间: 2 小时

7^# odacharlee 发表于 2008-03-27 00:40

google一下就知道了

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

8^# __lxmxn__ 发表于 2008-03-27 03:39

There is more then one way to do it !!!