Advertisement
Qete

2018-03-21 Prog.Dek. - rekurencja

Mar 21st, 2018
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.65 KB | None | 0 0
  1. % 0!=1
  2. % n!=n+(n-1)!
  3. %-------------------------
  4. % 0-liczba naturalna
  5. % succ(n)-liczba naturalna
  6. % n=succ(n-1)
  7. %-------------------------
  8. % KLOCKI-rekurencja
  9. % na(X,Y)
  10. % opis: spełniony, gdy X leży bezpośrednio na Y
  11.  
  12. na(d,c).
  13. na(c,a).
  14. na(c,b).
  15. na(a,e).
  16. na(b,g).
  17.  
  18. % nad(X,Y)
  19. % opis: spełniony gdy X leży nad Y niekoniecznie bezpośrednio
  20. % Definicja rekurencyjna:
  21. % Warunek zakończenia rekurencji: X leży nad Y, jeżeli X leży na Y,
  22.  
  23. nad(X,Y):-
  24. na(X,Y).
  25.  
  26. %Rekurencja: jeżeli X leży nad Y, ale nie na Y, to istnieje klocek Z, taki że X leży na Z, a Z leży nad Y
  27.  
  28. nad(X,Y):-
  29. na(X,Z),
  30. nad(Z,Y).
  31.  
  32. %-----------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement