将列表映射到除当前索引之外的元素的乘积，而不使用除法-Java 学习之路

我'm doing some exercies in Haskell, and this is the current one I'正在https://leetcode.com/problems/product-of-array-except-self/工作 .

给定n个整数的数组，其中n> 1，nums，返回一个数组输出，使得output [i]等于除nums [i]之外的所有nums元素的乘积 . 在没有除法和O（n）的情况下解决它 . 例如，给定[1,2,3,4]，返回[24,12,8,6] .

我能够通过分工很容易地做到这一点：

import Data.List (foldl1')

productOfArray :: [Int] -> [Int]
productOfArray xs = f <$> xs
  where p = foldl1' (*)
        f = div (p xs)

但我不太确定如何在没有分工的情况下接近它 . 命令式方法是映射到当前索引左侧所有数字的乘积乘以当前索引右侧的所有数字，但在Haskell中，我不太清楚如何概念化它 .

1 回答