ХОТЬ ГОТОВА ЗАПЛАТИТЬ Запрограммируйте функцию digitSum :: integer -> integer -> integer таким образом, чтобы digitsum base X был числовой суммой числа x в базе. Примечание.: числовые литералы, такие как 1234 или 5, находятся в десятичной системе счисления. Помните, что в Haskell можно вводить числа в шестнадцатеричной системе счисления, например: 0x1234.
Работайте только с неотрицательными числами. Можно предположить, что первый аргумент-база-будет положительным числом ≥ 2.
digitSum 10 1234 ~>* 10
digitSum 16 0x1234 ~>* 10 -- шестнадцатеричный ввод
digitSum 16 1234 ~>* 19 -- 4d2 в системе счисления с основанием 16, т. е. цифр [4, 13, 2]
digitSum 16 0x4d2 ~>* 19
digitSum 3 1234 ~>* 6
digitSum 4 0 ~>* 0