Count occurrences of a substring: Difference between revisions

=={{header|Haskell}}==

<lang haskell>

import Data.Text hiding (length)

-- Return the number of non-overlapping occurrences of sub in str.

countSubStrs str sub = length $ breakOnAll (pack sub) (pack str)

main = do

print $ countSubStrs "the three truths" "th"

print $ countSubStrs "ababababab" "abab"

</lang>

Output:

<pre>

3

2

</pre>