このディレクトリの索引
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),
        _行_2 is _行 + 1,
        変則的な九九表を作る(_行_2).

行と同じ個数まで九九積を表示する(_行,_桁) :-
        _桁 > _行,
        nl,!.
行と同じ個数まで九九積を表示する(_行,_桁) :-
        '9 × 9 は表示しない'(_行,_桁),!.
行と同じ個数まで九九積を表示する(_行,_桁) :-
        積を表示する(_行,_桁),
        _桁_2 is _桁 + 1,
        行と同じ個数まで九九積を表示する(_行,_桁_2).

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

積を表示する(_行,_桁) :-
        _積 is _行 * _桁,
        writef('%2r ',[_積]).