Произведение всех нечетных элементов списка SWI Prolog
Формулировка задачи:
Мужики, я уже боашку сломал, решил кучу задач на экзамене, последняя меня победила, не могу понять что делать!
Произведение всех нечетных элементов списка SWI Prolog
Решение задачи: «Произведение всех нечетных элементов списка SWI Prolog»
textual
Листинг программы
- 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),
- !.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д