Vos identifiants
Bienvenue
Voir tous les scripts
Pour mirc 6.1 et moins
Pour mirc 6.2
Pour mirc 6.3
Pour mirc 7.1
Top 10
Vous aimez ou détestez
Soumettre un script
Foire aux questions
Forum de discussion



Les bases du Scripting
Le virus "irc.worm.gen"
Le mIRC D'Or
ScreenShots
Le Défi du moment
Tag-moi-ça
Le Pire de l'IRC
L'IRC pour les nuls
Tutoriaux
Configurer UnrealIRCD
Configurer votre box
Attention à l'arnaque!
Usenet et les News
Arrêter de fumer
Un peu d'orthographe
Unreal/Anope Admin
mIRC Script Server
Proxy Web Chat
Magneto for Unreal
Super Poupées
Tour de cartes
L'Equipe
Partenariat
Administration

CodesWall: Déposer et coloriser des codes sources
Web Of Trust
www.chat.exolia.net (Francophone)
fantasya.org (Francophone)
hiersay (francophone)
JhdScript

                                            

$factor
Auteur(s): DixrouE
Date de soumission (Heure française): 13 janvier 2005 (05:04)
Taille du fichier: 294 Octets  
Type du fichier: snippet  
Déjà visualisé: 2511 fois
Poster un commentaire
Mon alias pour un défi de scriptsdb.org qui décompose des nombres naturels en une suite de facteur (69.70.178.***)


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

Si vous le souhaitez, vous pouvez laisser votre commentaire sur ce snippet:  
Vous identifier d'abord
 

Cette annonce est-elle crédible? Cliquez ici pour le savoir