(wat-aro)

生きてます

2015-09-21から1日間の記事一覧

プログラミングGauche 9.1練習問題

delete-1は見つからなかった場合もcond式のelse節でconsしているためにコピーしたリストを返す. 元のリストを返すように実装する. 以下が元のdelete-1 (define (delete-1 elt lis . options) (let-optionals* options ((cmp-fn equal?)) (define (loop lis…

プログラミングGauche 8.3.3練習問題

(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)))