Вам все равно нужно возвращать функцию, а не результат вызова f
, в рекурсивном случае.
# repeat :: (a -> a) -> Integer -> a -> a
# repeat _ 0 = id
# repeat f n = \x -> f (repeat f (n-1) x)
def repeat(f, n):
if n == 0:
return lambda x: x
else:
return <b>lambda x:</b> f (repeat(f, n-1)<b>(x)</b>)
Немного легче читать, если вы также определите составную функцию:
def identity(x):
return x
def compose(f, g):
return lambda x: f(g(x))
# repeat :: (a -> a) -> Integer -> (a -> a)
# repeat _ 0 = id
# repeat f n = f . repeat f (n - 1)
def repeat(f, n):
if n == 0:
return identity
else:
return compose(f, repeat(f, (n-1)))
Или используя functools.reduce
:
# repeat :: (a -> a) -> Integer -> (a -> a)
# repeat f n = foldr (.) id $ replicate n f
def repeat(f, n):
return reduce(compose, [f]*n, identity)