Count occurrences of a substring: Difference between revisions
→{{header|Haskell}}: (or, reversing the order of arguments for ease of currying)
m (→{{header|C sharp}}: Remove unnecessary type annotation) |
(→{{header|Haskell}}: (or, reversing the order of arguments for ease of currying)) |
||
Line 986:
2
</pre>
Alternatively, in a language built around currying, it might make more sense to reverse the suggested order of arguments.
<lang haskell>import Data.Text hiding (length)
countAll :: String -> String -> Int
countAll needle haystack = length (breakOnAll n h)
where
[n, h] = pack <$> [needle, haystack]
main :: IO ()
main =
print $ countAll "ab" <$> ["ababababab", "abelian absurdity", "babel kebab"]</lang>
{{Out}}
<pre>[5,2,2]</pre>
=== List-based solution ===
|