函数式编程初体验

跑题的前言

光阴飞逝，这本书已经看了半个月了。我没想过会这么啃一本英文书，收获良多，疑惑也多。匆匆学习到这一章时，再回头看前面的，恍若隔世。人的忘性还是很大的，如果不使用，终归一定会忘记的。希望自己能将这个爱好坚持下去，在此祭奠遗忘的R和perl。

---

什么是函数式编程

我是从来看不进去定义的，实例更符合我认识世界的习惯，所以有人想明白什么是函数式编程，请参看维基百科.

关于函数式编程的特性和优点，阮一峰的日志有个比较好的笔记:函数式编程初探.

特性

• 函数式编程对同样的参数总会给出同样的值
• 函数式编程不会产生副作用，仅仅返回一个计算的结果
• 还有种像菜谱式的程序被认为是脏的程序，但能直接做很多事。纯函数完全不能做任何事，所以函数式编程通常将这两种程序分开。
• 函数式编程可以写得更快、更紧凑、更少bug。

实例

;the clean, functional part
(defun add-widget (database widget)
  (cons widget database))

;the dirty, nonfunctional part
(defparameter *database* nil)

(defun main-loop ()
  (loop (princ "Please enter the name of a new widget:")
        (setf *database* (add-widget *database* (read)))
        (format t "The database contains the following: ~a~%" *database*)))

(defparameter *my-list* '(4 7 2 3))

;For demonstration purposes only. A lisper would not write code like this.
(loop for n below (length *my-list*)
      do (setf (nth n *my-list*) (+ (nth n *my-list*) 2)))
*my-list*
(defun add-two (list)
  (when list
    (cons (+ 2 (car list)) (add-two (cdr list)))))
(add-two nil)
;A lisper will use high-order function like this
(mapcar (lambda (x)
          (+ x 2))
        '(4 7 2 3))