このディレクトリの索引
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,40,10,50,30],['CD','GH','AB','IJ','EF']]
%
% a([20,40,10,50,30],['CD','GH','AB','IJ','EF']).

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

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

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