Open Source WEB

##(link2sicp "book-Z-H-10.html#%_thm_1.3" "Exercise 1.3")

解答例

(define (sum-of-squares-of-biggers x y z)
  (if (> x y)
      (sum-of-squares x (if (> y z) y z))
      (sum-of-squares y (if (> z x) z x))))

コード

##(sicp-answer-code "ex-1.3.scm")

このサイトは、 IPA の「平成15年度オープンソフトウエア活用基盤整備事業」 の委託事業として開発されたKahuaで試験的に運用しております。

Copyright (c) 2004-2007 株式会社タイムインターメディア About Us