모듈:NumberTheory

이 모듈에 대한 설명문서는 모듈:NumberTheory/설명문서에서 만들 수 있습니다

local getArgs = require('모듈:Arguments').getArgs
local p = {}

function _powerMod( root, expo, modulo )
	local BaseConvert = require( '모듈:BaseConvert' );
	local power = 1;
	local expo2 = BaseConvert.convert({n = expo, base = 2});
	local i;
	for i = 1, #expo2 do
		power = (power * power) % modulo;
		power = power * (root ^ expo2:sub(i,i)) % modulo;
		end
	return power
end

function p.powerMod(frame)
	local args
    if frame == mw.getCurrentFrame() then
        args = frame.args
    else
        args = frame
    end
    
    local root = args.root
    local expo = args.expo
    local modulo = args.modulo
    
    return _powerMod( root, expo, modulo )
end

function _gcd( x, y )
	if ( x == nil or y == nil) then
		return x
	elseif ( x == math.floor(x) and y == math.floor(y) ) then
		local a = math.abs(x);
		local b = math.abs(y);
		local c;
		while c ~= 0 do
			c = a % b;
			a = b;
			b = c;
		end
		return a
	else return x
	end
end
		

function p.gcd(frame)
	local args = getArgs(frame)
	local i = 1
	local gc = args[1]
	while args[i] ~= nil do
		i = i + 1
		gc = _gcd( gc, args[i] )
	end
	return gc
end

return p