how to increment eacl element in a list ?
eg: incrlist {1 2 3}
=>2 3 4
Answers were Sorted based on User's Feedback
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
how to write a startup script in winrunner
How increment a character? For example, I give 'a' and I should get 'b'.
Write a program to increment IP address to +10 and verify it is correct ip or not ?? example my ip is 172.122.132.143 increment this ip to +10 and verify it is valid ip or not
Which scripting language is better among TCL Perl and Python and why?
if i give in numbers output should be in characters example : set a 23 o/p twentythree
Write a proc to increment the ip by the given no. of times. The incremented IPs should be a valid one. Ex: proc <name> {ip no_of_incrments} { body }
How to Swap 30 & 40 in IP address 192.30.40.1 using TCL script?
how to write the startup scripts in winrunner? can any body explain with example code?
How do you find the length of a string without using string length command in TCL??
WHAT IS TCL?
how to increment eacl element in a list ? eg: incrlist {1 2 3} =>2 3 4
Where can find the sample tcl programs?