このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/498
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク):9X9の二次元配列に九九を代入する関数を作りなさい。 
#                 配列はmain関数内で定義すること。また、配列の内容を表示する関数も作りなさい。 
#                 (一つのプログラムに九九計算関数と九九表示関数を作るということだと思います。)  
#  

'9X9の二次元配列に九九を代入する' :-
        '9X9の二次元配列に'(LL),
        findall(L,(
                    append(L0,[L|R],LL),
                    九九を代入する(L)),
                LL),
        九九を表示する(LL).

'9X9の二次元配列に'(LL) :-
        length(LL,9),
        findall(L,(
                   length(L,9)),
                LL).

九九を代入する(L) :-
        findall(M,(
                    append(L01,[M|R],L),
                    length(L01,N01),
                    M is (N+1) * (N01+1)),
                L).

九九を表示する(LL) :-
        append(_,[L|R],LL),
        writef('%2d,%2d,%2d,%2d,%2d,%2d,%2d,%2d,%2d\n',L),
        R = [],!.