このディレクトリの索引
#  課題で「自作の関数(main)以外)を少なくとも一つ実装して使用せよ」という条件が出されたんですが、次レスようなプログラムで条件を満たしていますか? 
#  
#  ちなみに課題はx要素の二乗和を求める課題で、元となった参考プログラムにsum(void)はありませんでした。
#  

'x要素の二乗和を求める'(_x要素,_二乗和) :-
        length(Ln,_x要素),
        findsum(_x2,(
                    member(_,Ln),
                    整数を得る(整数,_x),
                    _x2 is _x * _x),
                _二乗和).