9 lines
234 B
PostScript
9 lines
234 B
PostScript
/numbers {[1 10] 1 range}.
|
|
/recip {1 exch div}.
|
|
|
|
% Arithmetic mean
|
|
numbers dup 0 {+} fold exch length div
|
|
% Geometric mean
|
|
numbers dup 1 {*} fold exch length recip exp
|
|
% Harmonic mean
|
|
numbers dup 0 {recip +} fold exch length exch div
|