September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 deletions
--- a/Task/Nth-root/Factor/nth-root.factor
+++ b/Task/Nth-root/Factor/nth-root.factor
@ -0,0 +1,12 @@
+USING: kernel locals math math.functions prettyprint ;
+
+:: th-root ( a n -- a^1/n )
+    a [
+        a over n 1 - ^ /f
+          over n 1 - *
+        + n /f
+        swap over 1e-5 ~ not
+    ] loop ;
+
+34 5 th-root .   ! 2.024397458499888
+34 5 recip ^ .   ! 2.024397458499888