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

Categories >> Software >> Scripts >> Tcl
Suggest New Category

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

Question Posted / guest

9 Answers
18069 Views
Honeywell, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

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

Answer / yatanti

set incrlist { 1 2 3 }

foreach element $incrlist {
set new_element [ expr $element + 1 ]
lappend new_incrlist $new_element
}
puts $new_incrlist

Is This Answer Correct ?

18 Yes

3 No

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

Answer / gagik sukiasyan

set list {1 2 3}
regsub -all {(\d+)} $list "\[expr \\1 + 1\]" new_list
set result [eval concat "" $new_list]

Is This Answer Correct ?

9 Yes

2 No

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

Answer / rangasa

set listItems {15 2 35}

for {set i 0} {$i < [llength $listItems]} {incr i} {
set newVal [expr [lindex $listItems $i] + 1]
set listItems [lreplace $listItems $i $i $newVal]
}
puts "The newly framed list is $listItems"

Is This Answer Correct ?

4 Yes

0 No

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

Answer / thirumurugan

set list1 {1 2 3}
foreach ele $list {
incr ele
lappend list2 $ele
}
puts $list2

Is This Answer Correct ?

4 Yes

2 No

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

Answer / ritu gupta

set l {1 2 3}
set i 0
foreach e $l {
lset l $i [ expr $e + 1]
incr i
}

Is This Answer Correct ?

2 Yes

1 No

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

Answer / ch.venkatesh

set list {1 2 3}
for {set i 0} {$i < [llength $list]} {incr i} {
set x [lindex $list $i]
set y [expr $x+1]
puts "$y"
}

Is This Answer Correct ?

1 Yes

0 No

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

Answer / mayank

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

Is This Answer Correct ?

5 Yes

5 No

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

Answer / jiandoer

set lstr [list 10 20 30]
unset rlstr
foreach item $lstr {
if {[info exists rlstr]} {
lappend rlstr [incr item]
} else {
set rlstr [incr item]
}
}
puts "input list: $lstr"
puts "result list: $rlstr"

Is This Answer Correct ?

0 Yes

0 No

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

Answer / meganathan

set a {10 11 12}
set b 0
foreach c $a {
set c [expr $c+1]
lset a $b $c
incr b
}
puts $a

Is This Answer Correct ?

0 Yes

0 No

Post New Answer