Haskell 到 Python：多函数转换问题

Question

我对编程很陌生，我被要求将 3 个 haskell 函数转换为 python 作为练习。 这 3 个函数是相连的，因为其中一个函数的输出用作下一个函数的输入，以此类推。

我知道 haskell 函数的作用，但我不知道如何开始转换它们！

这是haskell代码：

factorial :: Int -> Int
factorial n = product (down n)

product :: [Int] -> Int
product [] = 1
product (a:as) = a * product as

down :: Int -> [Int]
down 0 = []
down n = n : down (n-1)

这是我转换它的尝试：

class function:
    def down(self):
        if self.n == 0:
            self.lista = []
        else:
            self.lista = range(self.n, 0, -1)

    def product(self):
        for x in self.lista:
            if x == []:
                self.product = 1
            if x != []:
                for i in self.lista:
                    self.product = i * self.product

    def factorial(self):
        self.n = int(raw_input("n="))

        self.fact = self.product(self.down(self.n))

        print self.fact
        raw_input()

c = function()
c.factorial()

嗯，首先我相信这不是 haskell 代码的“直接转换”。不过这样也可以，但是第二，它不起作用。

这种缺乏编程背景的情况让我快要死了……谁能帮我解决这个问题？

非常感谢！

编辑：

这个问题的重点是将haskell准确地转换为python。 我自己做了一个精简版，这是练习的下一步^^

Answer 1

首先，放弃 class 包装器 - 这不是必需的。

直接的 Python 翻译类似于：

# factorial :: Int -> Int
def factorial(n):
    return product(down(n))

# product :: [Int] -> Int
def product(arr):
    if len(arr) == 0: return 1
    a, ar = arr[0], arr[1:]
    return a * product(ar)

# down :: Int -> [Int]
def down(n):
    if n == 0: return []
    return [n] + down(n - 1)

但是这里的递归风格不是很 Pythonic。下一个练习：将递归替换为迭代、列表推导或对reduce 的调用（如果在 Python2 上）。

Answer 2

如果您想编写惯用的 Python，请避免递归。

down(n) 拼写为range(n, 0, -1)。如果你想要惰性语义，请使用xrange，这将更接近 Haskell 的精神。

product(lst) 是 reduce(operator.mul, lst, 1)。 （直接拼出循环会更惯用，但这样更短。）

从那里开始应该很明显如何转换factorial。