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

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

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

?- N = 5, findall(X, (between(1, N, X), X mod 2 =:= 0), Xs), sum_list(Xs, S).
N = 5,
Xs = [2, 4],
S = 6.

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

Код на языке Prolog вычисляет сумму четных чисел от 1 до n, где n = 5.

Первая строка кода устанавливает значение переменной N равным 5.
Вторая строка кода использует функцию findall для поиска всех четных чисел в диапазоне от 1 до n. Функция between используется для указания диапазона чисел, а X mod 2 =:= 0 используется для проверки, является ли число четным. Результат сохраняется в переменной Xs.
Третья строка кода использует функцию sum_list для вычисления суммы всех чисел в списке Xs и сохраняет результат в переменной S.
В результате выполнения кода, переменная S будет содержать сумму четных чисел от 1 до n, которая в данном случае равна 6.