#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 发布
本文介绍了一个使用Scheme语言实现的简单数据结构操作示例。通过定义`cons`、`car`和`cdr`函数来存储和获取数值对。该示例展示了如何用数学运算模拟传统的数据结构操作。
扫一扫
4783
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
