2015-09-21から1日間の記事一覧
delete-1は見つからなかった場合もcond式のelse節でconsしているためにコピーしたリストを返す. 元のリストを返すように実装する. 以下が元のdelete-1 (define (delete-1 elt lis . options) (let-optionals* options ((cmp-fn equal?)) (define (loop lis…
(define (any-pred . preds) (lambda (x) (fold (lambda (pred false) (or (pred x) false)) #f preds))) (define (every-pred . preds) (lambda (x) (fold (lambda (pred true) (and (pred x) true)) #t preds)))