Polyglot Programming DC Randori of WordWrap function

wordwrap.hs

wordWrap :: String -> Int -> String
wordWrap xs maxLineLength = wordWrapHelper "" xs maxLineLength maxLineLength

wordWrapHelper :: String -> String -> Int -> Int -> String
wordWrapHelper result xs maxLineLength index
	| length xs < maxLineLength + 1 = result ++ xs
	| xs !! index == ' '            = wordWrapHelper (result ++ firstPart) lastPart maxLineLength maxLineLength
	| otherwise                     = wordWrapHelper result xs maxLineLength (index - 1) 
	where 
		firstPart = (take index xs) ++ "\n"
		lastPart  = drop (index + 1) xs