Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: Finding longest palindrome from a string

by cLive ;-) (Parson)
on Aug 13, 2004 at 09:42 UTC ( #382591=note: print w/replies, xml ) Need Help??

in reply to Finding longest palindrome from a string

Sorry, I can't name the sub after myself since ;-) doesn't compile :)
sub cLive { my $rev = reverse $_[0]; my $len=''; my $d; for (0..length($_[0])-1) { my $c= join'',map { substr($rev,$_,1) eq substr($_[0],$_,1) ? +1 : 0 } 0..length($_[0])-1; my $match = (sort {length($a)<=>length($b)} $c =~ /(1+)/g)[-1] +; $match>$len and $len=$match and $d=$c; $rev = substr($rev,1).substr($rev,0,1); } $d=~s/(.*)($len).*/substr($_[0],length($1),length($len))/e; return $d; }
cLive ;-)

ps - if more than one longest palindrome, first is returned.

Replies are listed 'Best First'.
My name doesn't compile (was Re: Finding longest palindrome ...)
by hv (Parson) on Aug 13, 2004 at 12:09 UTC

    my $name = 'cLive ;-)'; no strict 'refs'; *$name = sub { print "This is not my name\n" }; $name->();


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://382591]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (3)
As of 2016-12-10 20:33 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (165 votes). Check out past polls.