24 lines
356 B
Text
24 lines
356 B
Text
(mean1=
|
|
sum length n
|
|
. 0:?sum:?length
|
|
& whl
|
|
' ( !arg:%?n ?arg
|
|
& 1+!length:?length
|
|
& !n+!sum:?sum
|
|
)
|
|
& !sum*!length^-1
|
|
);
|
|
|
|
(mean2=
|
|
sum length n
|
|
. 0:?sum:?length
|
|
& !arg
|
|
: ?
|
|
( #%@?n
|
|
& 1+!length:?length
|
|
& !n+!sum:?sum
|
|
& ~
|
|
)
|
|
?
|
|
| !sum*!length^-1
|
|
);
|