练习3-69

原文

代码


(define (triples s t u)(cons-stream (list(stream-car s)(stream-car t)(stream-car u))(interleave(stream-map (lambda (x) (cons (stream-car s) x))(stream-cdr (pairs t u)))(triples (stream-cdr s)(stream-cdr t)(stream-cdr u)))))
;Value: triples(define (phythagorean-numbers)(define (square x) (* x x))(define numbers (triles integers integers integers))(stream-filter (lambda (x)(= (square (caddr x))(+ (square (car x)) (square (cadr x)))))numbers))
;Value: phythagorean-numbers

感谢您的访问，希望对您有所帮助。欢迎大家关注或收藏、评论或点赞。

为使本文得到斧正和提问，转载请注明出处：
http://blog.csdn.net/nomasp

转载于:https://www.cnblogs.com/NoMasp/p/4786062.html

【SICP练习】138 练习3.69相关推荐

使用movetable收缩表空间
目的:收回目前没有使用过的表空间,减小数据文件大小. 难点:插入的历史数据可能分布在不同的磁盘位置上,所以无法确定resize datafile能不能成功执行. 解决方式:通过move一个tables ...
禁止迅雷:迅雷服务器地址大全+ISA计算机集（xml）
最近那个头疼啊,下载屡禁不止,来点呆板的办法,效果还是挺好的嘛,禁止迅雷和暴风影音.提供了ISA计算机集的xml文件,直接导入,禁止访问就好了,地址有点老,想要更新的自己测试完善.见附件! 116.1 ...
彻底封杀讯雷下载，做好网络管理
为了封掉公司的迅雷,试过了layer7过滤,早失效了,还是用土办法来得干脆--封IP.用 tcpdump 抓到了所有的迅雷服务器IP. --------------bock_thunder.sh--- ...
Windows Message ID 常量列表
Windows Message ID 常量列表: namespace WindowsUtilities { public enum WindowsMessages: int { WM_NULL ...
java性能调优（转载）
1.用new关键词创建类的实例时,构造函数链中的所有构造函数都会被自动调用.但如果一个对象实现了Cloneable接口,我们可以调用它的clone()方法.clone()方法不会调用任何类构造函数. ...
Windows的消息定义大全
消息,就是指Windows发出的一个通知,告诉应用程序某个事情发生了. 例如:单击鼠标.改变窗口尺寸.按下键盘上的一个键都会使Windows发送一个消息给应用程序. 消息本身是作为 ...
【C#】 enum 还能这么玩
背景: 这是一张雷赛卡的报错信息表,我想将其做成一个枚举,然后供异常系统使用: 下面这种写法,非常适合: enum MotionFuncErrCodeEnum{[Description("成 ...
Python生成信息熵决策树
✨信息熵决策树说白了就是越为祖先节点的信息越应该具有较小的熵.✨ 熵相信你高中一定听过,就是描述一个混乱程度. 所以越不混乱的(越具有辨识度的)越应该成为根节点官方总结一句就是:特征X作为根节点,使 ...
淘宝、天猫图片搜索商品接口API调用展示
以下是行业内了解到的一些情况,本帖只展示部分代码,需要更多API调试请移步注册API账号 http://console.open.onebound.cn/console/?i=Rookie { &qu ...

【SICP练习】138 练习3.69

练习3-69

原文

代码

【SICP练习】138 练习3.69相关推荐

最新文章

热门文章