Вычислите сумму квадратов нечетных чисел от 1 до n - Prolog

Вычислите сумму квадратов нечетных чисел от 1 до n.

Листинг программы

?- N = 5, findall(X*X, (between(1, N, X), \+ X mod 2 =:= 0), Xs), sum_list(Xs, S).
N = 5,
Xs = [1*1, 3*3, 5*5],
S = 35.

Объяснение кода листинга программы

В данном коде:

N = 5 - задается значение переменной N равное 5.
findall(X*X, (between(1, N, X), \+ X mod 2 =:= 0), Xs) -
- findall - функция, которая находит все решения для заданного предиката.
- X*X - это предикат, который умножает каждое число X на само себя.
- (between(1, N, X), \+ X mod 2 =:= 0) - это предикат, который выбирает только нечетные числа от 1 до N.
- Xs - список всех найденных значений X, удовлетворяющих предикату.
sum_list(Xs, S) -
- sum_list - функция, которая суммирует все числа в списке Xs.
- S - переменная, которая получает сумму всех чисел в списке Xs. Таким образом, данный код вычисляет сумму квадратов нечетных чисел от 1 до 5 и получает результат равный 35.