Got nerd sniped by sylphon

wordbreak.hs

import Data.List

dict = [ "this", "th", "is", "famous", "Word", "break", "b", "r", "e", "a", "k", "br", "bre", "brea", "ak", "problem" ]
string = "Wordbreakproblem"

solve d s = map (intercalate " " . reverse . fst) $ finish (concatMap (starts d)) [([], s)]

starts _ x@(ws, []) = [x]
starts d (ws, s) = [(w:ws, drop (length w) s) | w <- d, w `isPrefixOf` s]

finish fn x = if fn x == x then x else finish fn (fn x)