Форум программистов, компьютерный форум, киберфорум
Наши страницы
Prolog
Войти
Регистрация
Восстановить пароль
 
tikva06
0 / 0 / 0
Регистрация: 14.11.2015
Сообщений: 13
1

Предикаты "чет" и "нечет", определяющие чётность и нечётность длины списка

05.12.2015, 12:24. Просмотров 187. Ответов 1
Метки нет (Все метки)

3.Определить предикаты "чет" и "нечет" определяющие чётность и нечётность длины списка

Добавлено через 6 минут
Prolog
1
2
3
4
5
6
% Объединение списков
% объединить(список1, список2, результат)
объединить([], L, L).
объединить([X | L1], L2, [X | L]) :- % первым элементом объединения является
                                     % первый элемент первого списка
    объединить(L1, L2, L). % обединить хвост первого списка со вторым списком
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2015, 12:24
Ответы с готовыми решениями:

Подсчитать в слове все сочетания "нн". Считать, что в последовательности "ннн" "нн" встречается один раз
напишите, пожалуйста, программу подсчета в слове всех сочетаний "нн". считать,...

Определить правила "призывник", "запасник", "отсрочка"...[GNU Prolog 1.3.1]
GNU Prolog 1.3.1! Задание 1 призывник(Х) – здоровые мужчины в возрасте от 18...

Арифметические операции: найти "срединный" элемент списка нечетной длины
Помогите написать программу в прологе. Желательно Turbo Prolog. Необходимо ...

Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на нечётном месте после буквы "к""
Я нашла похожую на форуме, но переделать под свой вариант не очень получается,...

Предикаты "чистого" Пролога
Какие следующие предикаты относятся к "чистому" Прологу, т. е. описываются в...

1
Black Fregat
2517 / 1276 / 348
Регистрация: 31.05.2009
Сообщений: 4,972
05.12.2015, 14:33 2
Если "в лоб", то так:
Prolog
1
2
3
4
5
even([]).
even([_, _|T]) :- even(T).
 
odd([_]).
odd([_, _|T]) :- odd(T).
А можно повыделываться, например так
Prolog
1
2
3
4
5
trunc([_, _|T], R) :- trunc(T, R) :- !.
trunc(R, R).
 
even(L) :- trunc(L, []).
odd(L) :- trunc(L, [_]).
Или даже так:
Prolog
1
2
3
4
5
even([]).
even([_|T]) :- odd(T).
 
odd([_]).
odd([_|T]) :- even(T).
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2015, 14:33

Построить программу "сжать", назначение которой - преобразование английских слов в их "звуковой" код
Всем привет . Не могли бы помочь решить данную задачу ?) Построить программу...

Проверить, есть ли в заданном слове буква "к", стоящая на четных местах перед буквой "и"
Здравствуйте!Помогите пожалуйста решить задачу. Составьте программу,...

Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на нечётном месте после буквы "к"
Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru