两数组相减？

alexru

今有两数组

1. @arrayx=qw(40      61      70      69      64      76      72      71      78      59      71      72      91 79       86      80      80      57      77      36);
   
2. @arrayy=qw(0       0       0       0       0       1       2       0       0       1       1       2       0  12       1       2       0       3       0);
   
3. @difference=sort map {$arrayx[$_]-$arrayy[$_]} 0..$#arrayx;
   
4. print "@difference";
   

复制代码

为什么只能输出，

1. 40

复制代码

?得不到对应项的差呢？

alexru

可以了，谢谢

大大狗

我试了，没问题啊

fengc

@A >>-<< @B;

alexru

原帖由 fengc 于 2006-10-31 13:24 发表
@A >>-<< @B;

perl6出来了吗？