Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Averages-Pythagorean-means/PostScript/averages-pythagorean-means-2.ps
+++ b/Task/Averages-Pythagorean-means/PostScript/averages-pythagorean-means-2.ps
@ -1,3 +1,9 @@
-Arithmetic Mean : 5.5
-Geometric Mean : 4.52873
-Harmonic Mean : 3.41417
+/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