[lisp] scheme环境搭建与编译运行

搭建环境参考这篇

http://leochin.com/mac-scheme-install/

用文本编辑器写代码 保存文件格式为 .scm

在终端中cd到scm文件所在文件夹，

执行  (cf "scm_name")编译文件

然后执行 (load "scm_name.scm")加载文件，加载过程中会把文件执行一遍，就像Python一样，或者应该反过来说。

下面是几个lisp程序，参考书籍  SICP

求余：

(define (remainder m n)(
        if (< (- m n) n)
        (- m n)
        (remainder (- m n) n)
    )
)

牛顿法求开方：

(define (sqrt x)
(define (sqrt_iter guess x)
(if (good_enough? guess x)
 guess
 (sqrt_iter (improve_guess guess x)
 x )))


(define (improve_guess guess x)
(average guess (/ x guess)))

(define (average a b)
(/ (+ a b) 2))

(define (good_enough? guess x)
(< (abs (- (square guess) x)) 0.001))

(define (square x) (* x x))

(define (abs x)
(if (< x 0)
(- x)
x)
)
(sqrt_iter 1.0 x)
)

阶乘：

(define (factorial n)
    (fact_iter 1 1 n))

(define (fact_iter res count n)
    (if (> count n)
        res
        (fact_iter (* res count) (+ count 1) n)))

 求幂：

(define (expt x n)(
    expt_iter x 1 n)
)

(define (expt_iter x res n)(
        if (= n 0)
            res
            (expt_iter x (* x res) (- n 1))
    )
)

 最大公约数：

 (define (gcd m n)(
    if (= n 0)
        m
        (gcd n (remainder m n))
))

 fibonacci:

(define (fib n)
   (fib_iter 1 0 n) )

(define (fib_iter next pre count)(
    if (= count 0)
        pre
        (fib_iter (+ pre next) next (- count 1))
))

(define (fib n)
        (if (< n 2)
             1
        (+ (fib (- n 1))
           (fib (- n 2)))))