Clojure 함수

(defn hello [name]
  (println (str "Hello, " name)))

(hello "John")  ; Hello, John

(defn hello
  "name 에게 인사를 합니다."    ; docstring
  [name]
  (println (str "Hello, " name)))

(defn hello
  ([name]
   (println (str "Hello, " name)))
  ([name greeting]
   (println (str greeting " " name))))

(hello "John")                ; Hello, John
(hello "John" "Good morning") ; Good morning John

; fn 을 사용한 익명함수
(fn [name]
  (str "Hello, " name))

(fn [name greeting]
  (str greeting " " name))

; # 를 사용한 축약표현
#(str "Hello, " %)  ; 인자가 1개라면 % 로 인자를 표현

#(str %2 " " %1)    ; 인자가 여러개라면 %1, %2, ... 로 인자 순서를 표현

(defn even?
  "n이 짝수이면 true를 리턴합니다."
  [n]
  (= (rem n 2) 0))  ; rem 은 나머지를 계산하는 함수

(defn odd?
  "n이 홀수이면 true를 리턴합니다."
  [n]
  (not= (rem n 2) 0))

(defn add [a b] (+ a b))
(def add3 (partial add 3))

(add3 7)    ; 10

(defn append-a [s] (str s "a"))
(defn append-b [s] (str s "b"))
(defn append-c [s] (str s "c"))

((comp append-c append-a append-b) "111")   ; "111bac"
;                        111 에 b 를 붙이고
;               111b 에 a 를 붙이고
;      111ba 에 c를 붙인다