Codebase list ohcount / run/8fccc97f-1091-4606-8a80-1b8fb386766a/main test / detect_files / foo_prolog1.pl
run/8fccc97f-1091-4606-8a80-1b8fb386766a/main

Tree @run/8fccc97f-1091-4606-8a80-1b8fb386766a/main (Download .tar.gz)

foo_prolog1.pl @run/8fccc97f-1091-4606-8a80-1b8fb386766a/mainraw · 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).