RosettaCodeData/Task/Averages-Arithmetic-mean/J/averages-arithmetic-mean-3.j
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

11 lines
152 B
Text

mean1=: 3 : 0
z=. 0
for_i. i.#y do. z=. z+i{y end.
z % #y
)
mean1 3 1 4 1 5 9
3.83333
mean1 $0
0
mean1 x
0.58243 0.402948 0.477066 0.511155