将两个输入的函数应用于列表中的每个元素 - Haskell

Question

我有一个功能

f :: Int -> Int -> Int

我有一个任意长度的列表，但为了这个例子：

[x1,x2,x3]

我需要将f应用于列表，使得结果列表如下所示：

[f x1 x1 + f x1 x2 + f x1 x3 , f x2 x1 + f x2 x2 + f x2 x3 , f x3 x1 + f x3 x2 + f x3 x3]

我知道

map f [x1,x2,x3] will give [f x1, f x2, f x3]

但这似乎没有多大帮助。 最好的方法是什么？

Answer 1

您可以使用列表推导，来说明在ghci下尝试以下表达式，

fun f xs = map sum [[ f x y | y <- xs] |  x <- xs]

Answer 2

没有列表推导的解决方案：

使用map两次。

map (\x -> sum $ map (f x) xs) xs

Answer 3

您可以使用applicative functors以这种方式执行此操作：

import Control.Applicative
let l = ["a", "b", "c"]
(++) <$> l <*> l

这将返回["aa","ab","ac","ba","bb","bc","ca","cb","cc"] 。

为了解释得远一点， (++) <$> l将映射函数(++)的每一个元件上l ，从而返回[("a"++), ("b"++), ("c"++)] 。 然后，使用<*>将所有这些函数应用于l所有元素。