language: Prolog (swi) (swipl 5.6.64)
date: 127 days 17 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
9
10
%wywal(E,[]).
%wywal([E,E1|T]):- E=E1->wywal(E,T);wywal(E1,T).
%pb([E]):-wywal(E),writeln(E).
 
%podziel(A):- dziel_liste(A,X,Y), writeln(X), writeln(Y).
 
nalezy( X,[X|_] ).
nalezy( X,[H|T] ) :- nalezy( X,T ).
 
:-nalezy(20,[1,2,3,4,5,20]).