いろんな言語で宿題スレ第三編

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

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

656:デフォルトの名無しさん
 10/02/09 09:04:16 
>>653 
% Prolog 
 
ある述語の引数を表示する場合の一般解は :- 
　　ある述語(_引数), 
　　write_formatted('%t\n'm,[_引数]), 
　　fail. 
ある述語の引数を表示する場合の一般解は. 
 
でしょう。>>641では同姓同名をきっちりと表示することをサボっています。 
それでそのことをこの述語を利用するプログラマに注意するために変数の引数を 
強制しています。こうして置けば、この述語をテストした時に 
 
?- 学生番号または名前をもとに身長を調べる(藤原隆甫,_身長). 
_身長 = 177 
 
という解を示してインタプリタが停止します。これがPrologプログラマをして 
同姓同名への配慮が必要かどうか判断させる契機となるということです。

657:デフォルトの名無しさん
 10/02/09 09:07:39 
>>656 
変な"m"が混入してしまいました。 
 
write_formatted('%t\n'm,[_引数]), 　->　write_formatted('%t\n',[_引数]),  
 
です。

658:デフォルトの名無しさん
 10/02/09 11:53:10 
>>654 
% Prolog 出題の元スレの覗いていたら、%02d というformat表記が出ていた。 
% もしかしてと試みたら私のPrologでも同じ。これまでの私の人生は何だったんだwww 
% ということで、 
 
'テキストファイルから内容を読み出し、各行の先頭に　01 02 03 というように番号を付加して画面に出力する' :-  
　　get_lines('test02.txt',L),  
　　'各行の先頭に　01 02 03 というように番号を付加して画面に出力する'(1,L).  
 
'各行の先頭に　01 02 03 というように番号を付加して画面に出力する'(_,[]) :- !.  
'各行の先頭に　01 02 03 というように番号を付加して画面に出力する'(N,[Line|R]) :-  
　　write_formatted('%02d %t\n',[N,Line]),  
　　N2 is N + 1,  
　　'各行の先頭に　01 02 03 というように番号を付加して画面に出力する'(N2,R).

次ページ