Advertisement
Guest User

Untitled

a guest
Oct 20th, 2019
121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. soma1(vazio, Chave, arv(Chave, 1, vazio, vazio)).
  2. soma1(arv(ChTmp, N, Ae, Ad), Chave, arv(ChTmp, Nn, Aen, Adn)) :-
  3. Chave < ChTmp -> soma1(Ae, Chave, Aen), Adn = Ad, Nn = N;
  4. Chave > ChTmp -> soma1(Ad, Chave, Adn), Aen = Ae, Nn = N;
  5. Nn is N + 1, Aen = Ae, Adn = Ad.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement