Select Code to Download

$ perl balanced.pl 3                                        
()()()
...
$ perl lcs.pl abcdef acdegh
p=0     q=0     l=1
p=2     q=1     l=3

#!/usr/bin/perl

...
    shift;
    print @_, "\n";
}

#!/usr/bin/perl

...
    }
    return ( $p, $l );
}