Open Source WEB

##(link2sicp "book-Z-H-12.html#%_thm_1.43" "Exercise 1.43")

解答例

(define (repeated f n)
  (if (= n 0)
      identity
      (compose f (repeated f (- n 1)))))

実行例

gosh> ((repeated square 2) 5)
625

コード

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

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

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