Конвертировать функцию высшего порядка из Python в Haskell - PullRequest
Новая
       22

Конвертировать функцию высшего порядка из Python в Haskell

2 голосов
/ 15 октября 2010

У меня есть следующий код: 

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 принимает любую функцию и любую последовательность и передает первую горстку элементов из этой последовательности в полученную функцию в качестве параметров.

Есть ли способ сделать это в Хаскеле или я сплю?

1 Ответ

6 голосов
/ 15 октября 2010

Тип подписи ниже необязательный: 

stagger :: [a] -> Int -> [[a]]
stagger l w
    | length l >= w  =  take w l : stagger (tail l) w
    | otherwise      =  []

pleat :: ([a] -> b) -> [a] -> Int -> [b]
pleat f l w = map f $ stagger l w

main = do
    print $ pleat (\[x, y] -> x+y) [0..9] 2
    print $ pleat (\[x, y, z] -> x*y/z) [3..12] 3
    print $ pleat (\[x] -> "~" ++ show x ++ "~") [0..9] 1
    print $ pleat (\[a, b, x, y] -> a+b == x+y) [3, 2, 4, 1, 5, 0, 9, 9, 0] 4

Идея состоит в том, что функция явно принимает список неизвестной длины в качестве аргумента, поэтому она не очень безопасна для типов. Но это в значительной степени отображение кода Python 1: 1.

...