- 256 名前：デフォルトの名無しさん mailto:sage [2010/07/06(火) 10:54:55 ]
- >>255 (>>247)
% Prolog 表示方法をちょっと工夫してみる。
'data.txtに書かれている氏名と成績を読み込み、氏名を2次元配列、成績を1次元配列に格納する' :-
get_split_lines('data.txt',[' '],LL),
'氏名を2次元配列、成績を1次元配列に格納する'(LL,_氏名ならび,_成績ならび,
氏名ならび・成績ならびを格納する(_氏名ならび,_成績ならび).
'氏名を2次元配列、成績を1次元配列に格納する'([],[],[]).
'氏名を2次元配列、成績を1次元配列に格納する'([[_氏名,_成績]|R1],[_氏名文字ならび|R2],[_成績|R3]) :-
atom_chars(_氏名,_氏名文字ならび),
'氏名を2次元配列、成績を1次元配列に格納する'(R1,R2,R3).
氏名ならび・成績ならびを格納する(_氏名ならび,_成績ならび) :-
assertz(氏名ならび(_氏名ならび)),
assertz(成績ならび(_成績ならび)).
|
 |
