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


Exportation html + Classement des infos.
#4
Bon, alors en cherchant un peu, j'ai trouvé des fonctions de bubble sort:

tcl
proc bubble_sort {a} {
   if {[llength $a] >= 2} {
     for {set i [expr [llength $a]-1]} {$i > 0} {incr i -1} {
       set has_swapped "FALSE"
       for {set j 0} {$j < $i} {incr j} {
         if {[lindex $a $j] > [lindex $a [expr $j + 1]]} {
           set temp [lindex $a $j]
           set a [lreplace $a $j $j [lindex $a [expr $j + 1]]]
           set a [lreplace $a [expr $j + 1] [expr $j + 1] $temp]
           set has_swapped "TRUE"
         }
       }
       if {$has_swapped == "FALSE"} {
         break
       }
     }
   }
   return $a
 }


tcl
package require Tcl 8.5
package require struct::list
 
proc bubblesort {A} {
    set len [llength $A]
    set swapped true
    while {$swapped} {
        set swapped false
        for {set i 0} {$i < $len - 1} {incr i} {
            set j [expr {$i + 1}]
            if {[lindex $A $i] > [lindex $A $j]} {
                struct::list swap A $i $j
                set swapped true
            }
        }
        incr len -1
    }
    return $A
}
 
puts [bubblesort {8 6 4 2 1 3 5 7 9}] ;# => 1 2 3 4 5 6 7 8 9

Ca ne va peut-être pas aider, je vais chercher s'il y a des fonctions plus utiles pour le cas de notre demandeur
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Messages In This Thread
Exportation html + Classement des infos. - by SUndayEveniing - 01/03/2011, 11:10
RE: Exportation html + Classement des infos. - by CrazyCat - 01/03/2011, 22:14

Possibly Related Threads…
Thread Author Replies Views Last Post
  [Demande] msg d'infos entre 2 bots Maxwell 2 2,869 09/10/2017, 14:15
Last Post: Maxwell
  [Demande] Récupérer certaines infos dans fichier .user Hitsu 5 5,052 30/07/2013, 17:13
Last Post: CrazyCat
  [Recherche] TCL pour récupérer des infos sur un site Maxwell 14 8,648 04/05/2013, 10:50
Last Post: Maxwell
  recuperer les infos d'une page web loulou7593 0 3,601 23/12/2011, 00:20
Last Post: loulou7593

Forum Jump:


Users browsing this thread: 1 Guest(s)