いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

538:デフォルトの名無しさん
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]).

次ページ

続きを表示

1を表示