Произведение всех нечетных элементов списка SWI Prolog

@Malay1 · Регистрация: 26.06.2013

Студворк — интернет-сервис помощи студентам

Мужики, я уже боашку сломал, решил кучу задач на экзамене, последняя меня победила, не могу понять что делать!
Произведение всех нечетных элементов списка SWI Prolog

@Black Fregat · 05.02.2015, 18:30

Prolog
1
2
3
4
5
6
7
8
p([], 1).
p([H|T], P) :- 
    H mod 2 > 0, 
    !, 
    p(T, P1), 
    P is P1 * H.
p([_|T], P) :- 
    p(T, P).

@Malay1 · 05.02.2015, 18:49 **[ТС]**

Все работает, но тема в том что он перемножает те что имеют четное или нечетное значение, а мне надо на четных или нечетных местах, вот чем проблемка то(((

Добавлено через 16 минут
Да, вот и я не понимаю как это сделать то*((((((

@Catstail · 05.02.2015, 18:55

Malay1, тогда нужно правильно формулировать условие. "Нечетные элементы" списка [1,2,2,3,5,5] - это 1,3,5,5 (независимо на каких местах они стоят).

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
domains
int=integer
intl=int*
 
predicates
task(intl,int,int)
 
clauses
task([],_,1).
task([H|T],Q,Z) :- Q < 0, Q1=-Q, task(T,Q1,Z1), Z=H*Z1.
task([_|T],Q,Z) :- Q > 0, Q1=-Q, task(T,Q1,Z).
 
%% task([...],-1,Z) - произведение четных
%% task([...],1,Z)  - произведение нечетных

@Malay1 · 05.02.2015, 18:58 **[ТС]**

На SWI Prologe не работает такой код...

@Catstail · 05.02.2015, 19:23

Это ТурбоПролог. Ты же решил "кучу задач", перепиши на SWI. Идея-то прозрачная...

@nullxdth · 11.02.2015, 00:44

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
odd([X, _|Xs], [X|Tail]) :-
    odd(Xs, Tail),
    !.
odd([X], [X]) :-
    !.
odd([ ], [ ]) :-
    !.
 
*(A, B, V) :- V is A * B, !.
 
odd_mul([X|Xs], V) :-
    odd([X|Xs], [E|Es]),
    foldl(*, Es, E, V),
    !.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Malay1 0 / 0 / 1 Регистрация: 26.06.2013 Сообщений: 31

	Произведение всех нечетных элементов списка SWI Prolog 05.02.2015, 18:06. Показов 1378. Ответов 6 Метки нет (Все метки) Мужики, я уже боашку сломал, решил кучу задач на экзамене, последняя меня победила, не могу понять что делать! Произведение всех нечетных элементов списка SWI Prolog 0

@Malay1 0 / 0 / 1 Регистрация: 26.06.2013 Сообщений: 31
	05.02.2015, 18:49 [ТС]
	Все работает, но тема в том что он перемножает те что имеют четное или нечетное значение, а мне надо на четных или нечетных местах, вот чем проблемка то((( Добавлено через 16 минут Да, вот и я не понимаю как это сделать то*(((((( 0

@Malay1 0 / 0 / 1 Регистрация: 26.06.2013 Сообщений: 31
	05.02.2015, 18:58 [ТС]
	На SWI Prologe не работает такой код... 0

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,740 Записей в блоге: 14
	05.02.2015, 19:23
	Это ТурбоПролог. Ты же решил "кучу задач", перепиши на SWI. Идея-то прозрачная... 0