Prolog 2 : Operator

Takrifkan hubungan
           panjang(S,P).
supaya P memberi nilai panjang elemen yang dimasukkan ke dalam senarai S.
contoh : panjang([b,a,c,k], P). -> P = 4.

Penyelesaian:

panjang([], 0).
panjang([Head | Tail], X) :-
    panjang(Tail, Y),
    X is Y + 1.

Muaturun

Prolog 1 : Senarai

Takrifkan predikat atau hubungan
           elemen(X,[S],T).
supaya T ialah baki elemen yang tinggal dalam senarai S setelah dikeluarkan
elemen X dalam senarai S.
Contoh : elemen(c, [b,a,c,k], [b,a,k]).

Penyelesaian:

elemen(Head, [Head | Tail], Tail).
elemen(Remove_Elemen, [Head | Tail], [Head | New_Tail]):-
    elemen(Remove_Elemen, Tail, New_Tail).

Muaturun