このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/563
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  (1)~(5)の穴埋め 
#  test2の出力例 
#  $ ./test2 
#  ************* 
#  ...........* 
#  *********** 
#  .........* 
#  ********* 
#  .......* 
#  ******* 
#  .....* 
#  ***** 
#  ...* 
#  *** 
#  ..* 
#  * 
#  $ 
# 
# 

'上記グラフの表示' :-
        '上記グラフの表示'([_,_,_,_,_,_,_,_,_,_,_,_,_]),!.


'上記グラフの表示'(L) :-
        ちょっと工夫(L),
        fail.
'上記グラフの表示'([_,_|R]) :-
        '上記グラフの表示'(R).
'上記グラフの表示'(_).

ちょっと工夫(L) :-
        all(L,*),
        concat_atom(L,S),
        write_formatted('%t\n',[S]).
ちょっと工夫([_,_|R]) :-
        all(R,'. '),
        concat_atom(R,S),
        write_formatted('%t*\n',[S]).