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

---

版權聲明：本文為 NoMasp柯于旺 原創文章，如需轉載請聯系本人。

轉載于:https://www.cnblogs.com/NoMasp/p/4786062.html

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。