tanakaBox https://blog.hatena.ne.jp/tanakaBox/ ボクノス https://boxnos.hatenablog.com/ Scheme unfoldは便利なんだけど、cons邪魔杉なので新関数unを考えてみた。 (define (un p tail f seed) (if (p seed) (tail seed) (f seed (lambda (x) (un p tail f x))))) fは2個の引数、seedと手続きを取るようにする。 リストのコピー。 (un null? values (lambda (x g) (cons (car x) (g (cdr x)))) (iota 10)) ; (0 1 2 3 4 5 6 7 8 9) 0から10まで足す。 (un zero? values (lambda (x g)… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080408%2F1207602464" 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-08 06:07:44 rich https://boxnos.hatenablog.com/entry/20080408/1207602464 1.0 100%