練習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

---

---

感謝您的訪問，希望對您有所幫助。 歡迎大家關(guān)注或收藏、評論或點贊。

---

為使本文得到斧正和提問，轉(zhuǎn)載請注明出處：
http://blog.csdn.net/nomasp

---

版權(quán)聲明：本文為 NoMasp柯于旺 原創(chuàng)文章，如需轉(zhuǎn)載請聯(lián)系本人。

轉(zhuǎn)載于:https://www.cnblogs.com/NoMasp/p/4786062.html

總結(jié)

以上是生活随笔為你收集整理的【SICP练习】138 练习3.69的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。