Lisp Scheme Part23 - 暇つぶし2ch

Lisp Scheme Part23 at TECH

39:37
08/07/20 09:19:08
>>28
ドキュメント化されてないけど、あったんですね。
自分で書いてしまいました。
cartesian-productよりも簡単でした。

(define (cartesian-product-for-each proc los)
(let loop ((r '())
(los los))
(if (null? los)
(proc r)
(for-each (lambda(x)(loop (cons x r) (cdr los))) (car los))
)))

次ページ

続きを表示

1を表示