clojure复习

课堂clojure入门总结

这是什么

• 一种lisp现代方言
• 运行于java虚拟机，可以编译为javascript和微软CLR
• 通用编程语言
• 可处理大数据和数学建模
• 函数式编程
• 可选类型
• 无变量
• 可用已存在的java 代码

Hello World

下载地址： http://clojure.org/downloads

解压后在所在文件夹可以使用两种方法运行代码

1. REPL(read-eval print loop)

$ java -jar clojure-1.6.0.jar
Clojure 1.6.0
user=> (println "Hello")
Hello
nil
user=>

离开该模式需要使用Ctrl+D
2. .clj
在文件夹建立.clj文件，
hello_world.clj

(ns hello-world)  ; Commentaire

; Commentaire
(println "Hello, world!")

然后使用以下命令lancer

$ java -jar clojure-1.6.0.jar hello_world.clj

ns 用于定义namespace,

user=> (ns foo/bar)
nil
foo/bar=>

运算符

• 和LISP相同， 1+2 被写为

(+ 1 2)

• + 是一个函数，就像 - / = and or等等
  有些函数可以接收多个参数，如(< 1 2 3 4)表示 1<2<3<4

Exercice:
REPL
1.( 1 + 5 ) * 10

(* (+ 1 5) 10)

2.( ( 2 + 1 ) - ( 3 * 4 * 5 ) ) / 3

(/ (- (+ 2 1) (* 3 4 5)) 3)

3.(inc 1)作用
相当于++1
4.(dec 2)作用
相当于–1

def, fn和defn

def用于命名常量
fn用于定义匿名函数
defn定义命名函数

(def a 10)
; (...)
(+ a 2 a)


(def twice
  (fn [x] (* 2 x)))
(twice a)


(defn twice [x]
  (* 2 x))
(twice a)


(defn maximum
  ([x] x )
  ([x y] (if (> x y) x y) ))
(maximum 1)
(maximum 1 2)
;两种输出方式

(defn many-args [x y & args]
  (println (str "x=" x))
  (println (str "y=" y))
  (println (str "args=" args)))
(many-args 1 2 3 4 5)
;对于数量不定的参数，可以使用&

exercice:
Fibonacci

(defn fib [x] (if (> x 1) (+ (fib (- x 1)) (fib (- x 2))) x))

也可以用cond来写这段函数
cond的使用方法：
例子

(defn what? [x]
  (cond
    (= x 1) "one"
    (= x 1) "two"
    (> 100) "at least hundred"
    :else   "something" ))

(what? 1)
(what? 200)
(what? true)

那么我们来写一写这个函数

(defn fib [x] (cond (= x 0) x (= x 1) x :else (+ (fib (- x 1)) (fib (- x 2)))))

List和List处理

(def my-list '(1 2 3 4 5 6))

list函数

(cons 100 my-list)

(conj my-list 10)

(conj my-list 20 30 70 77)

(conj my-list '(20 30) '(70 77))

(rest my-list)

(first my-list)

(empty? my-list)

(distinct '(1 2 2 2 2 3))

(take 2 '(1 2 3 4 5))

(count '(1 2 3))
输出结果：
(100 1 2 3 4 5)
(10 1 2 3 4 5)
(77 70 30 20 1 2 3 4 5)
((70 77) (20 30) 1 2 3 4 5)
(2 3 4 5)
1
false
(1 2 3)
(1 2)
3

强调一下，Clojure只有常量。

filter, map, reduce

三个基本的处理函数的工具

(filter even? ;此为函数
  [1 2 3 4 5 6 7 8 9 10]) ; 
; Donne (2 4 6 8 10)
; 挑选函数判断为true的结果
(map
  (fn [x] (+ 10 x))
  '(1 2 3 4))
; Donne (11 12 13 14)
; 对所有元素应用该函数来生成一个组合，
(map
  #(+ 10 %)           ; 
  '(1 2 3 4))
; Donne (11 12 13 14)
; 这是lambda结构，%表示唯一的参数，如有更多的参数可以使用%1，%2...
(reduce + 0 '(1 2 3 4 5 6 7 8 9 10))
; Donne 55
; 对于一个起始值连续使用函数与集合内的值做运算

函数的组成

apply 把一个参数倒入函数

(apply odd? [1]); true
(apply + [1 2]); 3
(apply + '[1 2 3]); 6

or

(or false false true); true

either

(defn either [pre1 pre2]
    (fn [x] (or (apply pre1 [x]) (apply pre2 [x])))
)

let 赋予函数别名

(defn check []
  (let [p1 odd? p2 even?]               ; 
    (let [always-true (either p1 p2)]
      (println (always-true 1))
      (println (always-true 2)) )))

(check)

练习:
将either扩展至多个参数
并用奇数，负数，大于100 和 是一个字符串四个函数来测试

懒惰语句和无限语句

练习