The problem *can* be translated into a LCSS thing, just by reformatting the numbers into a hexdump of appropriate size:
Addendum: added display of alingnment positions pa/pb
... use String::LCSS_XS qw(lcss); my $str_a = join '', map sprintf("%08x", $_), 1,2,3,6,7,9,1,-7,2,6; my $str_b = join '', map sprintf("%08x", $_), 7,6,7,9,12,-22,-3; # - - - - - - - - - - - - - - - - - - - # my @longest = lcss( $str_a, $str_b ); # - - - - - - - - - - - - - - - - - - - # print join ',', map hex, $longest[0] =~ /.{8}/g; my ($pa, $pb) = map 1+$_/8, @longest[1,2]; print "\na's pos # $pa alingns to b's pos # $pb\n"; ...
This will show:
6,7,9 a's pos # 4 'aligns' to b's pos # 2
... but its hard to say without knowing what you are really trying to do. This might be very very inefficient and rather suboptimal.
Regards
mwa
In reply to Re: how can i align two two strings
by mwah
in thread how can i align two two strings
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |