mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
13 lines
235 B
Prolog
13 lines
235 B
Prolog
/* Prolog test file */
|
|
male(john).
|
|
male(peter).
|
|
|
|
female(vick).
|
|
female(christie).
|
|
|
|
parents(john, peter, christie).
|
|
parents(vick, peter, christie).
|
|
|
|
/* X is a brother of Y */
|
|
brother(X, Y) :- male(X), parents(X, F, M), parents(Y, F, M).
|