04.06.2013, 15:50 | #1 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Пролог
Есть ли у нас на форуме люди способные помочь с пролог'ом? Очень буду признателен. Создать предикат определяющий количество четных элементов многоуровнего списка(элемент считается четным если состоит из четного числа атомов) |
04.06.2013, 15:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Похожие темы на форуме уже были, рекомендую к прочтению Пролог-Д Пролог-Д Помогите найти ошибку в Пролог-Д Задача на получение кода символа. Пролог Задача на ПРОЛОГ-Д Помогите с пролог-д!!! |
08.06.2013, 18:05 | #2 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Додумался сам:
Код:
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). |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|