TCL (Tool Command Language) Interview Question:

how to increment eacl element in a list?
eg: incrlist {1 2 3}
=>2 3 4

Submitted by: Administrator

// it works like incrlist 5 6 7 =>> 6 7 8
proc incrlist args {
set s 0
foreach s $args {
incr s 1
puts $s
}
}

//for list
proc incrlist list {
set s 0
foreach s $list {
incr s 1
puts $s
}
}
Submitted by: Administrator