3.67

于 2012-03-12 22:20:56 发布
阅读量252 收藏
点赞数
分类专栏： SICP 课后习题 文章标签： lambda list
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/aa_niaofang/article/details/7346775
版权 
;3.67
(define (pairs s t)
  (cons-stream
   (list (stream-car s) (stream-car t))
   (interleaves
    (interleaves
     (stream-map (lambda (x) (list (stream-car s) x)) (stream-cdr t))
     (stream-map (lambda (x) (list x (stream-car t))) (stream-cdr s)))
    (pairs (stream-cdr s) (stream-cdr t)))))

 
aa_niaofang
关注
专栏目录
FileZilla-3.67.0-win64-sponsored-setup.exe
05-09
filezilla
nss-3.67.0-4.el7_9.x86_64.rpm
01-30
官方离线安装包，亲测可用。使用rpm -ivh [rpm完整包名] 进行安装
nss-3.67.0-4.el7_9.i686.rpm
01-30
官方离线安装包，亲测可用。使用rpm -ivh [rpm完整包名] 进行安装
nss-sysinit-3.67.0-4.el7_9.x86_64.rpm
01-30
官方离线安装包，亲测可用。使用rpm -ivh [rpm完整包名] 进行安装
nss-softokn-freebl-3.67.0-3.el7_9.i686.rpm
12-20
官方离线安装包，亲测可用。使用rpm -ivh [rpm完整包名] 进行安装
2.30-2.42
aa_niaofang的专栏
02-22 2480
;2.30 (define (square-tree tree) (cond ((null? tree) '()) ((not (pair? tree)) (* tree tree)) (else (cons (square-tree (car tree)) (square-tree (cdr tree)))))
2.58
aa_niaofang的专栏
02-22 614
;2.56求导 (define (deriv exp var) (cond ((number? exp) 0) ((variable? exp) (if (same-variable? exp var) 1 0)) ((sum? exp) (make-sum (deriv (addend exp) var)
3.54
aa_niaofang的专栏
03-11 382
;3.54 (define (mul-streams a b) (cons-stream (* (stream-car a) (stream-car b)) (mul-streams (stream-cdr a) (stream-cdr b)))) (def
3.62
aa_niaofang的专栏
03-11 359
;3.62 (define (div-series s d) (if (= 0 (stream-car d)) 'ERROR-DIVIDED-ZERO (mul-series s (1-/-s d)))) ;正切函数的级数 (define tanch-series (div-series sine-series cosine-series))
3.65
aa_niaofang的专栏
03-11 341
;3.65 (define (ln2x n) (cons-stream (/ 1.0 n) (stream-map - (ln2x (+ 1 n))))) (define ln2-stream (scale-stream (patial (ln2x 1)) 4)) (define (euler-transfor
2.59-2.66
aa_niaofang的专栏
02-23 335
;2.59 union-set ;element-of-set? (define (element-of-set? x set) (cond ((null? set) #f) ((equal? x (car set)) #t) (else (element-of-set? x (cdr set))))) (define (union-set
3.64
aa_niaofang的专栏
03-11 278
;3.64 (define (stream-limit x tolerance) (let ((first-car (stream-car x)) (second-car (stream-car (stream-cdr x)))) (if (< (abs (- first-car second-car)) tolerance) second-c
2.56
aa_niaofang的专栏
02-22 273
;2.56求导 (define (deriv exp var) (cond ((number? exp) 0) ((variable? exp) (if (same-variable? exp var) 1 0)) ((sum? exp) (make-sum (deriv (addend exp) var)
2.2
aa_niaofang的专栏
02-22 268
;2.2 ;构建线段 (define (make-segment start end) (cons start end)) ;构建点 (define (make-point x y) (cons x y)) (define (x-point p) (car p)) (define (y-point p) (cdr p)) ;获得线段的首尾端
2.64
aa_niaofang的专栏
02-24 256
2.1
aa_niaofang的专栏
02-22 253
;构建有理数 (define (make-rat n d) (let ((g (gcd (abs n) (abs d)))) (if (< (* n d) 0) (cons (- 0 (abs (/ n g))) (abs (/ d g))) (cons (abs (/ n g)) (abs (/ d g)))))) ;取得分子 (de
3.6
aa_niaofang的专栏
02-28 249
;3.6 (define (new-rand x) (define seed 0) (cond ((eq? x 'generate) (rand-update seed)) ((eq? x 'reset) (lambda (y) (set! seed y))) (else (display 'ERROR))))
python 3.67下载pyautogui版本
最新发布
09-08
要下载Python 3.67版本的pyautogui，你需要按照以下步骤进行操作： 1. 打开你的浏览器，然后前往Python官方网站（https://www.python.org/）。 2. 在网站的导航菜单中，点击"Downloads"（下载）选项。 3. 在下载...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值