haskell 基础题解（40）

通话时长

【题目】已知某次通话的开始时间，线束时间，怎样计算通话时长？（假设通话不会超过24小时，但有可能跨午夜）
比如： 12:40:15 到 12:41:18 通话 63秒，而23:59:57 到 00:00:01 仅通话了4秒。

这个问题与【问题39】有个共同的小窍门：欲求 a, b 的差，可以找一个原点 x，问题变成：
$$a-b=(a-x)-(b-x)$$
显然，选午夜时刻即 0:0:0 是最便于计算的。
以下 haskell 码：

-----通话时长
duration :: (Int,Int,Int) -> (Int,Int,Int) -> Int
duration (h1,m1,s1) (h2,m2,s2) = 
    (delta (h2,m2,s2) - delta (h1,m1,s1) + daySeconds) `mod` daySeconds
    where
    daySeconds = 24 * 60 * 60
    delta (h, m, s) = 60 * 60 * h + 60 * m + s

main :: IO ()
main = do
    print $ duration (19,28,17) (19,29,4)
    print $ duration (23,59,58) (0,3,12)

其中， (a - b + A) % A 这种算法是很常用的处理技巧。这是害怕 a 比 b 小时产生负值。那么 a 比 b 大呢？ 那就白加了呗，反正最后还取模的，加多少个 A 都不妨。
mod 加了反引号，当中缀运算符用，比其前缀形式更具可读性。但要注意，此运算符的优先级是可以单独定义的。haskell 把它定义的比 + - 更高优先。

这个对基点求差的思路很具有普遍意义。很多问题中能用上。

有个著名的最大连续和问题，求 一个给定的整数序列中（有正有负），其所有子序列（连续一段）和的最大值。这不用对所有的位置组合 [a,b] 求和，只要算出从开始到每个位置的和，再利用 $[a,b]=su{m}_a-su{m}_b$ 即可。