perl语言,state好像失效了use 5.0.10;use feature 'state';sub average{ my $sum=0; foreach(@_){ $sum+=$_; } my $average=$sum/@_; return $average;}sub above_average{ my $num=0; my $average=&average(@_); my @
来源：学生作业帮助网 编辑：作业帮 时间：2024/10/06 13:18:14
xUn@iHTc'* 6HH džv=vREB"!Vꦪ 3MRV8]!y;{|f[;><8T pp'!FQ5^&A#P"jOW
5 Wh_ qWy%ڙn
^U
&7jr 褘24wu:i{JL Kϝ>hY5AѰd:fbɔ0䄜Va6-651Iȉ%9=jȼlY.vJ@D_ lfP+E ,^TG(`qUCD}ԃ&Ʋ2J`5VgfL &갿K2yrNx; X)> `! sbl;,M)`c {إ =SU[>2U5 ^s;n6r;q@:Ղ`E}`_W Vx8NZg}e֬y
9lw j
MQ"o-0$֨\8Ȣ%K5Y)H%(MQ&tDnT{
z#"M!u
I,)7%$7H\\N5c) }9iist'AF
w> } mnvppkw`9K v@7 #/dwRd
'.QMs:+i=q\