def escalon_posible(n):
 
	if n == 1:
		return 1
	if n == 2:
		return 2
	if n == 3:
		return 4
	else:
		return (escalon_posible(n-1) + escalon_posible(n-2)+ escalon_posible(n-3))
 
print("Ingrese un número mayor que 0")
Escalon_final=int(input("Ingrese el escalón final: "))
print (escalon_posible(Escalon_final))					
 

#!/usr/bin/env perl
my $escalones = 0 + shift;					# leemos el número de escalones
 
if ($escalones > 0) {						# si es un número positivo
    my @combinaciones = descompon($escalones);			# sacamos todas las @combinaciones
    print "Hay ", scalar(@combinaciones), " combinaciones:\n";	# informamos del número de @combinaciones
    print join('; ' => @combinaciones), "\n";			# y las propias combinaciones
}
 
sub descompon() {						# devuelve una lista de combinaciones
    my $escalones = shift;					# para un determinado número de $escalones
 
    my @combinaciones;						# aquí guardaremos las @combinaciones encontradas
 
    for my $salto (1 .. $escalones) {				# damos un $salto cada vez mayor
	my $resto = $escalones - $salto;			# después del $salto, nos queda un $resto de $escalones
 
	if (not $resto) {					# si hemos llegado arriba
	    push @combinaciones, $salto;			# guardamos ese $salto como nueva combinación
	}
	else {							# si aún no hemos llegado
	    for my $combina_resto (descompon($resto)) {		# vemos todas las combinaciones que quedan para subir
								# y las guardamos
		push @combinaciones, join "," => $salto, $combina_resto;
	    }
	}
    }
 
    return @combinaciones;					# devolvemos las @combinaciones encontradas
}

$ ./descompon2.pl 6
Hay 32 combinaciones:
1,1,1,1,1,1; 1,1,1,1,2; 1,1,1,2,1; 1,1,1,3; 1,1,2,1,1; 1,1,2,2; 1,1,3,1; 1,1,4; 1,2,1,1,1; 1,2,1,2; 1,2,2,1; 1,2,3;
 1,3,1,1; 1,3,2; 1,4,1; 1,5; 2,1,1,1,1; 2,1,1,2; 2,1,2,1; 2,1,3; 2,2,1,1; 2,2,2; 2,3,1; 2,4; 3,1,1,1; 3,1,2; 3,2,1;
 3,3; 4,1,1; 4,2; 5,1; 6

#!/usr/bin/perl
my $escalones = 0 + shift;                                      # leemos el número de escalones
 
if ($escalones > 0) {                                           # si es un número positivo
    my @combinaciones = descompon($escalones);                  # sacamos todas las @combinaciones
    print "Hay ", scalar(@combinaciones), " combinaciones:\n";  # informamos del número de @combinaciones
    print join('; ' => @combinaciones), "\n";                   # y las propias combinaciones
}
 
sub descompon {                                                 # devuelve una lista de combinaciones
    my $escalones = shift;                                      # para un determinado número de $escalones
 
    my @combinaciones;                                          # aquí guardaremos las @combinaciones encontradas
 
    for my $salto ( 1 .. 3 ) {                                  # damos un $salto cada vez mayor
        next if $salto > $escalones;
        my $resto = $escalones - $salto;                        # después del $salto, nos queda un $resto de $escalones
 
        if ( not $resto ) {                                     # si hemos llegado arriba
            push @combinaciones, $salto;                        # guardamos ese $salto como nueva combinación
        }
        else {                                                  # si aún no hemos llegado
            my @resto_combinaciones = descompon($resto);        # vemos todas las combinaciones que quedan para subir
 
            for my $combina_resto ( @resto_combinaciones ) {    
                                                                # y las guardamos
                push @combinaciones, join "," => $salto, $combina_resto;
            }
        }
    }
 
    return @combinaciones;                                      # devolvemos las @combinaciones encontradas
}