Scheme高手请进~两个函数相互定义(define(flat-recurseedlist-proc)(letrec((helper(lambda(ls)(if(null?ls)seed(list-proc(carls)(helper(cdrls)))))))helper))(define(deep-recurseeditem-proclist-proc)(letrec((hlp(lambda(ls)(if
1人问答
问题描述：
Scheme高手请进~两个函数相互定义
(define(flat-recurseedlist-proc)
(letrec((helper(lambda(ls)
(if(null?ls)seed
(list-proc(carls)(helper(cdrls)))))))
helper))
(define(deep-recurseeditem-proclist-proc)
(letrec((hlp(lambda(ls)
(if(null?ls)seed
(let((a(carls)))
(if(or(pair?a)(null?a))
(list-proc(hlpa)(hlp(cdrls)))
(item-proca(hlp(cdrls)))))))))
hlp))
怎么用deep-recur定义flat-recur,怎么用flat-recur定义deep-recur?
就是在定义deep-recur之后用deep-recur的功能来定义flat-recur，另一个就是反过来啦~
本人为菜鸟，这是一本菜鸟入门书的训练题来着
管菅回答：
(define(flat-recurseedlist-proc)
(deep-recurseedlist-proclist-proc))
用flat-recur来定义deep-recur尚未想到好办法..
八字精批
八字合婚
八字起名
八字财运
2024运势
测终身运
姓名详批
结婚吉日
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
邮箱： 
