题目
Scheme高手请进~两个函数相互定义
(define (flat-recur seed list-proc)
(letrec ((helper (lambda (ls)
(if (null?ls) seed
(list-proc (car ls) (helper (cdr ls)))))))
helper))
(define (deep-recur seed item-proc list-proc)
(letrec ((hlp (lambda (ls)
(if (null?ls) seed
(let ((a (car ls)))
(if (or (pair?a) (null?a))
(list-proc (hlp a) (hlp (cdr ls)))
(item-proc a (hlp (cdr ls)))))))))
hlp))
怎么用deep-recur定义flat-recur,怎么用flat-recur定义deep-recur?
就是在定义deep-recur之后用deep-recur的功能来定义flat-recur,另一个就是反过来啦~
本人为菜鸟,这是一本菜鸟入门书的训练题来着
(define (flat-recur seed list-proc)
(letrec ((helper (lambda (ls)
(if (null?ls) seed
(list-proc (car ls) (helper (cdr ls)))))))
helper))
(define (deep-recur seed item-proc list-proc)
(letrec ((hlp (lambda (ls)
(if (null?ls) seed
(let ((a (car ls)))
(if (or (pair?a) (null?a))
(list-proc (hlp a) (hlp (cdr ls)))
(item-proc a (hlp (cdr ls)))))))))
hlp))
怎么用deep-recur定义flat-recur,怎么用flat-recur定义deep-recur?
就是在定义deep-recur之后用deep-recur的功能来定义flat-recur,另一个就是反过来啦~
本人为菜鸟,这是一本菜鸟入门书的训练题来着
提问时间:2021-03-29
答案
(define (flat-recur seed list-proc)
(deep-recur seed list-proc list-proc))
用flat-recur来定义deep-recur尚未想到好办法..
(deep-recur seed list-proc list-proc))
用flat-recur来定义deep-recur尚未想到好办法..
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1用一个词形容星星看着大地
- 2有三块牧场,草长得一样密一样快,面积分别为10/3公顷、10公顷和24公顷.第一块牧场12头牛可吃4个星期,第二块牧场21头牛可吃9个星期,第三块牧场可供多少头牛吃18个星期?
- 3请问这个“certificate of compliance”用中文翻译是什么意思呀?
- 4either of them is not right的翻译
- 51U,2U,3U,4U,机箱前面板固定尺寸是根据什么定义的?
- 6小提琴怎么样可以拉出动听的声音
- 7木块A放在木块B上,A往左水平方向受到5N的拉力,A;B仍处于静止状态,问:B与地面的摩擦力是多少?
- 8We all oove our hobbies.
- 9一个滑雪的人,质量m=75kg,以v0=2m/s的初速度沿山坡匀加速滑下,山坡的倾角θ=30°,在t=5s的时间内滑下的路程x=60m,求滑雪人受到的阻力(包括摩擦和空气阻力,g=10m/s2).
- 10把一根木头锯成4段需要2O分钟.照这样计算,把这根木头锯成9段需要多少小时?