文档章节

【SICP练习】141 练习3.72

NoMasp
 NoMasp
发布于 2015/09/08 21:46
字数 202
阅读 3
收藏 0

练习3-72

原文

Exercise 3.72. In a similar way to exercise 3.71 generate a stream of all numbers that can be written as the sum of two squares in three different ways (showing how they can be so written).

代码

 (define (square x) (* x x)) 
 (define (sum-square x) (+ (square (car x)) (square (cadr x)))) 
 (define (squaresn s) (define (stream-cadr s) (stream-car (stream-cdr s))) (define (stream-caddr s) (stream-cadr (stream-cdr s))) (let ((scar (stream-car s)) (scadr (stream-cadr s)) (scaddr (stream-caddr s))) (if (= (sum-square scar) (sum-square scadr) (sum-square scaddr)) (cons-stream (list (sum-square scar) scar scadr scaddr) (squaresn (stream-cdr (stream-cdr (stream-cdr s))))) (squaresn (stream-cdr s))))) 
 (define square-numbers (squaresn (weighted-pairs integers integers sum-square))) 



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


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


版权声明:本文为 NoMasp柯于旺 原创文章,未经许可严禁转载!欢迎访问我的博客:http://blog.csdn.net/nomasp

本文转载自:http://blog.csdn.net/nomasp/article/details/44725477

NoMasp
粉丝 7
博文 334
码字总数 0
作品 0
镇江
程序员
私信 提问
PHP请问下一个数组的问题,麻烦各位大虾了~~谢谢了

Array ( [0] => Array ( [0] => 137 [1] => 36 [2] => 白色 [3] => 2 ) [1] => Array ( [0] => 141 [1] => [2] => [3] => 1 ) [2] => Array ( [0] => 141 [1] => [2] => 白色 [3] => 2 ) [3]......

FLIGHT
2012/10/30
274
8
股市币圈冰火两重天!比特币还将走向哪里呢?

“第一条:保住本金最重要。第二条:永远不要忘记第一条” ————沃伦·巴菲特 今日杂谈:今天最特别的要数我们的A股了,整个大盘指数都快涨停了!有些板块个股全部涨停,这种的确是闻到了...

K线中有杀气
02/26
0
0
141.4. 分布式安装(CentOS 6 + hadoop-1.1.2)

HDFS: NameNode :管理节点 DataNode :数据节点 SecondaryNamenode : 数据源信息备份整理节点 MapReduce JobTracker :任务管理节点 Tasktracker :任务运行节点 准备4台服务器,操作系统为...

玄学酱
2017/12/21
0
0
[RK3399][Android7.1] Ubuntu 编译环境之Jdk版本切换

Platform: RK3399 OS: Android 7.1 PC: Ubuntu 14.04 LTS 默认是OpenJDK 7 kris@eco:~/Downloads$ java -version java version “1.7.0_131” OpenJDK Runtime Environment (IcedTea 2.6.9) ......

kris_fei
2017/11/29
0
0
0015-如何使用Sentry管理Hive外部表权限

1.文档编写目的 本文档主要讲述如何使用Sentry对Hive外部表权限管理,并基于以下假设: 1.操作系统版本:RedHat6.5 2.CM版本:CM 5.11.1 3.集群已启用Kerberos和Sentry 4.采用具有sudo权限的...

Hadoop实操
2018/11/17
36
0

没有更多内容

加载失败,请刷新页面

加载更多

只需一步,在Spring Boot中统一Restful API返回值格式与统一处理异常

统一返回值 在前后端分离大行其道的今天,有一个统一的返回值格式不仅能使我们的接口看起来更漂亮,而且还可以使前端可以统一处理很多东西,避免很多问题的产生。 比较通用的返回值格式如下:...

晓月寒丶
昨天
59
0
区块链应用到供应链上的好处和实际案例

区块链可以解决供应链中的很多问题,例如记录以及追踪产品。那么使用区块链应用到各产品供应链上到底有什么好处?猎头悬赏平台解优人才网小编给大家做个简单的分享: 使用区块链的最突出的优...

猎头悬赏平台
昨天
28
0
全世界到底有多少软件开发人员?

埃文斯数据公司(Evans Data Corporation) 2019 最新的统计数据(原文)显示,2018 年全球共有 2300 万软件开发人员,预计到 2019 年底这个数字将达到 2640万,到 2023 年达到 2770万。 而来自...

红薯
昨天
65
0
Go 语言基础—— 通道(channel)

通过通信来共享内存(Java是通过共享内存来通信的) 定义 func service() string {time.Sleep(time.Millisecond * 50)return "Done"}func AsyncService() chan string {retCh := mak......

刘一草
昨天
58
0
Apache Flink 零基础入门(一):基础概念解析

Apache Flink 的定义、架构及原理 Apache Flink 是一个分布式大数据处理引擎,可对有限数据流和无限数据流进行有状态或无状态的计算,能够部署在各种集群环境,对各种规模大小的数据进行快速...

Vincent-Duan
昨天
60
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部