Advertisement
Guest User

Untitled

a guest
Apr 19th, 2015
183
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. % - - - 6c. Mesa buena onda
  2. primero([Cabeza|_],Cabeza).
  3.  
  4. ultimo([Cabeza|Cola],Ultimos):-
  5. ultimo(Cola,Ultimos).
  6. ultimo([X],X).
  7.  
  8. seLlevanLosDelMedio([X]):-
  9. pedido(X,_).
  10.  
  11. seLlevanLosDelMedio([Cabeza|Cola]):-
  12. primero(Cola,PCola),
  13. seLlevanBien(Cabeza,Pcola),
  14. seLlevanLosDelMedio(Cola).
  15.  
  16. mesaBuenaOnda(Mesa):-
  17. length(Mesa,Cant),
  18. Cant>=2,
  19. ultimo(Mesa,Ultimos),
  20. primero(Mesa, Primeros),
  21. seLlevanLosDelMedio(Mesa),
  22. seLlevanBien(Primeros,Ultimos).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement