search w cts = search' (False,0) w cts where search' (b,n) _ [] = (b,n) search' (_,n) w (c:cs) | take (length w) (c:cs) == w = search' (True,n + 1) w cs search' t w (_,cs) = search' t w cs
search2 w cts = search' (False,0) w cts where search' (b,n) _ [] = (b,n) search' (_,n) w cts | take (length w) cts == w = search' (True,n + 1) w $ drop (length w) cts search' t w (_:cs) = search' t w cs
-- main = do 7777 -- (file:word:_) <- getArgs -- content <- readFile file -- print $ search word content
main = getArgs >>= \(file:word) -> readFile file >>= print.search word
