ivaneeo's blog

          自由的力量,自由的生活。

            BlogJava :: 首頁 :: 聯(lián)系 :: 聚合  :: 管理
            669 Posts :: 0 Stories :: 64 Comments :: 0 Trackbacks
          關(guān)于n!求解:
          1.線性遞歸

          ??? ch1-Z-G-7.gif
          (define?(factorial?n)
          ??(if?(=?n?1)
          ??????1
          ??????(*?n?(factorial?(-?n?1)))))
          如圖所示的線性的膨脹再線性的縮減,就為線性遞歸.

          2.迭代
          ??? ch1-Z-G-10.gif
          (define?(factorial?n)
          ??(fact-iter?1?1?n))

          (define?(fact-iter?product?counter?max-count)
          ??(if?(>?counter?max-count)
          ??????product
          ??????(fact-iter?(*?counter?product)
          ?????????????????(+?counter?1)
          ?????????????????max-count)))

          注:試驗(factorial 10000),遞歸堆棧溢出,而迭代則可以運行.
          posted on 2006-07-30 11:37 ivaneeo 閱讀(569) 評論(0)  編輯  收藏 所屬分類: scheme-語言之母
          主站蜘蛛池模板: 罗山县| 右玉县| 吉水县| 通州区| 中牟县| 临城县| 两当县| 德兴市| 全州县| 历史| 略阳县| 肥东县| 蒲城县| 广西| 陆丰市| 巴彦县| 苍溪县| 凤阳县| 荣成市| 双辽市| 攀枝花市| 北流市| 郧西县| 汝阳县| 财经| 浪卡子县| 都匀市| 辽中县| 中西区| 宜都市| 东辽县| 隆昌县| 德化县| 威宁| 大足县| 满城县| 安乡县| 冷水江市| 新龙县| 思茅市| 靖州|