Question

我在haskell中编写了2个函数，现在我必须编写第三个函数来计算haskell中的前缀数。这是一个例子：

我必须列出。第一个是前缀列表，另一个是文本列表。这个函数假设要做的是计算前缀列表中每个单词是文本列表中所有单词的前缀的次数，并将其显示在元组中（单词，它作为前缀出现的次数）在文字中：

前缀列表[“go”，“co”]

文本列表[“golf”，“company”，“count”]

这应该返回[（“go”，1），（“co”，2）]

我有这个：

isPrefixOf :: (Eq a) => [a] -> [a] -> Bool
isPrefixOf [] _ = True
isPrefixOf _ [] = False
isPrefixOf (x:xs) (y:ys) = x == y  && isPrefixOf xs ys


prefixCount :: (Eq a1, Num a) => [a1] -> [[a1]] -> a
prefixCount _ [] = 0
prefixCount x (y:ys) | isPrefixOf x y = 1 + prefixCount x ys
                 | otherwise = prefixCount x ys


howManyPrefixes [] _ = error("empty list!")
howManyPrefixes (x:xs) y  = map (\x -> (x,prefixCount x y)) xs

Answer 1

你可以使用map，当然还是递归的：

howManyPrefixes prefixList wordList = 
    map (\prefix -> (prefix, prefixCount prefix wordList)) prefixList

如果你真的想在不使用map的情况下这样做，那么你可以像其他任何东西一样重新实现map。 map只是：

map :: (a -> b) -> [a] -> [b]
map f []     = []
map f (x:xs) = f x : map f xs

因此，您可以将上述内容转换为：

howManyPrefixes [] _ = []
howManyPrefixes (prefix:prefixList) wordList = 
 -- f x                                   : map f xs
    (prefix, prefixCount prefix wordList) : howManyPrefixes prefixList wordList

Answer 2

递归定义是

howManyPrefixes :: [[a]] -> [a] -> [([a], Int)]
howManyPrefixes [] _     = []
howManyPrefixes (x:xs) y = 
  let count = prefixCount x y 
  in (x, count) : howManyPrefixes xs y

haskell中的前缀

2 个答案: