このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1286978599/628
#  [1] 授業単元:基礎プログラミング  
#  [2] 問題文(含コード&リンク) 
#  問題4 風林火山を、2つのputs関数を使用して表示するプログラムを作成しなさい

'風林火山を、2つのputs関数を使用して表示する'(_風林火山前半表示,_風林火山後半表示) :-
        write('\n'),
        atom_chars(風林火山,L),
        findall(S,(
                    append(_,[A|_],L),
                    atom_concat('     ',A,S)),
                L2),
        append(L0,L1,L2),
        \+(L1=[]),
        \+(L2=[]),
        concat_atom(L0,'\n',_風林火山前半表示),
        concat_atom(L1,'\n',_風林火山後半表示),
        puts(_風林火山前半表示),
        puts(_風林火山後半表示),
        write('\n').

puts(S) :- write_formatted('%t\n',[S]).