このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/177
#   
#  [2]下記の九九の表を作るプログラムを作れ 
#   
#  1  
#  2 4    
#  3 6 9 
#  .......  
#  8 16 24...64 
#  9 18 27...72 
#  

変則的な九九の表を作る :-
        行を取り出す(_行),
        行との九九積を行と同じ個数まで表示する(1,_行),
        _行 = 9.

行を取り出す(_行) :-
        行を取り出す(1,_行).

行を取り出す(_行_1,_行) :-
       _行_1 > 9,!,
       fail.
行を取り出す(_行,_行).
行を取り出す(_行_1,_行) :-
       _行_2 is _行_1 + 1,
       行を取り出す(_行_2,_行).

行との九九積を行と同じ個数まで表示する(_行,_回数) :-
        _回数 > _行,
        nl,!.
行との九九積を行と同じ個数まで表示する(_行,_回数_1) :-
        _積 is _行 * _回数_1,
        表示する(_行,_回数_1,_積),
        _回数_2 is _回数_1 + 1,
        行との九九積を行と同じ個数まで表示する(_行,_回数_2).

表示する(M,N,_) :-
        '9 × 9 は表示しない'(M,N),!.
表示する(N,M,_積) :-
        writef('%2r ',[_積]).

'9 × 9 は表示しない'(9,9).