Hello Clojure - Function

Clojure是一门函数式编程语言，function具有非常重要的地位。

Function Call

函数调用很简单，我们已经见过了很多例子:

(+ 1 2 3)
(* 1 2 3)

我们也可以将函数返回让外面使用：

user=> ((or + -) 1 2 3)
6

如果我们调用了非法的函数，会报错：

user=> (1 2 3)

ClassCastException java.lang.Long cannot be cast to clojure.lang.IFn  user/eval1491 (form-init7840101683239336203.clj:1)

这里，1并不是一个合法的operator。

Function Define

一个函数，通常由几个部分组成:

defn
函数名称
函数说明（可选)
参数列表，使用[]封装
函数body

一个例子：

user=> (defn fun1
  #_=> "a function example"
  #_=> [name]
  #_=> (str "hello " name))
#'user/fun1
user=> (fun1 "world")
"hello world"
user=> (doc fun1)
-------------------------
user/fun1
([name])
  a function example
nil

Overloading

我们也可以进行函数重载，如下：

user=> (defn func-multi
  #_=> ([](str "no arg"))
  #_=> ([name1](str "arg " name1))
  #_=> ([name1 name2](str "arg " name1 " " name2)))
user=> (func-multi)
"no arg"
user=> (func-multi "1")
"arg 1"
user=> (func-multi "1" "2")
"arg 1 2"

Variable arguments

我们使用&来支持可变参数

user=> (defn func-args
  #_=> [name & names]
  #_=> (str name " " (clojure.string/join " " names)))
#'user/func-args
user=> (func-args "a")
"a "
user=> (func-args "a" "b")
"a b"
user=> (func-args "a" "b" "c")
"a b c"

Destructuring

我们可以在函数参数里面通过特定的name来获取对应的collection的数据，譬如：

user=> (defn f-vec1 [[a]] [a])
#'user/f-vec1
user=> (f-vec1 [1 2 3])
[1]
user=> (defn f-vec2 [[a b]] [a b])
#'user/f-vec2
user=> (f-vec2 [1 2 3])
[1 2]

在上面的例子里面，我们的参数是一个vector，然后[a]以及[a b]表示，我们需要获取这个vector里面的第一个以及第二个数据，并且使用变量a，b存储。

我们也可以使用map，譬如：

user=> (defn f-map [{a :a b :b}] [a b])
#'user/f-map
user=> (f-map {:a 1 :b 2})
[1 2]
user=> (f-map {:a 1 :c 2})
[1 nil]

上面这个例子我们可以用:keys来简化，

user=> (defn f-map-2 [{:keys [a b]}] [a b])
#'user/f-map-2
user=> (f-map-2 {:a 1 :b 2 :c 3})
[1 2]

我们可以通过:as来获取原始的map:

user=> (defn f-map-3 [{:keys [a b] :as m}] [a b (:c m)])
#'user/f-map-3
user=> (f-map-3 {:a 1 :b 2 :c 3})
[1 2 3]

Body

Function的body里面可以包括多个form，Clojure会将最后一个form执行的值作为该函数的返回值:

user=> (defn func-body []
  #_=> (+ 1 2)
  #_=> (+ 2 3))
#'user/func-body
user=> (func-body)
5

匿名函数

我们可以通过fn来声明一个匿名函数

user=> ((fn [name]  (str "hello " name)) "world")
"hello world"

我们也可以通过def来给一个匿名函数设置名称:

user=> (def a (fn [name] (str "hello " name)))
#'user/a
user=> (a "world")
"hello world"

当然，我们更加简化匿名函数，如下:

user=> #(str "hello " %)
#object[user$eval1584$fn__1585 0x72445715 "user$eval1584$fn__1585@72445715"]
user=> (#(str "hello " %) "world")
"hello world"

我们使用%来表明匿名函数的参数，如果有多个参数，则使用%1，%2来获取，使用%&来获取可变参数。

user=> (#(str "hello " %) "world")
"hello world"
user=> (#(str "hello " %1 " " %2) "world" "a ha")
"hello world a ha"

user=> (#(str "hello " %1 " " (clojure.string/join " " %&)) "world" "ha" "ha")
"hello world ha ha"