DEV Community

DEV Community is a community of 578,968 amazing developers

We're a place where coders share, stay up-to-date and grow their careers.

Here is a little Haskell one-liner

import Data.Char (toUpper, toLower)

toWeirdCase :: String -> String
toWeirdCase = unwords . map (zipWith ($) (cycle [toUpper, toLower])) . words