You are viewing a single comment's thread. Return to all comments →
import Data.Bool fix = until =<< ((==) =<<) deletePairs (x:xs:xss) | x == xs = deletePairs xss | otherwise = x : deletePairs (xs:xss) deletePairs xs = xs main = interact $ (bool id (const "Empty String") =<< null) . fix deletePairs
Abusing the cryptic function monad.
Seems like cookies are disabled on this browser, please enable them to open this website
Super Reduced String
You are viewing a single comment's thread. Return to all comments →
Haskell
Abusing the cryptic function monad.