#lang racket
; exercise 2.17
(define (last-pair l)
(cond ((null? l) null)
((null? (cdr l)) l)
(else (last-pair (cdr l)))))
(last-pair (list 23 72 149 34))
(last-pair '(1))
(last-pair '())
; exercise 2.18
(define (reverse l)
(define (first-n-1 l)
(if (null? (cdr l))
null
(cons (car l) (first-n-1 (cdr l)))))
(if (null? l)
null
(cons (car (last-pair l)) (reverse (first-n-1 l)))))
(reverse (list 1 4 9 16 25)) ;; '(25 16 9 4 1)
; exercise 2.19
(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 (no-more? l)
(null? l))
(define (except-first-denomination l)
(cdr l))
(define (first-denomination l)
(car l))
(define us-coins (list 50 25 10 5 1))
(define uk-coins (list 100 50 20 10 5 2 1 0.5))
(cc 100 us-coins) ;; 292
;(cc 100 uk-coins) ;; 104561
;; coins-value的排列不会影响cc的结果
; exercise 2.20
(define (same-parity x . y)
(define (sp x y)
(define (odd? n) (= (remainder n 2) 1))
(cond ((null? y) null)
((odd? (+ x (car y))) (sp x (cdr y)))
(else (cons (car y) (sp x (cdr y))))))
(cons x (sp x y)))
(same-parity 1 2 3 4 5 6 7)
(same-parity 2 3 4 5 6 7)
; exercise 2.21
(define (square-list items)
(if (null? items)
null
(cons (square (car items)) (square-list (cdr items)))))
(define (square-list2 items)
(map square items))
(define (square x) (* x x))
(square-list (list 1 2 3 4))
(square-list2 (list 1 2 3 4))
; exercise 2.23
(define (for-each proc l)
(cond ((not (null? l))
(proc (car l))
(for-each proc (cdr l)))))
(for-each (lambda (x) (newline) (display x))
(list 57 321 88))
SICP习题解答2.17-2.23
最新推荐文章于 2019-08-02 13:57:38 发布