Codebase list ohcount / upstream/3.1.1 test / detect_files / foo_prolog1.pl
upstream/3.1.1

Tree @upstream/3.1.1 (Download .tar.gz)

foo_prolog1.pl @upstream/3.1.1 — raw · history · blame 

1
2
3
4
5
% select(Element, List, Remaining)

select(H, [H| T], T).
select(H, [X| R], [X| T]) :-
	select(H, R, T).