Module:Math functions
Εμφάνιση
![Documentation icon](http://upload.wikimedia.org/wikipedia/commons/thumb/4/43/Test_Template_Info-Icon_-_Version_%282%29.svg/50px-Test_Template_Info-Icon_-_Version_%282%29.svg.png)
Μπορείτε να συμβάλλετε στη δημιουργία σελίδας τεκμηρίωσης για αυτό το Scribunto module. Οι συντάκτες μπορούν να πειραματίζονται στο πρόχειρο (δημιουργία | αντίγραφο) και στις δοκιμαστικές σελίδες (δημιουργία) του module. Παρακαλούμε να προσθέτετε τις κατηγορίες στην υποσελίδα τεκμηρίωσης. Υποσελίδες αυτού του module. |
-- misc math functions
-- gts-tg@elwiki, Nov 2017
local p = {}
-- calculate gcd
local function _gcd(a,b)
if b ~= 0 then
return _gcd(b, a % b)
else
return math.abs(a)
end
end
-- return gcd
function p.gcd(frame)
local a = frame.args[1]
local b = frame.args[2]
return _gcd(a,b)
end
-- return φ(n)
function p.phi(frame)
local n = frame.args[1]
local amount = 0
for k=1, n + 1 do
if _gcd(n, k) == 1 then
amount = amount + 1
end
end
return amount-1
end
return p