Haskell中字符串列表的长度

Question

我不知道如何完成我的代码，需要帮助。

我需要的函数应该能够计算字符串列表中的字符数。

例如：

charLena (createStrLst ["avd", "d4sf"] ["asvd","a2e","bdsh"])    --output is 7 (Total length of the first List)

charLenb (createStrLst ["avd", "d4sf"] ["asvd","a2e","bdsh"])    --output is 11 (Total length of the second List)

这些是我拥有和可以使用的功能：

data StrLst = StrLst [String] [String] deriving (Eq)
StrLst :: [String] -> [String] -> StrLst 

createStrLst :: [String] -> [String] -> StrLst 
numa :: StrLst -> Int             --number of strings in a
numb :: StrLst -> Int             --number of strings in b
lena :: StrLst -> Int -> Int      --length of (i+1)-th string in a
lenb :: StrLst -> Int -> Int      --length of (i+1)-th string in b

createStrLst  a b = (StrLst a b)
numa (StrLst a b) = length a
numb (StrLst a b) = length b
lena (StrLst a b) i = length (a!!i)
lenb (StrLst a b) i = length (b!!i)

现在我需要第一个字符串列表charLena 和第二个字符串列表charLenb 的长度。

我也可以使用map 和递归以及haskell 的基本命令（没有其他）

但是如何通过 StrLst 数据类型进行映射？？

Answer 1

StrLst 不是列表，所以不能直接使用map。但是，您应该编写的两个函数似乎负责决定映射哪个列表：

charLena :: StrLst -> Int
charLena (StrLst a _) = ...

charLenb :: StrLst -> Int
charLenb (StrLst _ b) = ...

a 和b 分别是第一个和第二个列表，存储在作为参数接收的StrLst 值中。每个都有[String] 类型，因此适合用作map 的参数。

---

更新：由于您无法对 StrLst 值进行模式匹配，因此您无法直接访问任一列表。您唯一能做的就是使用lena 和lenb 从任一列表中获取单个字符串的长度。为了知道哪些索引是lena/lenb 的有效参数，您需要使用numa/numb 查找任一列表的长度，然后构造一个范围。例如，[0..numa s - 1] 将为您提供一个有效索引列表到s 的第一个列表中。

一旦你有了索引列表，你可以将部分应用的函数lena s映射到它上面，为你提供列表A的所有单独的字符串列表，然后你可以将它们相加得到charLena的返回值.

charLena s = let indices = [0..numa s - 1]
                 lengths = ... -- use map here
             in ...  -- add up the values in lengths here.

charLenb 将类似，但使用 numb 和 lenb 代替。