Différences

Ci-dessous, les différences entre deux révisions de la page.

--- tcl:lsort [2024/05/12 15:54] – [Exemples] crazycat
+++ tcl:lsort [2025/03/10 14:11] (Version actuelle) – crazycat
@@ Ligne 36: / Ligne 36: @@
 puts [lshuffle $abc]
 # p g l x c b r y h o t j z d q w s k a v i f n u m e</code>
+Un autre exemple utilisant **-index**:
+<code tcl># list of users: nick, words, lines
+set random {
+   {albert 45 8}
+   {hector 4 2}
+   {gwenaelle 84 18}
+   {myriam 64 4}
+}
+proc order {ulist {type ""}} {
+   switch -nocase $type {
+      words { set idx 1; set opt "-integer" }
+      lines { set idx 2; set opt "-integer" }
+      default { set idx 0; set opt "-nocase" }
+   }
+   return [lsort $opt -index $idx $::random]
+}
+puts "order by names"
+foreach l [order $random] {
+   puts "[lindex $l 0] as [lindex $l 1] words and [lindex $l 2] lines"
+}
+puts "order by words"
+foreach l [order $random words] {
+   puts "[lindex $l 0] as [lindex $l 1] words and [lindex $l 2] lines"
+}
+puts "order by lines"
+foreach l [order $random lines] {
+   puts "[lindex $l 0] as [lindex $l 1] words and [lindex $l 2] lines"
+}</code>
 ===== Voir aussi =====
 [[:tcl:list]]
 {{tag>tcl Listes}}