mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
13 lines
258 B
Prolog
13 lines
258 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).
|