2008-04-18から1日間の記事一覧

差分リストの練習 その2

同期同士の勉強会でお題をもらった! zip list_heads(Lists, Hs, Rs) :- list_heads_sub(Lists, Hs, Rs), !. list_heads(_, [], []). list_heads_sub([[H | R] | Ls], [H | Hs], [R | Rs]) :- H \== [], list_heads_sub(Ls, Hs, Rs). list_heads_sub(_, [], …