このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/574
#  ../test/read.cgi/tech/1294061094/568-569 
#  ありがとうございます 
#  指摘通りご入力です・・・ 
#  もう1つお願いします 
#   
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  (1)~(5)の穴埋め 
#  $ ./test02 
#  .* 
#  **.. 
#  ...*** 
#  ****.... 
#  .....***** 
#  ******...... 
#  ......****** 
#  $ 
#   

'トグルグラフ表示' :-
        'トグルグラフ表示'([_],点,'. ',*).

'トグルグラフ表示'([_,_,_,_,_,_,_],_,_) :- !.
'トグルグラフ表示'(Ln,_要素1,_要素2) :-
        ひと工夫(Ln,_要素1,_要素2).
'トグルグラフ表示'(Ln,_要素1,_要素2) :-
        'トグルグラフ表示'([_|Ln],_要素2,_要素1).

ひと工夫(Ln,_要素,_) :-
        all(Ln,_要素),
        concat_atom(Ln,S),
        write_formatted('%t',[S]),
        fail.
ひと工夫(Ln,_,_要素) :-
        all(Ln,_要素),
        concat_atom(Ln,S),
        write_formatted('%t\n',[S]),
        fail.