List 使用不同的函数将映射应用于列表的每个元素
我目前有以下代码：List 使用不同的函数将映射应用于列表的每个元素,list,haskell,functional-programming,List,Haskell,Functional Programming,我目前有以下代码： function string keys = map (xor 1) (map ord string) 它从字符串中提取每个元素，并将其与1进行异或运算。 我想通过将1替换为键中的任何元素，使映射功能更高级 例如，如果string==“Test”和keys=[1,3,6,9]我会得到： 'T' xor 1 'e' xor 3 's' xor 6 't' xor 9 有没有一种方法可以迭代键的所有元素，这样我就可以实现这一点？我是Haskell的新手，对它的概念没有很好的理
function string keys = map (xor 1) (map ord string)
string==“Test”keys=[1,3,6,9]'T' xor 1
'e' xor 3
's' xor 6
't' xor 9
function string keys = map (iterate xor keys) (map ord string)
正如我发布的一样，我注意到iterate做了一件完全不同的事情，因此在这一点上我知道它为什么不起作用，但我不知道如何替换它。您想将列表的一个元素与另一个列表的一个元素相关联。 这通常被称为拉链。这似乎正是您想要的：
Prelude Data.Bits> zipWith xor [1, 3, 5] [10, 23, 44]
[11,20,41]
a->b->c[a][b]它是
zipzip=zipWith（，）Prelude Data.Bits> zipWith xor [1, 3, 5] [10, 23, 44]
[11,20,41]
a->b->c[a][b]它是生成成对元素（
zip=zipWith（，）zipZipList>getZipList$xor。ord ZipList“测试”ZipList[1,3,6,9,11]
[85,102,117,125]
get/ZipList——zipWith（xor.ord）“测试”[1,3,6,9,11]
——带xor的zipWith（映射词“Test”）[1,3,6,9,11]
--zipWith（$）（map（xor.ord）“Test”）[1,3,6,9,11]
--map（uncurry（$）（zip（map（xor.ord）“Test”）[1,3,6,9,11]）
--map（\（a，b）->xor（ord a）b）（zip“Test”[1,3,6,9,11]）
fmapmapZipList[ord]“测试”
[84,101,115,116]
--ord“测试”
--地图“测试”
函数：：[Char]->[Int]->[Int]
--函数字符串键=映射（迭代异或键）（映射ord字符串）
函数字符串keys=zipWith（$）（映射异或键）（映射ord字符串）
--=getZipList$（xor ZipList键）（ord ZipList字符串）
（$）（$）fx=f$x=fxZipList>getZipList$xor。ord ZipList“测试”ZipList[1,3,6,9,11]
[85,102,117,125]
get/ZipList——zipWith（xor.ord）“测试”[1,3,6,9,11]
——带xor的zipWith（映射词“Test”）[1,3,6,9,11]
--zipWith（$）（map（xor.ord）“Test”）[1,3,6,9,11]
--map（uncurry（$）（zip（map（xor.ord）“Test”）[1,3,6,9,11]）
--map（\（a，b）->xor（ord a）b）（zip“Test”[1,3,6,9,11]）
fmapmapZipList[ord]“测试”
[84,101,115,116]
--ord“测试”
--地图“测试”
函数：：[Char]->[Int]->[Int]
--函数字符串键=映射（迭代异或键）（映射ord字符串）
函数字符串keys=zipWith（$）（映射异或键）（映射ord字符串）
--=getZipList$（xor ZipList键）（ord ZipList字符串）
（$）（$）fx=fx=fx（a->a->a）->[a]->[a]->[a]->[a]zipWithPrelude（a->a->a）->[a]->[a]->[a]->[a]zipWithPrelude