A Maple egy fejlett matematikai problémamegoldó és programozói szoftver.
-
xDJCx #350
Egy másik megoldás erre, egy fokkal egyszerűbb, mert van egy tau nevű függvény is a numtheory csomagban, amely a pozitiv osuztók számát adja közvetlenül.
koszto2:=proc(k::posint,Maxszam::posint)
local n,q:
for n from 1 to Maxszam do
if k=numtheory[tau](n) then break:end if:
end do:
return ['szám'=n,'osztók_száma'=k];
end proc;
koszto2(12,10^12);
[szám = 60, osztók_száma = 12]