09/06/20 04:31:12
>>149 >>150
% Prolog (下請け述語を改変)
% ｽﾚﾘﾝｸ(tech板:289番) 参照
交互にならべた文字列(Str1,Str2,Str) :-
atom_chars(Str1,Chars1),
atom_chars(Str2,Chars2),
交互にならべた文字列_1(Chars1,Chars2,Chars3),
atom_chars(Str,chars3).
交互にならべた文字列_1([],L,L) :- !.
交互にならべた文字列_1([A|R1],L2,[A|R]) :-
交互にならべた文字列_1(L2,R1,R)..
?- 交互にならべた文字列(abcde,opq,X).
X = aobpcqde;
no
?-