tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Nth-root/Ursala/nth-root-1.ursala
+++ b/Task/Nth-root/Ursala/nth-root-1.ursala
@ -0,0 +1,8 @@
+#import nat
+#import flo
+
+nthroot =
+
+-+
+   ("n","n-1"). "A". ("x". div\"n" plus/times("n-1","x") div("A",pow("x","n-1")))^== 1.,
+   float^~/~& predecessor+-
--- a/Task/Nth-root/Ursala/nth-root-2.ursala
+++ b/Task/Nth-root/Ursala/nth-root-2.ursala
@ -0,0 +1,9 @@
+#cast %eL
+
+examples =
+
+<
+   nthroot2 2.,
+   nthroot5 34.,
+   nthroot5 pow(34.,5.),
+   nthroot10 pow(7131.5,10.)>