いろんな言語で宿題スレ

いろんな言語で宿題ス ..

568:デフォルトの名無しさん
09/07/27 07:42:02
>>567
% Prolog

extra8 :-
　　user_parameters([File]),
　　get_lines(File,Lines),
　　findall(Item_list,(member(Line,Lines),split(Line,[','],Item_list)),T_list),
　　assertz(t_list(T_list)).

print_tlist :-
　　t_list(T_list),
　　member(Item_list,T_list),
　　print_tlist_format(Item_list,Format),
　　write_formatted(Format,Item_list),
　　fail.
print_tlist.

print_tlist_format(Item_list,Format) :-
　　length(Item_list,Len),
　　length(L,Len),
　　all(L,'%t'),
　　concat_atom(L,',',S),
　　concat_atom(['Items : ,S,'\n'],Format),!.

次ページ