8 lines
128 B
Tcl
8 lines
128 B
Tcl
set x [lindex $arr 4] ; # x <= 5
|
|
|
|
foreach n $arr {
|
|
set idx [expr n -1]
|
|
lset arr $idx [expr $n * $n]
|
|
}
|
|
|
|
puts stdout "$arr"
|