How To Increment Eacl Element In A List? Eg: Incrlist {1 2 3} =>2 3 4

1.	How To Increment Eacl Element In A List? Eg: Incrlist {1 2 3} =>2 3 4?
Answer» // 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 } } // 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 } }

How To Increment Eacl Element In A List? Eg: Incrlist {1 2 3} =>2 3 4?

Answer»

// 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

}

// 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

}