mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-12-08 20:38:47 +00:00
Update prolog samples
This commit is contained in:
12
samples/Prolog/test-prolog.prolog
Normal file
12
samples/Prolog/test-prolog.prolog
Normal file
@@ -0,0 +1,12 @@
|
||||
-/* 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).
|
||||
Reference in New Issue
Block a user