子列表在列表中的位置haskell

Question

好的，所以我试图编写一个函数来确定另一个字符串中字符串的位置，如果第一个字符串是第二个字符串的子列表。说那里有一个像＃＆＃34;馅饼＆＃34;和另一个喜欢＆＃34; applepie＆＃34;，函数将返回5，因为＆＃34;馅饼＆＃34;在＃34; applepie＆＃34;

的字符串中的位置5

有没有人知道我该怎么做？

Answer 1

查看this问题。几天前它被问及（并回答）并且涵盖完全您的问题。

我的解决方案：

findStr :: String -> String -> Maybe Int
findStr pat str = findStrHelp pat str 0
  where
    findStrHelp _ [] _ = Nothing
    findStrHelp pat s@(x:xs) n
      | pat == (take (length pat) s) = Just n
      | otherwise = findStrHelp pat xs (n+1)

要获得此代码，请删除findStrHelp _ [] _行并将Just n更改为n。同时将类型签名中的Maybe Int更改为Int。