このディレクトリの索引 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]).