RosettaCodeData/Task/Nth-root/EasyLang/nth-root.easy

func power x n .
   r = 1
   for i = 1 to n : r *= x
   return r
.
func nth_root x n .
   r = 2
   repeat
      p = power r (n - 1)
      d = (x / p - r) / n
      r += d
      until abs d < 0.0001
   .
   return r
.
numfmt 0 4
x = power 3.1416 10
print nth_root x 10
print nth_root 2 2
print nth_root 81 4
Data update 2023-09-16 17:28:03 -07:00			`func power x n .`
Initial data commit 2023-07-01 11:58:00 -04:00			`r = 1`
Data update 2025-06-11 20:16:52 -04:00			`for i = 1 to n : r *= x`
Data update 2023-09-16 17:28:03 -07:00			`return r`
Initial data commit 2023-07-01 11:58:00 -04:00			`.`
Data update 2023-09-16 17:28:03 -07:00			`func nth_root x n .`
Initial data commit 2023-07-01 11:58:00 -04:00			`r = 2`
			`repeat`
Data update 2023-09-16 17:28:03 -07:00			`p = power r (n - 1)`
Initial data commit 2023-07-01 11:58:00 -04:00			`d = (x / p - r) / n`
			`r += d`
			`until abs d < 0.0001`
			`.`
Data update 2023-09-16 17:28:03 -07:00			`return r`
Initial data commit 2023-07-01 11:58:00 -04:00			`.`
Data update 2025-06-11 20:16:52 -04:00			`numfmt 0 4`
Data update 2023-09-16 17:28:03 -07:00			`x = power 3.1416 10`
			`print nth_root x 10`
Data update 2025-06-11 20:16:52 -04:00			`print nth_root 2 2`
			`print nth_root 81 4`