このディレクトリの索引

リストをカンマ区切りで表示して改行する(Outstream,[]) :-
        write(Outstream,'\n').
リストをカンマ区切りで表示して改行する(Outstream,[A]) :-
        writef(Outstream,'%t\n',[A]).
リストをカンマ区切りで表示して改行する(Outstream,[A,B|R]) :-
        writef(Outstream,'%t,',[A]),
        リストをカンマ区切りで表示して改行する(Outstream,[B|R]).

リストをカンマ区切りで表示して改行する([]) :-
        write('\n').
リストをカンマ区切りで表示して改行する([A]) :-
        writef('%t\n',[A]).
リストをカンマ区切りで表示して改行する([A,B|R]) :-
        writef('%t,',[A]),
        リストをカンマ区切りで表示して改行する([B|R]).