09/07/22 11:57:44
>>537 一部変更。
% Prolog
t537(N) :- length(L,N),L=[_|Z],t537([*],Z).
t537(L,Z) :- append(L,_,Z),t537_w(L),t537([*|L],Z).
t537(L,Z) :- t537_w(L),fail.
t537([*],_) :- !.
t537_w(L) :- concat_atom(L,S),write_formatted('%t\n',[S]).
09/07/22 11:57:44
>>537 一部変更。
% Prolog
t537(N) :- length(L,N),L=[_|Z],t537([*],Z).
t537(L,Z) :- append(L,_,Z),t537_w(L),t537([*|L],Z).
t537(L,Z) :- t537_w(L),fail.
t537([*],_) :- !.
t537_w(L) :- concat_atom(L,S),write_formatted('%t\n',[S]).