Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Combinaison de listes
#1
Suite à proc Tcl : generation : nbre listes variables avec nbre elem variables, je diffuse ici la petite fonction de combinaison de listes:
tcl
proc combination {head args} {
   if {[llength $args]==0} { return $head }
   set tail [eval combination $args]
   foreach a $head {
      foreach b $tail {
         lappend out [concat $a $b]
      }
   }
   lappend out
   return $out
}



Cette procédure nécessite de recevoir au moins une liste en argument.
Utilisation :
tcl
set l1 { "abc1" "abc2" "abc3" }
set l2 { "def1" "def2" }
set l3 { "ghi1" "ghi2" "ghi3" }
 
putlog [combination $l1 $l2 $l3]


  Répondre


Sujets apparemment similaires...
Sujet Auteur Réponses Affichages Dernier message
  Différence entre deux listes CrazyCat 2 2,879 21/10/2020, 20:26
Dernier message: BdS
  Intersection de listes CrazyCat 2 1,665 21/10/2020, 20:24
Dernier message: BdS

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)