Advertisement
Guest User

prolog

a guest
Feb 18th, 2019
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.15 KB | None | 0 0
  1. afis([]).
  2. afis([Q|W]):-write(Q),afis(W).
  3. inv([]).
  4. inv([A|B]):-inv(B),write(A).
  5. list([],[]).
  6. list([C|D],[E|F]):-inv(D),write(C),write(E),afis(F).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement