Rosetta Code

Word break problem: Difference between revisions

Page Discussion

Word break problem (view source)

Revision as of 13:16, 18 June 2020

28 bytes removed ,  4 years ago
m
→‎{{header|Haskell}}: Tidying
m (Minor edit to C++ code)
Line 225:
=={{header|Haskell}}==
{{Trans|Javascript}}
<lang haskell>import Data.TreeList (isPrefixOf, intercalate)
import Data.ListTree (isPrefixOf, intercalateTree(..))
 
wordBreaks :: [String] -> String -> String
wordBreaks ws = (++) <*> \s =-> ":\n" ++ report (go <$> tokenTrees ws s)
where
let parses = go <$> tokenTrees ws s
go t
| null (subForest t) = [rootLabel t]
| otherwise = subForest t >>= ((:) (rootLabel t) . go)
report xs
| null xs = "\tNot parseable with these words"
| otherwise = unlines $ (('\t' :) . intercalate " -> ") <$> xs
in s ++ (':' : '\n' : report parses)
 
tokenTrees :: [String] -> String -> [Tree String]
Line 252 ⟶ 251:
| otherwise = [Node w xs]
 
-- TEST --------------------------------- TEST ---------------------------▼
 
▲-- TEST ------------------------------------------------------------
ws, texts :: [String]
ws = words "a bc abc cd b"
Hout
9,659

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/275385"