Guest User

Untitled

a guest
Nov 22nd, 2017
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.25 KB | None | 0 0
  1. [[a,b,c], [d,e,f],[h,g]]
  2.  
  3. move([[a,b,c], [d,e,f],[h,g]], f, 2, 3, R).
  4.  
  5. R = [[a,b,c], [d,e],[h,g,f]]
  6.  
  7. move([[a,b,c], [d,e,f],[h,g]], f, 2, 1, R).
  8.  
  9. R = [[a,b,c,f], [d,e],[h,g]]
  10.  
  11. last([A], C):- A == C.
  12. last([_|T], C):- last_one(T, C).
Add Comment
Please, Sign In to add comment