Произведение всех нечетных элементов списка 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), !.