いろんな言語で宿題スレ

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

いろんな言語で宿題スレ - 暇つぶし2ch325:デフォルトの名無しさん
09/07/02 05:47:42
>>319 ①
% Prolog
swap(A,B,L,LX) :-
append(L1,[A|L2],[B|L3],L),
append(L1,[B|L2],[A|L3],LX),!.
swap(A,B,L,LX) :-
append(L1,[B|L2],[A|L3],L),
append(L1,[A|L2],[B|L3],LX),!.

次ページ

続きを表示

1を表示