#!/usr/bin/env perl
#
# CalcularFactorial_0.1
#
# Calcula el factorial de un número 'n' natural.
#
# Autor: noob4ever69
 
# Número a calcular.
$n;
 
# Factorial. Valor inicial 1 para que el algoritmo funcione.
$f = 1;
 
# Variable auxiliar para el bucle 'for'.
$i;
 
# El usuario introduce un número.
print "[Número]: ";
chop($n=<STDIN>);
 
# Si el número es negativo se muestra un error y se sale del programa.
if($n<0) {
	print "[Error]: El número introducido debe ser mayor que 0.\n";
	exit 0;
}
 
# Algoritmo encargado de calcular el factorial.
for($i=2; $i<=$n; $i++) {
	$f = $f * $i;
}
 
# Se muestra el resultado en pantalla.
print "[Resultado]: $f\n";