Технический форум
Вернуться   Технический форум > Программирование > Форум программистов


Ответ
 
Опции темы Опции просмотра
Старый 04.06.2013, 15:50   #1 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию Пролог

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

Старый 04.06.2013, 15:50
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Похожие темы на форуме уже были, рекомендую к прочтению

Пролог-Д
Пролог-Д
Помогите найти ошибку в Пролог-Д
Задача на получение кода символа. Пролог
Задача на ПРОЛОГ-Д
Помогите с пролог-д!!!

Старый 08.06.2013, 18:05   #2 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 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).
Оказалось не так то уж и сложно.
shrek=) вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 02:47.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.