Encore une contribution du Yoda des Whizzlets [1].

Cette commande (qui est/sera dans Tcl 8.5) retourne (au sens propre) la liste reçue en argument.

 proc ::lreverse list {
    set res {}
    set i [llength $list]
    while {$i > 0} {lappend res [lindex $list [incr i -1]]}
    set res
 }

---

Voir également :

list, lsearch, lremove, lreverse, lset

---

Mis à jour le 19 septembre 2012 à 12:50 CEST par Stéphane Aulery