troter https://blog.hatena.ne.jp/troter/ 放牧日記 https://troter.hatenablog.jp/ prolog バックトラックを禁止する述語らしい。これを使えば リスト - 放牧日記のtakeやdropも my_take(0, _, []) :- !. my_take(N, [Lcar | Lcdr], [Lcar | R]) :- N > 0, N1 is N - 1, my_take(N1, Lcdr, R). my_drop(0, L, L) :- !. my_drop(N, [_ | Lcdr], R) :- N > 0, N1 is N - 1, my_take(N1, Lcdr, R). my_split_at(0, L, [], L) :- !. my_split_at(N, [Lcar … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftroter.hatenablog.jp%2Fentry%2F20080414%2F1208179202" 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-14 22:20:02 rich https://troter.hatenablog.jp/entry/20080414/1208179202 1.0 100%