Discussion :

[HRS]

N'y a t-il pas plus simple, pour incrémenter l'élément i d'une liste que l'instruction suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lset mylist $i [expr {[lindex $mylist $i] + 1}]

[Canvas]

Bonsoir,

A priori ce qui rend l'écriture de cette ligne pénible c'est la commande expr {}.
Il est cependant possible de la mettre de côté en utilisant tcl::mathop.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
namespace path {::tcl::mathop}
# La première ligne est à mettre une seule fois en début de code
 
set mylist {0 2 4 6 8 10}
set i 1
lset mylist $i [+ 1 [lindex $mylist $i]]
 
Résultat: 0 3 4 6 8 10

Petite remarque : les opérateurs sont utilisés en notation préfixée car dans le namespace ::tcl::mathop ce sont des commandes.
----
canvas