RosettaCodeData/Task/Averages-Arithmetic-mean/Maple/averages-arithmetic-mean-1.maple

5 lines
115 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
mean := proc( a :: indexable )
local i;
Normalizer( add( i, i in a ) / numelems( a ) )
end proc: