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

Hi all, Is there any certification exams available for TCL and Perl. If so please let me know, my mailid is vpbharathi@gmail.com. Thanks in advance, Bharathi.P

2529