09/07/22 11:50:49
>>537
% Prolog ちょっと捻ってみた(ｺｳｲｳｺﾄｦｼﾃﾊｲｹﾅｲ)。
t537(N) :- M is N - 1,length(Z,M),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]).