% set x [expr pow(16,4)] 65536.0 % set y [ expr 2012%128] 92 % set a [format %X [scan "A" %c]] 41 % set b [scan "FFF" %x ] 4095 % set c [format %d [scan "a" %c] ] 97 % set d [format %c 98] b % set cmd "prog --fmt tex --nbdec 4 --fichier demo.rex" prog --fmt tex --nbdec 4 --fichier demo.rex % set e [lindex $cmd [expr 1+[lsearch $cmd "--fmt"]]] tex % set phr "A2837 12 18 37 25" A2837 12 18 37 25 % set f [lrange $phr 1 [llength $phr]] 12 18 37 25 % set f 1 % for { set i 1 } { $i <= 8 } { incr i } { set f [expr $f*$i] } % puts $f 40320 % set h [ clock format [clock seconds] -format "Le %d/%m/%y a %H:%M" ] Le 25/11/12 a 12:49 % set v "12 5 20 8 15" 12 5 20 8 15 % set s 0 0 % # mieux que : for { set i 0 } { $i < [llength $v] } { incr i } { set s [expr $s + [lindex $v $i]] } % foreach x $v { set s [expr $s + $x] } % set m [expr $s/[llength $v]] 12