Пролог

[shrek=)]

Пролог

Доброго времени суток.
Есть ли у нас на форуме люди способные помочь с пролог'ом?
Очень буду признателен.
Создать предикат определяющий количество четных элементов многоуровнего списка(элемент считается четным если состоит из четного числа атомов)

 

[shrek=)]

Додумался сам:

len([],0) :- !.
len([_|T], N) :- len(T,N1), N is N1+1.

ce([],0):-!.
ce([X],1):-atomic(X), X mod 2 =:= 0,!.
ce([X],1):-len(X,L), L mod 2 =:= 0,!.
ce([X|T],N):-atomic(X),X mod 2 =:= 0, ce(T,N1), N is N1+1,!.
ce([X|T],N):-atomic(X), X mod 2 =\= 0, ce(T,N),!.
ce([X|T],N):-len(X,L),L mod 2 =:= 0, ce(T,N1), N is N1+1,!.
ce([_|T],N):-ce(T,N).

Оказалось не так то уж и сложно.