このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1307166756/397
#  九九の計算表を表示するプログラムをwhile文を使って作成したものと、 
#  do-while文を使って作成したものを2つお願いします。 
#  実行結果 
#  1  2  3  4  5  6  7  8  9 
#  2  4  6  8 10 12 14 16 18 
#  3  6  9 12 15 18 21 24 27 
#  4  8 12 16 20 24 28 32 36 
#  5 10 15 20 25 30 35 40 45 
#  6 12 18 24 30 36 42 48 54 
#  7 14 21 28 35 42 49 56 63 
#  8 16 24 32 40 48 56 64 72 
#  9 18 27 36 45 54 63 72 81 
#   

九九の計算表を表示する :-
        append(L0,[_|R],[_,_,_,_,_,_,_,_,_]),
        L1 = [_|L0],
        findall(N,(
                    append(L01,[_|_],[_,_,_,_,_,_,_,_,_]),
                    L2 = [_|L01],
                    findall(L1,(
                               append(_,[_|_],L2)),
                            L3),
                    flatten(L3,L4),
                    length(L4,N)),
                L),
        表示する(L).

表示する([]).
表示する([L|R]) :-
        L = [N1|R1],
        writef('%2l',[N1]),
        append(_,[N2|R2],R1),
        writef('%3l',[N2]),
        R2 = [],
        write('\n'),
        表示する(R).