📜  编写一个过程 exp(Base,Exponent,Result) prolog - 任何代码示例

📅  最后修改于: 2022-03-11 14:59:25.837000             🧑  作者: Mango

代码示例1
exp(_, 0, 1).
exp(0, _, 0).
exp(Base, Exponent, Result):-
    Base #>= 0,
    Exponent #>= 0,
    E1 #= Exponent-1,
    exp(Base, E1, R1),
    Result #= Base*R1.