2

我有以下代码：

import operator

def stagger(l, w):
    if len(l)>=w:
        return [tuple(l[0:w])]+stagger(l[1:], w)
    return []

def pleat(f, l, w=2):
    return map(lambda p: f(*p), stagger(l, w))

if __name__=="__main__":
    print pleat(operator.add, range(10))
    print pleat(lambda x, y, z: x*y/z, range(3, 13), 3)
    print pleat(lambda x: "~%s~"%(x), range(10), 1)
    print pleat(lambda a, b, x, y: a+b==x+y, [3, 2, 4, 1, 5, 0, 9, 9, 0], 4)

重要部分：Pleat 接受任何函数和任何序列，并将该序列中的前几个元素作为参数传递给接收到的函数。

有没有办法在 Haskell 中做到这一点，还是我在做梦？

4

1 回答 1

6

下面的类型签名是可选的：

交错 :: [a] -> Int -> [[a]]
错开lw
    | 长度 l >= w = 取 wl ：交错（尾 l） w
    | 否则 = []

褶皱 :: ([a] -> b) -> [a] -> Int -> [b]
褶裥 flw = 地图 f $ 交错 lw

主要=做
    打印 $ 褶皱 (\[x, y] -> x+y) [0..9] 2
    打印 $ 褶皱 (\[x, y, z] -> x*y/z) [3..12] 3
    打印 $ 褶 (\[x] -> "~" ++ 显示 x ++ "~") [0..9] 1
    打印 $ 褶 (\[a, b, x, y] -> a+b == x+y) [3, 2, 4, 1, 5, 0, 9, 9, 0] 4

这个想法是该函数明确将未知长度的列表作为参数，因此它不是非常安全的。但它几乎是 Python 代码的一对一映射。

于 2010-10-14T21:30:53.177 回答