問有兩尖田一段,其尖長不等,兩大斜三十九步,兩小斜二十五步,中廣三十步,欲知其積幾何?
術曰:以少廣求之,翻法入之。置半廣自乘為半冪,與小斜冪相減相乘為小率, 以半冪與大斜冪相減相乘為大率。以二率相減餘自乘為實,併二率倍之為從上廉,以一為益隅,開翻法三乘方得積。
一直以来,有些朋友对函数式编程不屑一顾。他们会觉得,函数式编程只不过是增加了一些无谓的抽象,而代价则是性能的下降。持这种观点的朋友,恐怕是肯定没有读过 Richard Bird 所著 PEARLS OF FUNCTIONAL ALGORITHM DESIGN. 这本书讨论的内容确实太过生涩,我也没有完整读过一遍。
幸运的是,Richard Bird 在 1989 年写过一篇仅仅只有 5 页的论文 Algebraic identities for program calculation. 这篇论文用一个著名的问题–最大子数组和1(Maximum subarray problem)淋漓尽致地展现了函数式编程思维对算法问题的独特理解:最大子数组和问题可以用秦九韶算法求解。
❖最大子数组和问题
最大子数组和问题的目标是在数列的一维方向找到一个连续的子数列,使该子数列的和最大。例如,对一个数列 [−2, 1, −3, 4, −1, 2, 1, −5, 4]
,其连续子数列中和最大的是 [4, −1, 2, 1]
, 其和为 6 2。
显然,我们有平凡的算法,即枚举所有的子数组,然后求最大值:
1def mss(arr):
2 r = 0
3 for end in range(len(arr) + 1):
4 for start in range(0, end):
5 s = 0
6 for k in range(start, end):
7 s += arr[k]
8 r = max(s, r)
这个程序用 Haskell 写会简洁一些:
1import Data.List (tails, inits)
2
3mss = maximum . map sum . segs
4segs = concat . map tails . inits
其中 tails
是“后缀”,inits
是“前缀”:
1tails [1, 2, 3] = [[1, 2, 3], [2, 3], [3], []]
2inits [1, 2, 3] = [[], [1], [1, 2], [1, 2, 3]]
易见,所有前缀的所有后缀
,或者“所有后缀的所有前缀”就是一个列表所有的子列表。
现在我们回到算法本身。这个平凡算法的时间复杂度是 . 把所有的子数组枚举出来需要 ,对每一个子数组求和又需要 ,所以就构成了 .
事实上,最优秀的算法在 时间复杂度内就可以解决这个问题。Bird 的论文正是在讨论如何从平凡的算法出发,推导 出最优秀的算法。首先,对算法稍作变形:
1def mss(arr):
2 m = 0
3 for end in range(len(arr) + 1):
4 m = max(max_tails(arr, end), m)
5
6def max_tails(arr, end):
7 m = 0
8 for start in range(0, end):
9 s = 0
10 for k in range(start, end):
11 s += arr[k]
12 m = max(m, s)
13 return m
这似乎是一个平凡的变形,我只是把三层循环的里面两层拆出来了。max_tails
函数会返回数组 arr
里 [0, end)
区间的最大后缀和。我们用 来表示最大值函数,max_tails
的函数式版本,或数学式版本,可以写成:
这第一眼看上去十分令人费解,下面用例子来说明。首先,考虑 max_tails([1, 2, 3], 3)
, 也就是 [1, 2, 3]
的所有后缀和的最大值。
max_tails
的计算可以写成:
1(1 + 2 + 3) ↑ (2 + 3) ↑ (3) ↑ 0
也就是说,max_tails
会计算每个后缀和,并把它们的最大值求出来。当把最大值写成一个二元函数 的时候,自然就可以用它连接每个后缀和以构成最后的表达式。
在朴素算法中,求后缀和的最大值需要 的复杂度。下面,我们用秦九韶算法将这个复杂度降低到 .
❖秦九韶算法
秦九韶在其著作《数术九章》中,提出了一种求高次方程近似解的方法。其中的一个部分被近现代研究者称作“秦九韶算法”。
考虑 次多项式
对于确定的 , 有几种方法求 的值。最平凡的方法,就是分别求每项的值,再加起来。这种算法需要 次乘法。秦九韶算法注意到:
这可以写成一个迭代形式:
这样一来 . 在这个计算中,乘法计算了 次,加法也计算了 次。
看上去,秦九韶算法只是一个 数值计算 算法。它和 max_tails
函数有什么关系呢?我们要考虑“广义”的秦九韶算法形式。
首先,这个算法的输入不一定要是多项式,如下的式子仍然可以用秦九韶算法改写:
其次,秦九韶算法考虑的运算不一定是 , 这个算法提取公因式的时候,其实是在用乘法分配率改写算式。考虑任意的两个函数 ,只要它们满足如下条件3,那就可以运用秦九韶算法:
- 对 (右)分配
- 存在 的(左)单位元,即存在 ,使得
以刚才的表达式为例:
其中 是 的左单位元。
❖Kadane 算法
刚才已经说过了,max_tails
可以写成:
这里的 可以被看作 ,而 可以被看作 . 加法存在单位元 ,而分配性也是显然的:
继续以 [1, 2, 3]
为例,
1(1 + 2 + 3) ↑ (2 + 3) ↑ (3) ↑ 0
2= ((1 + 2) ↑ 2 ↑ 0) + 3 ↑ 0
3= (((1 ↑ 0) + 2) ↑ 0) + 3 ↑ 0
4= ((((0 + 1) ↑ 0) + 2 ↑ 0) + 3) ↑ 0
根据这个性质,我们用秦九韶算法改写 max_tails
:
1def step(s, a):
2 # (s + a) ↑ 0
3 return max(s + a, 0)
4
5def max_tails(arr, end):
6 s = 0
7 for i in range(end):
8 s = step(s, arr[i])
显然,改写后的 max_tails
的时间复杂度是 O(n)
. 不仅如此,我们注意到:
由于 mss
需要求 [1, end + 1)
的 max_tails
,所以改写后,时间复杂度是 . 但上面的发现告诉我们,max_tails(arr, i)
的值可以由 max_tails(arr, i - 1)
的值求得。这立刻就可以用来得到一个 的 mss
函数:
1def step1(state, a):
2 (s, m) = state
3 s_next = step(s, a)
4 return (s_next, max(m, s_next))
5
6def mss(arr):
7 state = (0, 0)
8 for a in arr:
9 state = step1(state, a)
10 return state[1]
毫无疑问,这就是大名鼎鼎的 Kadane 算法。
❖原始推导
Bird 教授将他的研究总结为一段话:
I was interested in the specific task of taking a clear but inefficient functional program, a program that acted as a specification of the problem in hand, and using equational reasoning to calculate a more efficient one. 4
也就是说,Bird 教授喜欢从一个简单、清晰,却不高效的函数式程序出发,通过一般的规则对程序进行优化,从而得到一个更高效的程序。Bird 教授从最直觉的程序出发,一步步推导之后,甚至可以得到 KMP 算法这种著名算法。Bird 教授论文中对最大子数组和问题的原始推导是5:
1mss = { by definition }
2 max . map sum . segs O(n³)
3 = { by definition of segs }
4 max . map sum . concat . map tails . inits O(n³)
5 = { map promotion }
6 max . concat . map (map sum) . map tails . inits O(n³)
7 = { definition of max and fold promotion }
8 max . map max . map (map sum) . map tails . inits O(n³)
9 = { map distributivity }
10 max . map (max . (map sum) . tails) . inits O(n³)
11 = { Horner's Rule }
12 max . map (foldl (⊗) 0) . inits O(n²)
13 = { scan theorem }
14 max . scanl (⊗) 0 O(n)
15 = { fold-scan fusion }
16 fst . foldl (⊙) (0, 0) O(n)
17 where a ⊗ b = (a + b) ↑ 0
18 (u, v) ⊙ t = (w ↑ u, w), w = v ⊗ t
仅仅用了 8 条等式就得到了最后的算法,可以说是神乎其技。更可贵的是,无论是秦九韶算法还是最后的优化,都在推导过程中被展示为直接的定理。而这些定理就是关于函数式编程中常用函数(如 map
, foldl
, concat
)的恒等式。例如秦九韶算法可以直接表示为:
1fold (⊕) b . map (fold (⊗) a) . tails = fold (⊙) a
2u ⊙ v = (u ⊗ v) ⊕ a
那么,为什么函数式编程可以方便地进行这种程序推导呢?因为函数式编程使得我们更加地注意到程序的 代数 性质。Bird 教授还写过一本书,名字就叫做 The algebra of programming.
❖不可爱的另一面
如果读者尝试着把上面的代码交到 LeetCode 里,也许会发现它会在一些测试上失败。这当然不是算法错了,而是最大子数组和问题的表述不同。
- (LeetCode): 给定一个数组,给出它的最大子数组和。
- (Programming Pearls): 给定一个数组,给出它的最大子数组和。如果数组的最大子数组和为负,那么返回 0.
我们的问题是 Programming Pearls 版本的,它永远不会返回负的最大子数组和。
如果要处理 LeetCode 版本的题目,一个简单的修复是:
1mssNeg l
2 | r == 0 = max l
3 | otherwise = r
4 where r = mss l
这种做法略显笨重。我们能够对 Bird 教授的推导过程作修改,从而推导出能处理负数情况的算法吗?对于这个问题,我没有给出什么理想的解决方案。因为 Bird 教授的第一条式子就错了。
1--sum [] = 0
2mss = maximum . map sum . segs
segs
的结果中一定存在空表,而空表在用 sum
求值之后,就会得到 0. 所以显然,这个式子就无法处理负数最大和的情况。又考虑到在这里的秦九韶算法中,0
是 +
的单位元,我认为要修改到能处理负数的算法,需要的可能是完全推倒重来。
这也许就是函数式程序推导不可爱的一面。函数式程序推导依赖的是程序的代数性质,而这种代数性质有时候是脆弱的,可能问题稍加修改后,原有的代数性质就消失了。对命令式程序来说,也许它本身就不依赖这些代数性质,所以一点平凡的改变就可以 work,但对函数式、特别是用函数式程序推导推导出的程序来说,这种修改并不平凡。
可以发邮件问问 Bird 教授的看法吗?
也许可以吧。Bird 教授在 2022 年 4 月 4 日永远地离开了我们,有没有一个能向天堂寄信的邮局呢……