Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- % - - - 6c. Mesa buena onda
- primero([Cabeza|_],Cabeza).
- ultimo([Cabeza|Cola],Ultimos):-
- ultimo(Cola,Ultimos).
- ultimo([X],X).
- seLlevanLosDelMedio([X]):-
- pedido(X,_).
- seLlevanLosDelMedio([Cabeza|Cola]):-
- primero(Cola,PCola),
- seLlevanBien(Cabeza,Pcola),
- seLlevanLosDelMedio(Cola).
- mesaBuenaOnda(Mesa):-
- length(Mesa,Cant),
- Cant>=2,
- ultimo(Mesa,Ultimos),
- primero(Mesa, Primeros),
- seLlevanLosDelMedio(Mesa),
- seLlevanBien(Primeros,Ultimos).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement