Codebase list ohcount / upstream/4.0.0+git20210223.6654d48 test / src_dir / prolog.pl
upstream/4.0.0+git20210223.6654d48

Tree @upstream/4.0.0+git20210223.6654d48 (Download .tar.gz)

prolog.pl @upstream/4.0.0+git20210223.6654d48 — raw · history · blame 

1
2
3
4
5
6
7
8
9
/* test file for Prolog parsing */

% this is a Prolog source file

% select(Element, List, Remaining)

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