Visualisation d'un snippet

Snippets

Factorisation en nombre premiers
Auteur(s):	Averell
Date de soumission (Heure française):	11 janvier 2005 (21:33)
Taille du fichier:	329 Octets
Type du fichier:	snippet
Dernière mise à jour le:	12 janvier 2005 (20:39) (2)
Déjà visualisé:	3318 fois
Poster un commentaire
Ceci est le résultat d'un défi sur www.scriptsdb.org dont le but consistait a ecrire le plus petit code optimisé permettant de factoriser un nombre en nombre premiers. L'auteur est Mastersleepe. Taper: //echo 1 -a $factor(N) pour factoriser N. (82.127.179.***)

alias factor {
  var %t tokenize 32,%n $1,%f 2,%c,%r %n ^ .5
  %t 1 2 2 4 2 4 2 4 6 2 6
  while %f <= %r {
    while %f // %n {
      %n = %n / %f
      inc %c
    }
    if (%c) var %s %s %f ^ %c *,%c,%r %n ^ .5
    inc %f $1
    if (%f < 8) %t $2-
    else %t $2- $1
  }
  %f = $regsub(%s %n,/. 1\b| /g,,%r)
  return %r
}

Retour à la liste des snippets

De le 12 janvier 2005 (12:22) (80.13.111.***)

Le but du concours sur scriptsdb.org était d'écrire le code le plus "optimisé" (meilleur compromis taille/performance). Ce code est le code gagnant, ce n'est pas le plus petit qui ait été produit, mais le plus optimisé !