+ -
当前位置:首页 → 问答吧 → perl 如何方便的计算上一元素与下一元素之间的变化率

perl 如何方便的计算上一元素与下一元素之间的变化率

时间:2011-02-24

来源:互联网

本帖最后由 ztj2247 于 2011-02-24 16:18 编辑

如有 数组 @a= (1,2,4,5,2,4,5)
想计算第一个元素与第2个元素,第2与第3个元素。。以此类推的变化率,变化率存入数组@b

如何让代码最佳美化。

作者: ztj2247   发布时间: 2011-02-24

  1. my @b = map { $a[$_+1]/$a[$_] - 1 } 0..$#a-1;
复制代码

作者: yybmsrs   发布时间: 2011-02-24