Buenas, he hecho un programa para calcular la puntuación en un alineamiento, y no entiendo por qué me devuelve el valor 6 y no 4 como debería ser.
use List::Util qw;
sub programacion_dinamica{
my($secuencia1,$secuencia2) =@_;
my $len1 =length ($secuencia1);
my $len2 =length($secuencia2);
my @secuencia1 = split("",$secuencia1);
my @secuencia2= split("",$secuencia2);
#Construimos la tabla s y la inicializamos a 0
my @s=();
my @decisiones=();
for (my $i =0; $i <=$len1 ;$i++){
my @ fila_s=();
my ...