#lang planet neil/sicp
(define (cons a b) (* (expt 2 a) (expt 3 b)))
(define (car z)
(if (= 0 (remainder z 2))
(+ 1 (car (/ z 2)))
0))
(define (cdr z)
(if (= 0 (remainder z 3))
(+ 1 (cdr (/ z 3)))
0))
运行:
> (define z (cons 2 3))
> (car z)
2
> (cdr z)
3
>
sicp 习题2.5
最新推荐文章于 2019-03-14 18:30:00 发布