このディレクトリの索引
#  prologについてです。
#  2乗和のプログラムが書けなくて困っています。1からXまでの2乗和Yを計算するプログラムssq(X,Y)を”一切isを用いず”に作成していただけないでしょうか?よろしくお願いします。

ssq(X,Y) :-
        findall(LL,(
                    between(1,X,M),
                    length(L,M),
                    findall(L,nth1(_,L,_),LL)),
                LL2),
        flatten(LL2,L2),
        length(L2,Y).