Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- soma1(vazio, Chave, arv(Chave, 1, vazio, vazio)).
- soma1(arv(ChTmp, N, Ae, Ad), Chave, arv(ChTmp, Nn, Aen, Adn)) :-
- Chave < ChTmp -> soma1(Ae, Chave, Aen), Adn = Ad, Nn = N;
- Chave > ChTmp -> soma1(Ad, Chave, Adn), Aen = Ae, Nn = N;
- Nn is N + 1, Aen = Ae, Adn = Ad.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement