このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/749
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10241.txt
# 下記構造体型配列を作る。
# データは入力すること。
# 確認のため各配列要素を表示すること。
#  
# 20  40  10  50  30
# CD  GH  AB  IJ  EF
%
% [20,'CD'],[40,'GH'],[10,'AB'],[50,'IJ'],[30,'EF']
%

prologで構造体配列に近いものを作り確認のため表示する :-
    prologで構造体配列に近いものを作る(L),
    findall(A,member([A,_],L),L1),
    concat_atom(L1,' ',S1),
    write_formatted('%t\n',[S1]),
    findall(B,member([B,_],L),L2),
    concat_atom(L2,' ',S2),
    write_formatted('%t\n',[S2]).

prologで構造体配列に近いものを作る(L) :-
    get_split_lines(user_input,[','],L).

prologで構造体配列に近いものを作り述語として定義する(_構造体名) :-
    prologで構造体配列に近いものを作る(L),,
    member(L1,L),
    P =.. [_構造体名|L1],
    assertz(P),
    fail.
prologで構造体配列に近いものを作り述語定義する(_).