如何找到列表中两个元素之间的距离？

Question

我必须找到列表中两个元素首次出现之间的距离。我们使用的程序是 Haskell。我已经在线了几个小时，试图寻求有关如何开始或解决问题的方向的帮助。请帮忙！

这是我们定义它的方式： gap :: (Eq a) => a -> a -> [a] -> Maybe Int

这里有一些例子：

> gap 3 8 [1..10]
Just 5

> gap 8 3 [1..10]
Nothing

> gap 'h' 'l' "hello"
Just 2

> gap 'h' 'z' "hello"
Nothing

Answer 1

预计运行速度很快的答案：

import Data.List (elemIndex)


gap :: Eq a => a -> a -> [a] -> Maybe Int
gap x y ls = elemIndex y $ dropWhile ((/=) x) ls             

如果您不想依赖Data.List，那么您必须编写并添加您自己的elemIndex'。

根据 Daniel Wagner 的反馈意见：

gap' :: Eq a => a -> a -> [a] -> Maybe Int
gap' x y ls
    | null ls'          = Nothing
    | head ls' == y     = Nothing 
    | otherwise         = elemIndex y ls'

    where

    ls' = dropWhile (\t -> t /= x && t /= y) ls

Answer 2

我会这样做：

import Data.List (elemIndex)

gap :: Eq a => a -> a -> [a] -> Maybe Int
gap x1 x2 xs = do
    i <- elemIndex x1 xs
    j <- elemIndex x2 xs
    if i <= j
        then Just (j - i)
        else Nothing

感谢dfeuer 提醒我elemIndex 功能。