Vim 脚本中的“reduce”函数

Vim 脚本有一些非常基本的函数式编程工具。

It has map() and filter()，但据我所知它缺乏reduce()功能。 ”Reduce https://en.wikipedia.org/wiki/Fold_%28higher-order_function%29" 将值的集合减少为单个值。

有没有办法创建reduce()或者在 Vim 脚本中以某种方式模拟它？是否可以在 Vim 脚本表达式中减少值列表，而无需编写显式循环？举个例子，有没有办法减少加法运算的前五个正整数，与函数式语言课程的标准一样吗？

在 JavaScript 中：

[1, 2, 3, 4, 5].reduce(function(x, y) { return x + y; });
15

在 Clojure 中：

(reduce + (range 1 (inc 5)))
15

在哈斯克尔中：

foldl (+) 0 [1..5]
15

In J:

+/>:i.5
15

在 Vim 脚本中：...？

为了供将来参考，以下是我对主题的变体，灵感来自 @MatthewStrawbridge 链接的答案。

原始示例问题的表达式：

eval(join(range(1, 5), '+'))

同样的更通用的解决方案，使用Add(), where a is range(1, 5):

eval(repeat('Add(',len(a)-1).a[0].','.join(a[1:],'),').')')

这构造了字符串"Add(Add(Add(Add(1,2),3),4),5)"， 进而eval是吗。乐趣！

最后，Reduce()，它接受一个 Funcref 和一个列表，然后使用 Vim 的列表“解构”语法在循环中减少它[x, y; z]. See :h :let-unpack.

function! Reduce(f, list)
  let [acc; tail] = a:list
  while !empty(tail)
    let [head; tail] = tail
    let acc = a:f(acc, head)
  endwhile
  return acc
endfunction

这就是它的使用方式：

:echo Reduce(function('Add'), range(1, 5))
15