LISP - 函数
函数是一组一起执行任务的语句。
可以把代码放到单独的函数。如何划分代码之前不同的功能，但在逻辑上划分通常是这样每个函数执行特定的任务。
LISP函数定义
命名函数defun宏用于定义函数。该函数的defun宏需要三个参数
defun语法是：
(defun name (parameter\-list)
"Optional documentation string.
" body)
让我们举例说明概念，简单的例子。
例子 1
让我们编写了一个名为averagenum，将打印四个数字的平均值的函数。我们将会把这些数字作为参数。
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(defun averagenum (n1 n2 n3 n4)
(/ ( + n1 n2 n3 n4) 4))
(write(averagenum 10 20 30 40))
当执行的代码，它返回以下结果：
25
示例 2
让我们定义和调用函数，将计算出的圆的面积，圆的半径被指定作为参数的函数。
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(defun area\-circle(rad)
"Calculates area of a circle with given radius"
(terpri)
(format t "Radius: ~5f" rad)
(format t "~%Area: ~10f" (\* 3.141592 rad rad)))
(area\-circle 10)
请注意：
可以提供一个空的列表作为参数，这意味着函数没有参数，该列表是空的，表示为()。
LISP还允许可选，多个和关键字参数。
文档字符串描述了函数的目的。它与函数名相关联，并且可以使用文档函数来获得。
函数的主体可以包含任意数量的Lisp表达式。
在主体内的最后一个表达式的值返回函数的值。
还可以使用返回 - 从特殊的运算符函数返回一个值。
可选参数
可以使用可选参数定义一个函数。要做到这一点，需要把符号与可选的可选参数的名称之前。
我们将只是显示它接收的参数的函数。
示例
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(defun show-members (a b &optional c d) (write (list a b c d)))
(show-members 1 2 3)
(terpri)
(show-members 'a 'b 'c 'd)
(terpri)
(show-members 'a 'b)
(terpri)
(show-members 1 2 3 4)
当执行代码，它返回以下结果：
(1 2 3 NIL)
(A B C D)
(A B NIL NIL)
(1 2 3 4)
请注意，参数c和d是在上面的例子中，是可选参数。
其余部分参数
有些函数需要采用可变数目的参数。
例如，我们使用格式化函数需要两个必需的参数，数据流和控制字符串。然而，该字符串后，它需要一个可变数目的取决于要显示的字符串中的值的数目的参数。
同样，+ 函数，或 * 函数也可以采取一个可变数目的参数。
可以提供这种可变数目的使用符号与其余参数。
下面的例子说明了这个概念
示例
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(defun show-members (a b &rest values) (write (list a b values)))
(show-members 1 2 3)
(terpri)
(show-members 'a 'b 'c 'd)
(terpri)
(show-members 'a 'b)
(terpri)
(show-members 1 2 3 4)
(terpri)
(show-members 1 2 3 4 5 6 7 8 9)
当执行代码，它返回以下结果：
(1 2 (3))
(A B (C D))
(A B NIL)
(1 2 (3 4))
(1 2 (3 4 5 6 7 8 9))
关键字参数
关键字参数允许指定哪个值与特定的参数。
它使用的是 &key 符号表示。
当发送的值到该函数必须先于值 :parameter-name.
下面的例子说明了这个概念。
例子
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(defun show-members (&key a b c d ) (write (list a b c d)))
(show-members :a 1 :c 2 :d 3)
(terpri)
(show-members :a 'p :b 'q :c 'r :d 's)
(terpri)
(show-members :a 'p :d 'q)
(terpri)
(show-members :a 1 :b 2)
当执行代码，它返回以下结果：
(1 NIL 2 3)
(P Q R S)
(P NIL NIL Q)
(1 2 NIL NIL)
从函数返回的值
默认情况下，在LISP函数返回最后一个表达式作为返回值的值。下面的例子将证明这一点。
示例 1
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(defun add-all(a b c d)
(+ a b c d))
(setq sum (add-all 10 20 30 40))
(write sum)
(terpri)
(write (add-all 23.4 56.7 34.9 10.0))
当执行代码，它返回以下结果：
100
125.0
但是，可以使用返回- 从特殊的操作符立即从函数返回任何值。
示例 2
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(defun myfunc (num)
(return\-from myfunc 10) num)
(write (myfunc 20))
当执行代码，它返回以下结果：
10
更改一点点代码：
(defun myfunc (num)
(return\-from myfunc 10) write num)
(write (myfunc 20))
它仍然返回：
10
lambda函数
有时，可能需要一个函数只在一个程序中的位置和功能是如此的微不足道，可能不给它一个名称，也可以不喜欢它存储在符号表中，宁可写一个未命名或匿名函数。
LISP允许编写评估计算在程序中遇到的匿名函数。这些函数被称为Lambda函数。
可以使用lambda表达式创建这样的功能。lambda表达式语法如下：
(lambda (parameters) body)
lambda形式可以不进行评估计算，它必须出现只有在LISP希望找到一个函数。
示例
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(write ((lambda (a b c x)
(+ (\* a (\* x x))
(\* b x) c)) 4 2 9 3))
当执行代码，它返回以下结果：
51
映射函数
映射函数是一组函数，可以连续地施加于元件中的一个或多个列表。应用这些功能列表的结果被放置在一个新的列表，而新的列表返回。
例如，mapcar函数处理的一个或多个列表连续元素。
在mapcar函数的第一个参数应该是一个函数，其余的参数是该函数的应用列表（次）。
函数的参数被施加到连续的元素，结果为一个新构造的列表。如果参数列表是不相等的长度，然后映射的过程停止在达到最短的列表的末尾。结果列表将元素作为最短输入列表的数目相同。
示例 1
让我们从一个简单的例子和数字1 添加到每个列表的元素( 23 34 45 56 67 78 89)。
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(write (mapcar '1+ '(23 34 45 56 67 78 89)))
当执行代码，它返回以下结果：
(24 35 46 57 68 79 90)
示例 2
让我们写这将多维数据集列表中的元素的函数。让我们用一个lambda函数用于计算数字的立方。
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(defun cubeMylist(lst)
(mapcar #'(lambda(x) (\* x x x)) lst))
(write (cubeMylist '(2 3 4 5 6 7 8 9)))
当执行代码，它返回以下结果：
(8 27 64 125 216 343 512 729)
示例 3
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(adsbygoogle = window.adsbygoogle || \[\]).push({});
(adsbygoogle = window.adsbygoogle || \[\]).push({});
(write (mapcar '+ '(1 3 5 7 9 11 13) '( 2 4 6 8)))
当执行代码，它返回以下结果：
(3 7 11 15)