Prolog: Program untuk Menunjukkan Status Adik atau Kakak

Program di bawah ini adalah program prolog yang digunakan untuk menunjukkan status adik/kakak dari suatu anggota keluarga yang diukur berdasarkan perbandingan data usia diantara mereka.

Domains
	manusia=symbol.
	umur=integer.

Predicates
	orang(manusia,umur).
	adik(manusia,manusia).
	kakak(manusia,manusia).

Clauses
	orang(tuti,42).
	orang(chein,50).	
	orang(iza,25).
	orang(retno,5).
	orang(siska,19).
	
	adik(X,Y):-orang(X,A),orang(Y,B),A<B.
	kakak(X,Y):-orang(X,A),orang(Y,B),A>B.

Program di atas telah diuji dan berjalan menggunakan Turbo Prolog dalam DOSBox.