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

Posted 2020-10-09 wilderness

搭建环境参考这篇

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

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

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

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

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

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

求余：

1 (define (remainder m n)(
2         if (< (- m n) n)
3         (- m n)
4         (remainder (- m n) n)
5     )
6 )

牛顿法求开方：

 1 (define (sqrt x)
 2 (define (sqrt_iter guess x)
 3 (if (good_enough? guess x)
 4  guess
 5  (sqrt_iter (improve_guess guess x)
 6  x )))
 7 
 8 
 9 (define (improve_guess guess x)
10 (average guess (/ x guess)))
11 
12 (define (average a b)
13 (/ (+ a b) 2))
14 
15 (define (good_enough? guess x)
16 (< (abs (- (square guess) x)) 0.001))
17 
18 (define (square x) (* x x))
19 
20 (define (abs x)
21 (if (< x 0)
22 (- x)
23 x)
24 )
25 (sqrt_iter 1.0 x)
26 )

阶乘：

1 (define (factorial n)
2     (fact_iter 1 1 n))
3 
4 (define (fact_iter res count n)
5     (if (> count n)
6         res
7         (fact_iter (* res count) (+ count 1) n)))

 求幂：

 1 (define (expt x n)(
 2     expt_iter x 1 n)
 3 )
 4 
 5 (define (expt_iter x res n)(
 6         if (= n 0)
 7             res
 8             (expt_iter x (* x res) (- n 1))
 9     )
10 )

 最大公约数：

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

 fibonacci:

1 (define (fib n)
2    (fib_iter 1 0 n) )
3 
4 (define (fib_iter next pre count)(
5     if (= count 0)
6         pre
7         (fib_iter (+ pre next) next (- count 1))
8 ))