编程

APL是A Programming Language或Array Processing Language的缩写。肯尼斯·艾佛森1962年设计这个语言时他正在哈佛工作。为此他1979年获得图灵奖。在过去数十年的使用历史中，APL从它的原始版本开始不断改变和发展，今天的版本与1963年发表时的版本已经非常不一样了。但它始终是一种解释执行的计算机语言。现代的APL版本都支持其初试版本不支持的结构和模式编程。APL至今依然使用一种非标准化的字母表，这一点一直是他人对它的批评点。 概述 在许多应用场合下（数学、科学、工程技术、电脑设计、机器人、显示、保险技术、传统的处理等等）APL是一种非常有力的、表达丰富的和简明的编程语言。它一般被用在一个与用户接口的环境中。它最初的设计目的是将数学公式写成一种电脑可以理解的方式。学它一般很容易，但要分析APL写成的程序往往需要一段时间。与传统的结构式编程语言不同的是，APL的程序一般由一系列使用在序列上的单元的或双元的函数或运算符号组成。由于APL拥有许多非标准的运算符号，这些符号之间没有优先性（比如一般数学中的乘号、除号较加号、减号有优先权，APL中没有这样的优先权）。最初的APL语言没有任何控制结构如重复（do-while）或者条件选择（if-then-else），但一些序列运算符号可以用来模拟编程结构，比如iota（用来获得一个从1至N的序列）可以用来模拟重复（for）。 APL的工作环境被称为工作场。在这个工作场内用户可以定义程序和。也可以在工作场在程序外存在。用户可以在程序外改变，比如： $N\; \backslash leftarrow\; 4\backslash \; 5\backslash \; 6\backslash \; 7$ 将一个系列的4、5、6、7授予N。 $N+4\backslash ,\backslash !$ 输出8、9、10、11。 $+/N\backslash ,\backslash !$ 输出N内所有数的和，既22。 用户可以将工作场连同其中的所有和程序储存起来。在任何情况下，这些程序不是编译执行和，而是解释执行的。 APL最著名的就是它使用一组非ASCII符号。这些符号比一般常见的代数和计算符号要多。有人开玩笑说，用两行这样的奇形怪状的符号就可以将所有航空控制的问题解决了。事实上，在一些APL版本中，用一行程序就可以将任何可计算的函数表达出来。在用一行你可以将这个函数的结构表达出来。由于它的精密的结构和非标准的符号，也有人将APL称为“只写语言”。除数学家外，其他人要读APL写的程序都感到非常困难。有些数学家觉得其它语言比APL难懂。由于APL使用不寻常的符号，许多编程员在写APL程序时使用专门的APL键盘。今天也有不同的只使用ASCII字母写APL的方法。 艾佛森后来还设计了一个APL的后续，称为J语言，这个语言只使用ASCII符号。至今为止只有一种J语言。一些其它语言也类似APL的功能。A+是一种开源的编程语言，其许多指令与APL相同。 下面这个例子排列一个存在X里的词的序列，排列标准是每个词的长度： X[X+.' ';] 下面是一个寻找所有1和R之间的质数的例子： $\backslash left(\backslash sim\; R\; \backslash in\; R\; \backslash circ\; .\; \backslash times\; R\backslash right)/R\; \backslash leftarrow\; 1\; \backslash downarrow\; \backslash iota\; R$ 下面是这个程序的读法（从右向左）： $\backslash iota\backslash ,\backslash !$建立含有从1到R的自然数的系列（假如程序开始时R=6，那么$\backslash iota\; R\backslash ,\backslash !$是1 2 3 4 5 6） 放弃这个系列中的第一个元素（$\backslash downarrow$）（$1\; \backslash downarrow\; \backslash iota\; R$是2 3 4 5 6） 令R成为这个系列（$\backslash leftarrow$是授值符号） 令R与R相成而组成一个矩阵，实际上是组成一个R乘R的乘法表（$\backslash circ\; .\; \backslash times$） 建立一个长度与R相同的系列，假如R中相应位置的数在乘法矩阵中出现，那么在这个位置上的数就应该是1，否则0（$\backslash in$），这个运算的结果是0 0 1 0 1 逻辑地否新的系列中的数，也就是说，1成为0，0成为1（$\backslash sim$），结果是1 1 0 1 0 选择R中相应的在新的系列中为1的数，这些数是质数（$/\backslash ,\backslash !$），结果为2 3 5