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,另一个就是反过来啦~
本人为菜鸟,这是一本菜鸟入门书的训练题来着
人气:426 ℃ 时间:2020-10-02 05:39:13
解答
(define (flat-recur seed list-proc)
(deep-recur seed list-proc list-proc))
用flat-recur来定义deep-recur尚未想到好办法..
推荐
猜你喜欢
- 363至少减去几后,能同时被2.3.5整除 826至少加上几就能被3整除 63(),要使这个数有因
- 设函数y=f(x),对任意实数x,都有f(x+y)=f(x)+f(y)+2xy.(一)求f(0)的值;(二)若f(1)=1,求f(2),f(3),f(4)的值(四)在(二)的条件下,猜想f(n)(n属于N正)的表达式,并用数学归纳法加以证明
- 严监生的监念什么
- 苏教版小学语文关于"信"的课文有哪些
- 读了《爱的教育》,你有什么收获?
- 将分数47/51的分子、分母减去同一个自然数后,可约分为3/5,求这个自然数
- 三道初一生物填空题
- 现在时针与分针的夹角将是40度,再过多长时间,时针与分针的夹角将是100度?