Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- pow(_,0,1).
- pow(B,E,P):-
- E>0,
- E1 is E-1,
- pow(B,E1,P1),
- P is B*P1,!.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement