Perl有求绝对值的操作或者函数吗
答案:3 悬赏:0 手机版
解决时间 2021-02-08 22:25
- 提问者网友：记得曾经
- 2021-02-08 10:14
Perl有求绝对值的操作或者函数吗
最佳答案
- 五星知识达人网友：动情书生
- 2021-02-08 10:23
试试这个方法：my @a = (1, 2, 3, 4, 5);
sub average{
my $aver = 0;
map{$aver += $_} @_;
$aver /=($#_+1)
}
print average(@a);
sub average{
my $aver = 0;
map{$aver += $_} @_;
$aver /=($#_+1)
}
print average(@a);
全部回答
- 1楼网友：你可爱的野爹
- 2021-02-08 12:05
abs就可以啊abs(-1)
再看看别人怎么说的。
- 2楼网友：怙棘
- 2021-02-08 11:08
$x = -2.5;
print abs ($x); # 2.5
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯