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/Arithmetic-geometric-mean/Oforth/arithmetic-geometric-mean-1.oforth
+++ b/Task/Arithmetic-geometric-mean/Oforth/arithmetic-geometric-mean-1.oforth
@ -1 +1,2 @@
-: agm  while(2dup <>) [ 2dup + 2 / tor * sqrt ] drop ;
+: agm   \ a b -- m
+   while( 2dup <> ) [ 2dup + 2 / -rot * sqrt ] drop ;