A Maple egy fejlett matematikai problémamegoldó és programozói szoftver.
-
xDJCx #336
A numtheory beépített csomag divisors parancsa egy egész szám pozitív osztóit keresi meg, ennek segítségével egy eljárás (Maple 11-ben):
koszto:=proc(k::posint)
local n,q:
for n from 1 to infinity do
q:=nops(numtheory[divisors](n)):
if k=q then break:end if:end do:
return ['szám'=n,'osztók'=numtheory[divisors](n),'osztók_száma'=q];
end proc;
pl.
koszto(12);
[`szám` = 60, `osztók` = {1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60}, `osztók_száma` = 12]