How do you check whether a string is palindrome or not using TCL script?
- 10 Answers
- 36558 Views
- I also Faced
- E-Mail Answers
Answer Posted / s.singh
gets stdin a
set len [string length $a]
set num [expr $len/2]
set rem [expr $len%2]
set b [string range $a 0 $num-1]
if {$rem == 0} {
set c [string range $a $num $len-1]
} else {
set c [string range $a $num+1 $len-1]
}
set c [string reverse $c]
if {$b==$c} {
puts "pelindrom"
} else {
puts "not a palindrom"
}
| Is This Answer Correct ? | 3 Yes | 2 No |
Post New Answer View All Answers
Please Help Members By Posting Answers For Below Questions
No New Questions to Answer in this Category !! You can
Post New Questions
Answer Questions in Different Category
