求助：如何输入一组数输出他们经过某运算的结果？？

level 1

Tachinesqd 楼主

要求写一个谓词sumsq_even(Numbers, Sum)，实现输入一组数，选择其中的偶数，输出他们平方的和。
比如?- sumsq_even([1,3,5,2,4,6,8,7], Sum).
Sum = 120 ;
以前学的C和JAVA，对prolog完全不能理解啊，求各位大神相助！！

2014年04月02日 12点04分 1

level 13

丁兔

sumsq_even([],0).
sumsq_even([H|T],Sum):-
　0 is H mod 2,
　sumsq_even(T,Sum1),
　Sum is H*H+Sum1.
sumsq_even([H|T],Sum):-
　\+ 0 is H mod 2,
　sumsq_even(T,Sum).

2017年06月14日 02点06分 3