June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Averages-Arithmetic-mean/Oforth/averages-arithmetic-mean.oforth
+++ b/Task/Averages-Arithmetic-mean/Oforth/averages-arithmetic-mean.oforth
@ -1,2 +1,4 @@
-[1, 2, 2.718, 3, 3.142] avg println
-[ ] avg println
+: avg ( x -- avg )
+   x sum
+   x size dup ifZero: [ 2drop null ] else: [ >float / ]
+;