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