FactPremierSyntaxeFactPremier(n)
Décompose un entier en facteurs premiers. Le paramètre est au format nombre, le résultat est au format liste.
Adapté d'après mickay.jill@9online.fr
ExempleFactPremier(255)
---> {3, 5, 17} Scripton FactPremier(n)
set temp to ListePremiers(1, n)
set factPrem to {}
set max to count of temp
set i to 1
repeat while i < max
if n mod (item i of temp) = 0 then
set factPrem to factPrem & (item i of temp)
set n to n div (item i of temp)
else
set i to i + 1
end if
end repeat
if factPrem = {} then
return n
else
return factPrem
end if
end FactPremier
RemarqueUtilise ListeDiviseurs , ListePremiers et ZeroDouble .
|