MIT/GNU Scheme　第一日

;---------------------------最原始的-------------------------------

(+ 2 3 4)

;Value: 9

;---------------------------定义Ｅｍｍｂｅｄ--------------------

(define x 2)

(define mm (* x 3))

mm

;Value:6

;-----------------------几种函数的定义---------------------

(define (sum a b)

(+ a b))

(sum 1 2)

;Value:3

;------------- Cond 使用　　　--

(define (abs x)

(cond ( (> x 0) x)

( (< x 0) (- x))

(else 0)))

(abs -11)

;Value :11

;--------------- If 使用 --- 逻辑运算使用，　and or not -------------

(define (summ a b c)

(cond ((and (> a b) (> c b)) (+ a c))

((and (> a c) (> b c)) (+ a b))

(else (+ b c))))

(summ 1 2 3)

;Value:5