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),!.