在Haskell中将两个函数加在一起

Question

嗨，我是Haskell的新手，遇到一个有趣的问题，但我不确定如何解决该问题。 我仅以问题的两个部分为例。

问题是我们要输入13到15位之间的数字。 然后从该号码中删除最后一个号码。 例如19283828382133应该在没有最后3个1928382838213的情况下给出完全相同的数字。

然后，这些数字中的每个奇数位（非数字）将加倍。 这样您将得到2,9,4,8​​,6等

到目前为止，这是我的代码。 从代码中可以看到，我已经能够分别（工作）完成这两个部分，但是我不确定如何将它们加在一起。

lastdigit :: Integer -> Integer -- This Function removes the last number
lastdigit x = x`div`10

doubleOdd (x:xs) = (2*x):(doubleEven xs) -- This function doubles every odd digit not number.
doubleOdd [] = []
doubleEven (x:xs) = x:(doubleOdd xs)
doubleEven [] = []

因此，为了进一步说明我要构建的程序，首先将完成输入13到15位数字之间的步骤。 然后它将首先删除最后一个数字，然后自动转到将每个奇数（非数字）加倍的下一步。 谢谢

Answer 1

首先，您需要一种将大量数字分解为数字的方法。

digits :: Integral x => x -> [x]
digits 0 = []
digits x = digits (x `div` 10) ++ [x `mod` 10]

这给你...

Prelude> digits 12345
[1,2,3,4,5]

然后可以使用init删除最后一位

Prelude> (init . digits) 12345
[1,2,3,4]

一个辅助函数，用于map列表中的奇数元素。

mapOdd _ [] = []
mapOdd f (x:[]) = [f x]
mapOdd f (x:y:rest) = f x : y : mapOdd f rest

给你...

Prelude> mapOdd (+10) [1..10]
[11,2,13,4,15,6,17,8,19,10]

还有一个返回大量函数...

undigits = sum . zipWith (*) [10^n | n <- [0..]] . reverse

导致...

Prelude> undigits [1, 2, 3, 4]
1234

放在一起

Prelude> undigits . mapOdd (*2) . init . digits $ 12345
2264

---

特别是在函数式语言中，请始终尝试通过为较小的问题编写解决方案来解决问题：）

Answer 2

缺少的组件是一种将整数分解为数字并从那里备份的方法。 这很容易：

digits:: Int -> [Int]
digits = map (`mod` 10) . takeWhile (/= 0) . iterate (`div` 10)

undigits :: [Int] -> Int
undigits = foldr f 0 where f i r = 10 * r + i

然后，您似乎需要以两种不同的方式对这些数字进行后处理，但前提是它们必须与谓词匹配。 让我们为此构建一个组合器：

when :: (a -> Bool) -> (a -> a) -> a -> a
when p f a = if p a then f a else a

当您要在奇数位置（从左到右）加两位数时，出现第一种情况。 再小一点， digits带来的不便之处在于digits会通过增加10的幂来分解digits 。 让我们在每个数字的位置加上前缀：

prefix :: [Int] -> [(Int, Int)]
prefix is = let n = length is in zip [n, n-1..1] is

现在可以将doubleOdd表示为

doubleodd :: [Int] -> [Int]
doubleodd = map (snd . when (odd . fst) (id *** double)) . prefix

您在评论中提到，当双数溢出时，必须将其数字加在一起。 这是我所指的第二种情况，本身又是简单性：

double :: Int -> Int
double = when (>= 10) (sum . digits) . (* 2)

这是您的最终程序：

program = undigits . doubleodd . tail . digits

...假设“ 13到15位之间”部分已单独验证。

Answer 3

我希望这会有所帮助，并意识到可以对其进行大量清理。 列表索引以0（也是偶数）和列表的第一个元素开头。 列表理解处理0,2,4 ...第一，第二和第三项。

let f n = [mod n 10] ++ f (div n 10)
let r = [if even i then d*2 else d|(i,d)<-zip [0..] (init.reverse.take 14.f$19283828382133)]
sum [b*(10^a)|(a,b) <- zip [12,11..0] r]

2948684868416

如果您想让它处理任何长度的数字，那么这里最简单的方法是length $ show 19283828382133但是我确实在某个地方可以执行此操作。 使用长度作为3个位置的值，一次在合成中的take函数中take全值。