09/06/14 05:48:29
>>163
% Prolog (カンマを含む整数表示にはなっていない)
namae(['高専 卒男','大学 学男','大学 修治']).
'Salary'([[20,215000],[22,235000],[255000]]).
'問5.1に示す表を表示する'(2) :-
namae(L1),
'Salary'(L2),
length(namae,Len),
write_formatted('%20s,%8s,%8s\n',[名前,年齢,初任給]),
for(1,N,Len),
list_nth(N,L1,_名前),
list_nth(N,L2,[_年齢,_初任給]),
write_formatted('%20s,%8d,%8d\n',[_名前,_年齢,_初任給]),
N=Len,
write('\n\nURLﾘﾝｸ(a.pic.to) のような美しい表を作るにはポストスクリプト
命令述語を使う必要がありますね\n').