结构控制

常用的控制判断,if,and,or,conf

(if motor-turning?
  "yes"
  "no")

结构是这样的 (if <test> <then-this> <otherwise-this>)

另外在clojure里面，循环一般使用map，filter，reduce和for等内置函数，也可以使用loop或者递归的方式

这是python的写法

specific_stuff = []
for i in my_items:
    if is_what_i_want(i):
        specific_stuff.append(i)

clojure写法：
(def specific-stuff (filter what-i-want? my-items))

等于,判断和比较

=或者not=的方式

(if (= tries max-tries)
  "you're done"
  "keep going")

值的判断，可以看出来只要内容相同都是相等的

(= {:a  [1 2 3] :b #{:x :y} :c {:foo 1 :bar 2}}
   {:a '(1 2 3) :b #{:y :x} :c {:bar 2 :foo 1}})
;; ⇒ true

数据格式不同则不同，但==符号忽略数据类型

(= 4 4.0)
;; ⇒ false
(== 4 4.0)
;; ⇒ true

变量(Vars)

赋值

(def the-answer 42)

自定义函数

使用def+fn

(def my-func
  (fn [a b]
    (println "adding them!")
    (+ a b)))

如何调用

(my-func 10 20)   ; Returns/evaluates-to 30.

也可以使用defn

(defn my-func
  "Docstring goes here."
  [a b]
  (println "adding them!")
  (+ a b))

有几点需要注意：
1.参数a和b在vector里面，除了没有赋值
2.你可以在函数里面做任何操作，但最后一个表达式是返回值
3.如果用defn，函数名必须在第一行

函数不一定只返回一个值，也可以返回一个数据结构

(defn foo
  [x]
  [x (+ x 2) (* x 2)])

也可以传入数据结构

(defn bar
  [x]
  (println x))

(bar {:a 1 :b 2})
(bar [1 2 3])

可以定义多个参数

(defn baz
  [a b & the-rest]
  (println a)
  (println b)
  (println the-rest))

作者(不是我)喜欢自上而下的写函数，请看伪代码:

;; BROKEN pseudocode

(do-it)

(defn do-it
  []
  (... (my-func-a ...)))

(defn my-func-a
  [...]
  (... (my-func-b ...)))

(defn my-func-b ...)

但这样是不行，clojure在写一个函数调用前需要知道，例如my-func-a在do-it中被调用，但是在后面才定义，这时我们需要使用declare，如下：

;; pseudocode

(declare do-it)

(do-it)

(declare my-func-a)

(defn do-it
  []
  (... (my-func-a ...)))

(declare my-func-b)

(defn my-func-a
  [...]
  (... (my-func-b ...)))

(defn my-func-b ...)