- 171 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 21:54:55 ]
- >>170
% Prolog データファイルを作ることも問題のうちなのかな。例によってポインター云々は無視。
ファイル作成(_ファイル名) :-
write('作成するデータ数を入力してください : '),
get_integer(N),
tell(_ファイル名),
write_formatted('%t\n',[N]),
for(1,M,N),
write('名前と年齢をカンマまたはスペース区切りで入力してください : '),
get_split_line([',',' '],[_名前,_年齢]),
write_formatted('%t %t %t\n',[N,_名前,_年齢]),
M = N,
told.
ファイルから読み取ったデータを登録する(_ファイル名) :-
get_split_lines(_ファイル名,[' '],LL),
LL = [_|LL2],
'この場合、要素数(構造体の数)はいらないから',
append(_,[[_登録番号,_名前,_年齢]|R],LL2),
assertz(人物(_登録番号,_名前,_年齢)),
R = [].
'この場合、要素数(構造体の数)はいらないから'.
|
 |
