aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Nth-root/AppleScript/nth-root.applescript Normal file
View file

@ -0,0 +1,23 @@
set outPutString to ""
set outPutString to outPutString & nthRoot2(34, 5) & linefeed
set outPutString to outPutString & nthRoot2(42, 10) & linefeed
set outPutString to outPutString & nthRoot2(5, 2) & linefeed
on nthRoot(x, n)
local n1, y, res, abs
set n1 to n - 1
set res to x / n
set abs to x
repeat until abs < 1.0E-14
set y to res
set res to ((n1 * y) + (x / (y ^ n1))) / n
if res > y then
set abs to res - y
else
set abs to y - res
end if
end repeat
set y to res div 1
if res = y then return y
return res
end nthRoot