langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Averages-Arithmetic-mean/PostScript/averages-arithmetic-mean-1.ps
+++ b/Task/Averages-Arithmetic-mean/PostScript/averages-arithmetic-mean-1.ps
@ -0,0 +1,15 @@
+/findmean{
+/x exch def
+/sum 0 def
+/i 0 def
+x length 0 eq
+{}
+{
+x length{
+/sum sum x i get add def
+/i i 1 add def
+}repeat
+/sum sum x length div def
+}ifelse
+sum ==
+}def
--- a/Task/Averages-Arithmetic-mean/PostScript/averages-arithmetic-mean-2.ps
+++ b/Task/Averages-Arithmetic-mean/PostScript/averages-arithmetic-mean-2.ps
@ -0,0 +1,8 @@
+/avg {
+    dup length
+    {0 gt} {
+       exch 0 {add} fold exch div
+    } {
+        exch pop
+    } ifte
+}.