いろんな言語で宿題スレ

いろんな言語で宿題ス ..

443:440
09/07/12 06:11:44
>>440 訂正 write_formattedの表現に誤りがありました。

'20文を選択して表示'(_文集) :-
　　length(_文集,Len),
　　Div is Len // 20,
　　tell('t440_2.txt'),
　　for(1,N,20),
　　Nth is N * Div,
　　list_nth(Nth,_文集,_選択文),
　　concat_atom(_選択文,_選択文文字列),
　　write_formatted('%t\n',[_選択文文字列]),
　　N = 20,
　　told.

次ページ