Codebase list ohcount / 6ef9399e-69b6-464b-98a8-52915e284046/upstream test / detect_files / foo_prolog1.pl
6ef9399e-69b6-464b-98a8-52915e284046/upstream

Tree @6ef9399e-69b6-464b-98a8-52915e284046/upstream (Download .tar.gz)

foo_prolog1.pl @6ef9399e-69b6-464b-98a8-52915e284046/upstreamraw · 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).