Anonymous user
Determine if a string is collapsible: Difference between revisions
m
→{{header|Haskell}}
Line 649:
import Text.Printf (printf)
import Data.Maybe (catMaybes)
import Control.Monad (guard)
input :: [String]
Line 662 ⟶ 663:
collapse :: Eq a => [a] -> [a]
collapse s = catMaybes $ zipWith (\a b ->
where ms = map Just s
|