このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/260
#  ttp://codepad.org/pWDlCcF7 
#  ここまでは出来たんだけど、txtファイルの結果を 
#           *|** 
#         ***|**** 
#       *****|****** 
#     *******|******** 
#   *********|********** 
#  こんな感じに揃えるにはどうすればいいんですか? 
# 
# 

'ここまでは出来たんだけど、txtファイルの結果を #           *|** #         ***|**** #       *****|****** #     *******|******** #   *********|********** #  こんな感じに揃えるにはどうすればいいんですか?' :-
        ならびを変化させる(L1,L2,L),
        描画する(L1,L2,L),
        L2 = [].

ならびを変化させる(L1,L2,L) :-
        length(L8,8),
        '空白と*を配分する'(L8,L1,L2),
        append(L2,L1,L3),
        append(L1,L2,L4),
        append(L3,['*','|','*','*'|L4],L).

'空白と*を配分する'(L8,L1,L2) :-
        append(L1,L2,L8),
        length(L1,Len1),
        0 is Len1 mod 2,
        all(L2,' '),
        all(L1,'*').

描画する(L1,L2,L) :-
        concat_atom(L,S),
        writef('  %t\n',[S]).