习题1.2 1.3

user=> (defn x [](/ (+ 5 4 (- 2 (- 3 (+ 6 (/ 4 5))))) (* 3 (- 6 2) (- 2 7))) ) 
#'user/x
user=> (x)
-37/150

 

实现原理，三个数的和减去最小的一个数，就是其中较大的两个数之和。

min函数是语言库提供的，如无提供，可以使用 if表达式多层嵌套来求出.

语言库提供的是不定长参数实现。可以改用递归方式实现。

user=> (defn min [a b c] (if (< a b) (if (<= a c) a c) (if (<= b c) b c ))
  #_=> )
#'user/min
user=> (min 1 2 3)
1
user=> (min 3 1 3)
1
user=> (min 3 4 3)
3

user=> (defn x13 [a b c] (- (+ a b c) (min a b c ) ))
#'user/x13
user=> (x13 5 1 4)
9