Форум программистов, компьютерный форум, киберфорум
Prolog
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 22.01.2019
Сообщений: 3

Предикат попарного сложения элементов в списке (strawberry prolog)

22.01.2019, 02:55. Показов 1794. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем доброй ночи!
Прошу помощи в реализации предиката попарного сложения элементов в списке на strawberry prolog, на примере:
?- pairadd([1,2,3,4,5],X). X = [3,5,7,9].

Заранее спасибо за оказанную помощь
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
22.01.2019, 02:55
Ответы с готовыми решениями:

Strawberry Prolog Удаление N первых элементов в списке
Нужно решить в Strawberry Prolog задачу: Удаление N первых элементов в списке. Написала. Но при компиляции выдает ошибку. ...

Написать функцию попарного сложения элементов двух списков
Написать функцию попарного сложения элементов двух СПИСКОВ. Учесть, что списки м.б. РАЗНОЙ ДЛИНЫ!!! Помогите пож-та новичку. Вот что я...

Определите предикат p(+U, +V, ?L) - истинный тогда и только тогда, когда L - список всех элементов, содержащихся либо в списке U, либо в списке V.
Здравствуйте, помогите пожалуйста решить задачу. Заранее благодарна) Определите предикат p(+U, +V, ?L) - истинный тогда и только...

2
Фрилансер
 Аватар для Black Fregat
3709 / 2083 / 567
Регистрация: 31.05.2009
Сообщений: 6,683
22.01.2019, 12:12
Лучший ответ Сообщение было отмечено Oleg_Mazaev как решение

Решение

И в чём проблема? Отделить два элемента сразу?
Prolog
1
2
3
pairadd([_], []).
pairadd([X, Y | T1], [Z | T2]) :- Z is X + Y, pairadd([Y | T1], T2).
?-pairadd([1,2,3,4,5], X), write(X), nl.
2
0 / 0 / 0
Регистрация: 22.01.2019
Сообщений: 3
22.01.2019, 14:58  [ТС]
Цитата Сообщение от Black Fregat Посмотреть сообщение
И в чём проблема? Отделить два элемента сразу?
Prolog
1
2
3
pairadd([_], []).
pairadd([X, Y | T1], [Z | T2]) :- Z is X + Y, pairadd([Y | T1], T2).
?-pairadd([1,2,3,4,5], X), write(X), nl.
Это как раз то, что мне нужно было, спасибо Вам огромное, очень выручили!))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.01.2019, 14:58
Помогаю со студенческими работами здесь

Strawberry Prolog
Составьте собственные примеры с числом фактов n=10. Проверьте производство новых фактов из составленных вами.файл.

Strawberry Prolog
Жизненно необходимо запустить этот код в среде Strawberry prolog. В Turbo Prolog всё работает. Помогите исправить. Вылетают ошибки Error...

Strawberry prolog
Здравствуйте. помогите пожалуйста перенести программу написанную в Prolog в Strawberry prolog. (ввести нужно родителей и детей и узнать...

Strawberry Prolog
parent(volodya, nina). parent(volodya, sveta). parent(katya, nina). parent(katya, sveta). parent(mitya, valera). parent(polya,...

Strawberry prolog списки
найти N-ый элемент списка. подскажите пожалуйста, сделала вот так: appened(,1,H). appened(,N,):- N > 1, Nn is N -...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru