09/06/17 07:47:20
>>201
% Prolog
t201 :-
findall(Q,t201(Q),L),
member(A,L),
write(A),
nl;
true.
t201(Q) :-
符号を含むならびの生成([1,2,3,4,5,6,7,8,9],L),
atom_chars(S,L),
atom_to_term(S,Q,_),
100 is Q.
符号を含むならびの生成([A],[A]).
符号を含むならびの生成([A|R1],[A|R2]) :-
符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'+'|R2]) :-
符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'-'|R2]) :-
符号を含むならびの生成(R1,R2).