String matching: Difference between revisions
Added Haskell.
Underscore (talk | contribs) (Added Haskell.) |
|||
Line 110:
tuck 2>r negate over + 0 max /string 2r> compare 0= ;
\ use SEARCH ( a l a2 l2 -- a3 l3 ? ) for contains</lang>
=={{header|Haskell}}==
<lang haskell>> import Data.List
> "abc" `isPrefixOf` "abcdefg"
True
> "efg" `isSuffixOf` "abcdefg"
True
> "bcd" `isInfixOf` "abcdefg"
True
> "abc" `isInfixOf` "abcdefg" -- Prefixes and suffixes are also infixes
True
> let infixes a b = map fst $ filter (isPrefixOf a . snd) $ zip [0..] $ tails b
> infixes "ab" "abcdefabqqab"
[0,6,10]</lang>
=={{header|J}}==
| |||