if i give in numbers output should be in characters
example : set a 23
o/p twentythree
Answer / thiru
set oned { one two three four five six seven eight nine ten }
set towd { ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen }
set multten {ten twenty thirty forty fifty sixty seventy eighty ninety}
set num 67
set len [string len $num]
if {$len == 1} {
set first [regexp -inline {[0-9]} $num]
set first [lindex $oned $first-1]
puts $first
}
if {$len == 2 && $num < 19} {
set first [regexp -inline {[0-9]$} $num]
set first [lindex $towd $first]
puts $first
}
if {$len == 2 && $num > 19} {
set first [regexp -inline {[0-9]} $num]
set first [lindex $multten $first-1]
set second [regexp -inline {[0-9]$} $num]
set second [lindex $oned $second-1]
puts "$first $second"
}
| Is This Answer Correct ? | 1 Yes | 0 No |
{Anu Anudeep Anukumar Amar Amaravathi Aruna} is their any possibility to find the letter "a"in the given list? if yes how?
write a regular expressions to fetch all the valid ip's
How increment a character? For example, I give 'a' and I should get 'b'.
How TCL works
How to get the next ip for given ip ex: 10.10.10.1 -> 10.10.10.2 ex: 10.10.10.255 -> 10.10.11.0
how to write a startup script in winrunner
Set ip address as 10.30.20.1 write a script to replace the 30 with 40 ?
how to write the startup scripts in winrunner? can any body explain with example code?
Where can find the sample tcl programs?
Which scripting language is better among TCL Perl and Python and why?
How to Swap 30 & 40 in IP address 192.30.40.1 using TCL script?
How do you check whether a string is palindrome or not using TCL script?