七周七语言：Clojure Day 2

• 找Clojure中一些常用宏的实现

  可以在GitHub中找到一些常用宏的实现

• 一个自定义延迟序列的例子

  看到这么个例子：

  (defn recur-fibo [n]
      (letfn [(fib [current next n] (if (zero? n) current (recur next (+ current next) (dec n))))]
      (fib 0 1 n)))
  		

  使用LazySeq后：

  (defn lazy-seq-fibo
      ([] (concat [0 1] (lazy-seq-fibo 0 1)))
      ([a b] (let [n (+ a b)] (lazy-seq (cons n (lazy-seq-fibo b n))))))
  		

• 用宏实现一个包含else条件的unless

  在使用普通的函数定义unless时，如：

  user=> (defn unless [test body] (if (not test) body))
  #'user/unless
  #会输出如下:
  user=> (unless true (println "True!"))
  True
  nil
  		

  也就是说，先对代码块进行了求值，所以返回了True。因此，需要用到宏，使得扩展编程语言的时候能够避免执行一些函数。
  而要实现else只需要将原来的nil替换为另外一个form。

  user=> (defmacro unless [expr form1 form2] (list 'if expr form2 form1))
  #'user/unless
  user=> (unless true (println "1") (println "2"))
  2
  nil
  		

  如果要兼容原来的unless，就要考虑到两种不同的参数情况：

  user=> (defmacro unless 
           ([expr form1 form2] (list 'if expr form2 form1))
           ([expr form] (list 'if expr nil form)))
  #'user/unless
  user=> (unless true (println "hello"))
  nil
  user=> (unless true (println "1") (println "2"))
  2
  nil
  		

• 编写一个类型用defrecord实现的协议

  ;; File Name: compass.clj
  ;; Open it in REPL with: (loaf-file "compass.clj")
  ;; 书中实现的Compass protocol与SimpleCompass record
  ;; 如最后一行toString是调用了java.lang.Object中的方法
  ;; 这样的好处就是可以与JVM上的其他类型相交互，即可以使用Java的类型和接口
  
  (defprotocol Compass
    (direction [c])
    (left [c])
    (right [c]))
  
  (def directions [:north :east :south :west])
  
  (defn turn
    [base amount]
    (rem (+ base amount) (count directions)))
  
  (defrecord SimpleCompass [bearing]
    Compass
    (direction [_] (directions bearing))
    (left [_] (SimpleCompass. (turn bearing 3)))
    (right [_] (SimpleCompass. (turn bearing 1)))
    Object
    (toString [this] (str "[" (direction this) "]")))
  
  		

参考

1. Programming Clojure 学习笔记

转载于:https://www.cnblogs.com/iceCream/archive/2013/01/31/2888209.html