#! /usr/bin/perl

#Obliczanie potegi z wykorzystaniem rekurencji
#Dominik Gozdziuk
#www.algorytm.org

#Procedura obliczajaca potege metoda rekurencyjna
sub potega {
        #Jesli drugi przekazany parametr (wykladnik) jest rowny 0
        if ($_[1] == 0) {
                #Zwracamy 1
                return 1;
        }
        return $_[0] * &potega($_[0], --$_[1]);
}

#Pobieramy podstawe
print "Podaj podstawe: \n";
$p = <STDIN>;
chomp($p);

#Pobieramy wykladnik
print "Podaj wykladnik: \n";
$w = <STDIN>;
chomp($w);

$tmp = $w;
#Wartosc zwrocona przez procedure zapisujemy do zmiennej wynik
$wynik = &potega($p, $w);

#Wyswietlamy wynik
print "$p^$tmp = $wynik\n";