2008-04-19から1日間の記事一覧
差分リストといいつつ、lastはただのリストの練習だった。 last my_last([_, Head | Rest], Result) :- my_last([Head | Rest], Result). my_last([Result | []], Result). slices split_at(N, [Lcar | Lcdr], [Lcar | F], R) :- N > 0, N1 is N - 1, split_…
差分リストといいつつ、lastはただのリストの練習だった。 last my_last([_, Head | Rest], Result) :- my_last([Head | Rest], Result). my_last([Result | []], Result). slices split_at(N, [Lcar | Lcdr], [Lcar | F], R) :- N > 0, N1 is N - 1, split_…
