计算过程
(a-plus-abs-b 1 1)
((if (> 1 0) + -) 1 1))
(+ 1 1)
user=> (defn a-plus-abs-b [a b] ((if (> b 0) + -) a b))
#'user/a-plus-abs-b
user=> (a-plus-abs-b 1 1)
2
user=> (a-plus-abs-b 1 -2)
3
函数(运算符)是一等函数,所有数据可以存在的地方 都可以存在。
user=> (defn p [] (p))
#'user/p
user=> (defn tests [x y](if (= x 0) 0 y))
#'user/tests
user=> (t