scheme或者guile尾递归算阶乘

iteye_7373

于 2013-02-08 22:03:01 发布

阅读量300

点赞数

分类专栏： scheme 文章标签： guile scheme

scheme 专栏收录该内容

2 篇文章

订阅专栏

本文展示如何使用Guile脚本编写简单的程序，包括打印'Hello World'及计算阶乘。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一段guile脚本程序，基本就是打印一个hello world，然后算个阶乘。


#!/usr/bin/guile \
-s 
!#
(begin 
  (newline)
  (display "hello world")
  (newline))

(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)))

(display (factorial 100))
(newline)
(newline)