いろんな言語で宿題スレ

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

245:デフォルトの名無しさん
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
?-

次ページ

続きを表示

1を表示