也没什么

迷失了方向

练习2.4 2.5

#lang racket
#|
;: 练习2.4
(define (cons x y)
  (lambda (m) (m x y)))

(define (car z)
  (z (lambda (p q) p)))

(define (cdr z)
  (z (lambda (p q) q)))

(define z (cons 'a 'b))
z
(car z)
(cdr z)

|#

;: 练习 2.5
(define (cons a b)
  (* (expt 2 a)
     (expt 3 b)))
;:
(define (car z)
  (if (= 0 (remainder z 2)) ;: 整除则+1
      (+ 1 (car (/ z 2)))
      0))
;:
(define (cdr z)
  (if (= 0 (remainder z 3))
      (+ 1 (cdr (/ z 3)))
      0))
;: 测试
(define z (cons 9 8))
(car z)
(cdr z)

阅读更多
版权声明:知行合一 https://blog.csdn.net/yemeishenme/article/details/51547946
文章标签: sicp
上一篇练习 2.3 定义矩形
下一篇练习 2.6
想对作者说点什么? 我来说一句

web.xml xsd 2.4 2.5

digyso888 digyso888

2011-01-14 14:33:00

阅读数:571

openbravo 2.5/2.4 会计科目文件

2009年11月26日 6KB 下载

没有更多推荐了,返回首页

关闭
关闭