练习3-71

原文

代码

(define (Ramanujan s)(define (stream-cadr s) (stream-car (stream-cdr s)))(define (stream-cddr s) (stream-cdr (stream-cdr s)))(let ((scar (stream-car s))(scadr (stream-cadr s)))(if (= (sum-triple scar) (sum-triple scadr)) (cons-stream (list (sum-triple scar) scar scadr)(Ramanujan (stream-cddr s)))(Ramanujan (stream-cdr s)))))
(define (triple x) (* x x x))
(define (sum-triple x) (+ (triple (car x)) (triple (cadr x))))
(define Ramanujan-numbers(Ramanujan (weighted-pairs integers integers sum-triple)))

所以接下来的5个数是：
(4104 (2 16) (9 15))
(13832 (2 24) (18 20))
(20683 (10 27) (19 24))
(32832 (4 32) (18 30))
(39312 (2 34) (15 33))

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

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

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

【SICP练习】140 练习3.71相关推荐

140.210.28.29扬州BGP高防服务器
江苏扬州市机房,位于运河西路237号数据中心,机柜数量400-500个,位于4楼6楼,每层200多个标准机柜,机柜42U.同机房典型客户有阿里的天猫淘宝 CDN业务.金山云的华东最大节点,以及小米后 ...
Windows服务器防火墙端口怎么开放？扬州服务器租用140.210.20.X
什么是端口? 我们平时所说的端口其实不是指物理意义上的端口,而是特指TCP/IP协议中的端口,是逻辑意义上的端口.本地操作系统会给那些有需求的进程分配一个端口.当目的主机接收到数据包后,将根据报文首部 ...
20180601]函数与标量子查询2.txt
[20180601]函数与标量子查询2.txt --//昨天看http://www.cnblogs.com/kerrycode/p/9099507.html链接,里面提到: 通俗来将,当使用标量子查询 ...
算术的c语言程序设计,C 程序设计：变量与算术表达式
简明现代魔法 -> C/C++ -> C 程序设计:变量与算术表达式 C 程序设计:变量与算术表达式 2010-02-12 问题:使用公式 C = (5/9)(F-32) 打印下列华氏温度 ...
R语言学习笔记（三）多元数据的数据特征、相关分析与图形表示
文章目录写在前面独立性检验 χ2\chi^2χ2独立性检验 Fisher独立性检验 Cochran-Mantel-Haenszel χ2\chi^2χ2独立性检验相关性分析相关性检验相关性检 ...
一次由于网卡流量跑满引起的服务器丢包总结（sar命令排查）
本文出自 "朴实的追梦者" 博客,请务必保留此出处http://sfzhang88.blog.51cto.com/4995876/1834696 最近收到线上一台DB服务器ping ...
linux安装mpich
为了做课设,不得不安装个mpich,找了好久方法.下面简单介绍下安装方法 yum安装,这是比较简单的安装方式注意:先要配置好yum的网络源安装epel-release扩展源,我试了下本地的貌似没安装 ...
itpt_TCPL 第一章：C简要教程
2016.06.19 – 07.05 个人英文阅读练习笔记(极低水准). 06.19 第一章:C语言的一个简单教程让我们以对C语言的一个快速介绍开始.我们的目标是展示语言在真实程序中所需元素,但并不 ...
用matlab画同心圆,求同心圆的同心度
hi 椭圆的最小二乘拟合只需要将X换成你的边界坐标即可 x = [59 136 58 137 57 137 56 137 55 138 54 139 53 140 52 141 51 142 51 ...

【SICP练习】140 练习3.71

练习3-71

原文

代码

【SICP练习】140 练习3.71相关推荐

最新文章

热门文章