با توجه به دو رشته باینری a و b، جمع آنها را به عنوان یک رشته باینری بازگردانید. راه حل را به عنوان یک تابع هاسکل بنویسید
در اینجا راه حل هاسکل برای این مشکل است: ``` addBinary :: String -> String -> String addBinary a = inverse $ addBinaryHelper (reverse a) (reverse b) '0' addBinaryHelper :: String -> String -> Char -> String addBinaryHelper [] [] '0' = [] addBinaryHelper [] [] [] carry = [carry] addBinaryHelper [] (y:Digys) = addBinaryHelper [] (DiginyDigits '0' y carry) addBinaryHelper (reverse $ addBinaryHelper) (x:Digxs) [] carryBaddBaddBaddBaddBinaryHelper [reverse a) (Diginy