2015-10-18から1日間の記事一覧
(define (cc amount coin-values) (cond ((= amount 0) 1) ((or (< amount 0) (no-more? coin-values)) 0) (else (+ (cc amount (except-first-denomination coin-values)) (cc (- amount (first-denomination coin-values)) coin-values))))) (define first…
(define (reverse items) (define (iter lis result) (if (null? lis) result (iter (cdr lis) (cons (car lis) result)))) (iter items nil))
(define (last-pair items) (if (null? (cdr items)) items (last-pair (cdr items))))
(define (par1 r1 r2) (div-interval (mul-interval r1 r2) (add-interval r1 r2))) (define (par2 r1 r2) (let ((one (make-interval 1 1))) (div-interval one (add-interval (div-interval one r1) (div-interval one r2))))) par1には不確かな数(r1,r2)…
(define (par1 r1 r2) (div-interval (mul-interval r1 r2) (add-interval r1 r2))) (define (par2 r1 r2) (let ((one (make-interval 1 1))) (div-interval one (add-interval (div-interval one r1) (div-interval one r2))))) gosh> (define small (make-…