09/06/20 05:37:07
>>246
順併合というソートと誤解されるかな。
二つの文字列を交互に併合する(Str1,Str2,Str) :-
atom_chars(Str1,Chars1),
atom_chars(Str2,Chars2),
交互併合(Chars1,Chars2,Chars3),
atom_chars(Str,chars3).
交互併合([],L,L) :- !.
交互併合([A|R1],L2,[A|R]) :-
交互併合(L2,R1,R).
09/06/20 05:37:07
>>246
順併合というソートと誤解されるかな。
二つの文字列を交互に併合する(Str1,Str2,Str) :-
atom_chars(Str1,Chars1),
atom_chars(Str2,Chars2),
交互併合(Chars1,Chars2,Chars3),
atom_chars(Str,chars3).
交互併合([],L,L) :- !.
交互併合([A|R1],L2,[A|R]) :-
交互併合(L2,R1,R).