Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- czlowiek(Jarek,Franek,Stefan,Albert,Szymon,Robert,Marcin) :-
- A0 = [[0,papuga],[1,kot],[2,chomik],[3,pies],[4,rybka],[5,waz],[6,kanarek]],
- select(Marcin, A0, A1), Marcin \= [1,kot], Marcin \= [5,waz], Marcin \= [0,papuga], Marcin \= [6,kanarek], Marcin \= [2,chomik], Marcin \= [3,pies],
- select(Stefan, A1, A2), Stefan \= [3,pies], Stefan \= [5,waz], Stefan \= [1,kot], Stefan \= [2,chomik], Stefan \= [4,rybka], Stefan \= [6,kanarek],
- select(Jarek, A2, A3), Jarek \= [3,pies], Jarek \= [1,kot], Jarek \= [4,rybka], Jarek \= [6,kanarek],
- select(Szymon, A3, A4), Szymon \= [2,chomik], Szymon \= [0,papuga], Szymon \= [3,pies], Szymon \= [4,rybka], Szymon \= [5,waz], Szymon \= [6,kanarek],
- select(Robert, A4, A5), Robert \= [6,kanarek], Robert \= [0,papuga], Robert \= [3,pies], Robert \= [4,rybka], Robert \= [5,waz], Robert \=[1,kot],
- select(Franek, A5, A6), Franek \= [1,kot], Franek \= [0,papuga], Franek \= [4,rybka], Franek \= [6,kanarek], Franek \= [2,chomik],
- select(Albert, A6, []), Albert \= [1,kot],Albert \= [5,waz], Albert \= [4,rybka], Albert \= [2,chomik].
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement