<div dir="ltr">You can get that one quite easily using 'any'.<div><br></div><div>E.g.</div><div><br></div><div><div>[Prelude Data.List] λ let contains xs x = any (`isInfixOf` x) xs</div><div>contains :: (Eq a, Foldable t) => t [a] -> [a] -> Bool</div><div>[Prelude Data.List] λ contains (words "a b c d efg") "refgood"</div><div>True</div><div>it :: Bool</div><div>[Prelude Data.List] λ contains (words "a b c d efg") "ref"</div><div>False</div><div>it :: Bool</div></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Sun, Mar 20, 2016 at 6:02 PM, Miro Karpis <span dir="ltr"><<a href="mailto:miroslav.karpis@gmail.com" target="_blank">miroslav.karpis@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Hi,<br><br></div><div>I needed a function that returns True/False if a list of strings are in a given string. I made one function below (works fine),..but I was wondering whether there is a shorter way?<br><br><br>-- |Returns True if one of given strings are contained in given string<br>contains :: [String] -> String -> Bool<br>contains elements seach_elem<br>   | trueListCount == 0 = False<br>   | otherwise = True<br>   where<br>      isInStringList = [isInfixOf elem seach_elem | elem <- elements]<br>      onlyTrueList = [elem | elem <- isInStringList, elem == True]<br>      trueListCount = length onlyTrueList<br><br><br></div><div>Cheers, <br></div><div>-m<br></div></div>
<br>_______________________________________________<br>
Beginners mailing list<br>
<a href="mailto:Beginners@haskell.org">Beginners@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners" rel="noreferrer" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners</a><br>
<br></blockquote></div><br></div>