Rosetta Code

Determine if a string is collapsible: Difference between revisions

Page Discussion

Determine if a string is collapsible (view source)

Revision as of 12:42, 9 April 2020

6 bytes removed ,  4 years ago
m
→‎{{header|Haskell}}: pointfree
Line 663:
 
collapse :: Eq a => [a] -> [a]
collapse s = catMaybes $. (\xs -> zipWith (\a b -> guard (a /= b) >> a) (Nothing : msxs) (msxs <> [Nothing])) . map Just
where ms = map Just s
 
main :: IO ()
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/295956"