Prologでまったり Part4

このエントリーをはてなブックマークに追加
289デフォルトの名無しさん
divide([],[],[]).
divide([X|Xs],[X|Ys],Zs) :- divide(Xs,Zs,Ys).