P3. Hatványozás

    % hatv(+A, +E, -H):  H = A ^ E, ahol A egész szám, E >= 0 egész szám.

    | ?- hatv(3, 5, X).
    X = 243 ? ; no


----------------------------------------------------------------

Nézze meg a 198. előadásdián levő fakt/2 predikátumot:

% fakt(N, F): F = N!.
fakt(0, 1).   % 0! = 1.
fakt(N, F) :-                % N! = F ha létezik olyan N1, F1, hogy
    N > 0, N1 is N-1,        % N > 0 és N1 = N-1 és
    fakt(N1, F1),            % F1 = N1! és
    F is F1*N.               % F = F1*N.

és hasonló szerkezetben valósítsa meg a a hatv/3 predikátumot!