|
 |
|
alias factor {
var %a $1,%b 2,%c
while %b <= $sqrt(%a) {
if ($calc(%a % %b)) inc %b
else {
while !$calc(%a % %b) {
%a = %a / %b
inc %c
}
var %d %d %b $iif(%c > 1,^ %c) *,%c 0
}
}
return $left($remove(%d $iif(%a > 1,%a *),$chr(32)),-1)
}
| |
|
Retour à la liste des snippets
|
Cette annonce est-elle crédible? |
|
|
|
