このディレクトリの索引

'Prologで文字をフォーマットしてリストに突っ込むってどうやるんだろ'(_フォーマット,_リスト) :-
        リスト要素数を5とする(_リスト),
        フォーマットに適合したデータの入力(_フォーマット,_リスト).

フォーマットに適合したデータの入力(_,[]) :- !.
フォーマットに適合したデータの入力(_フォーマット,[_文字列アトム|R]) :-
        write('? '),
        readln(_入力データリスト),
        swritef(_表示データストリング表現,_フォーマット,_入力データリスト),
        ストリングをアトムに変換(_表示データストリング表現,_文字列アトム),
        フォーマットに適合したデータの入力(_フォーマット,R).

リスト要素数を5とする(_リスト) :-
        length(_リスト,5).

ストリングをアトムに変換(_ストリング,_文字列アトム) :-
        string_to_atom(_ストリング,_文字列アトム).

%  実行

?-  'Prologで文字をフォーマットしてリストに突っ込むってどうやるんだろ'('%4r,%4r',L).
? abc,def
? uuu,vvvv
? 314,222
? 12,1
? 尾崎,隆大
L = [' abc, def',' uuu,vvvv',' 314, 222','  12,   1','\'尾崎\',\'隆大\'']