函数式编程初体验

Published on 5月 14, 2012

跑题的前言

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