在 Haskell 中掩码合并两个字符串的优雅方法

Question

例如，如果我们有两个字符串 "abc" 和 "1234" 我想要结果 "abc4" （第一个字符串掩盖第二个）。 （如果我们将它们垂直绘制，就像波浪来自左侧并轻触字符）

             "a"  "1"            "a"
 wave ->     "b"  "2"   result   "b" 
             "c"  "3"            "c"
                  "4"            "4"  

我从 Haskell 这个解决方案开始

slice from to xs = take (to - from + 1) (drop from xs)
merge l1 l2 = if length l2 > length l1 
                then l1 ++ slice (length l1) (length l2) l2 
                else l1

能否请您提供一些更优雅\紧凑的解决方案。

Answer 1

你只需要一个特殊的合并函数

> let merge [] ys = ys
|     merge xs [] = xs
|     merge (x:xs) (y:ys) = x : merge xs ys

或使用drop

> let merge2 x y = x ++ drop (length x) y

Answer 2

你想要一种“zipLongest”，而transpose 是这样的：

maskMerge1 :: [b] -> [b] -> [b]
maskMerge1 as bs  =  map head $ transpose [as,bs]
              -- or:
              --        head <$> transpose [as,bs]

这非常紧凑和优雅（非常感谢 @leftaroundabout 的 cmets！）。

从上面看，

    [ "abc" ,        [ ['a' ,'b' ,'c'     ] ,
      "1234" ]         ['1' ,'2' ,'3' ,'4'] ]
    ----------      --------------------------
                     [  "a1","b2","c3","4"  ]   -- transpose
    ----------      --------------------------
      "abc4"         [  'a' ,'b' ,'c' ,'4'  ]   -- map head

另一个答案中带有length 的代码也可以工作，即使是无限的x，尽管调用了可怕的length，但它会将整个x 保留在内存中，因为调用了length 就可以了。