Lisp Scheme Part22 - 暇つぶし2ch

Lisp Scheme Part22 at TECH

244:デフォルトの名無しさん
08/06/01 00:22:49
>>239-242
「う～ん、それならこれで十分なんじゃな～い」ってきっと言われる・・・

(define rember-upto-last
　(lambda (a lat)
　　(let loop ((ans lat) (lst lat))
　　　(cond ((null? lst) ans)
　　　　　　((eq? (car lst) a) (loop (cdr lst) (cdr lst)))
　　　　　　(else (loop ans (cdr lst)))))))

(define intersectall
　(lambda (lset)
　　(fold intersect (car lset) (cdr lset))))

なんか簡潔で説得力のある一級継続の使用例は無いものだろうか・・・

次ページ

続きを表示

1を表示