Scheme递归函数示例 - 阶乘计算

Scheme是一种函数式编程语言，递归是其强大的特性之一。本示例演示如何使用Scheme编写递归函数来计算阶乘。

(define (factorial n)
  (if (= n 0)
      1
      (* n (factorial (- n 1)))))

(display "输入一个正整数：")
(define num (read))
(display "阶乘结果：")
(display (factorial num))
(newline)

示例代码解释： - define 用于定义一个函数 factorial，该函数接受一个参数 n。 - 使用 if 条件语句来检查 n 是否等于 0，如果是，返回 1，否则进行递归计算。 - display 用于输出提示和计算结果。 - read 用于读取用户输入的整数。 - newline 用于输出换行符。

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com