Rosetta Code

Determine if a string is collapsible: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Line 665:
 
main :: IO ()
main =
main = mapM_ (\t(a, b) -> printf "old: %3d «««%s»»»\nnew: %3d «««%s»»»\n\n" (length $ fst ta) (fst t)a (length $ snd tb) (snd t)b)
$ map (\s(,) -<*> (s, collapse) s))<$> input
</lang>
{{out}}
Retrieved from "https://rosettacode.org/wiki/Determine_if_a_string_is_collapsible"