【SICP练习】138 练习3.69

简介:

练习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


目录
相关文章
|
Go
【SICP练习】146 练习4.2
版权声明:转载请联系本人,感谢配合!本站地址:http://blog.csdn.net/nomasp https://blog.csdn.net/NoMasp/article/details/44729521 练习4-2 原文 Exercise 4.
670 0