#!/usr/bin/env perl
#
# CalcularRaiz_0.1
#
# Calcula la raiz de un número.
#
# Autor: noob4ever69
 
# Almacena el número introducido por el usuario.
$n;
 
# Almacena el exponente.
$e;
 
# Almacena el resultado. Valor inicial 1 para que el algoritmo funcione.
$r = 1;
 
# Variable auxiliar para el bucle 'for' del algoritmo.
$i;
 
# Pedir datos al usuario.
print "[Número]: ";
chop($n=<STDIN>);
print "[Exponente]: ";
chop($e=<STDIN>);
 
# Algoritmo para calcular la raiz de un número
for($i=0; $i<$e; $i++) {
	$r = $r * $n;
}
 
# Mostrar el resultado en pantalla.
print "[Resultado]: $r\n";