troter https://blog.hatena.ne.jp/troter/ 放牧日記 https://troter.hatenablog.jp/ prolog 差分リストといいつつ、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_at(N1, Lcdr, F, R), !. split_at(_, [], [], []). split_at(0, L, [], L). slices(List, N,… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftroter.hatenablog.jp%2Fentry%2F20080419%2F1208592939" title=" 差分リストの練習 その３ - 放牧日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-04-19 17:15:39 rich https://troter.hatenablog.jp/entry/20080419/1208592939 1.0 100%