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

kar*_*kfa 8

你只需要一个特殊的合并功能

> 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

Wil*_*ess 5

你想要一种“ zipLongest”，transpose有点像这样：

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

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

从上面看，

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

另一个答案中的代码length也可以工作，即使是无限的，x尽管调用了 dreaded length，但由于调用了它，它会保留整个x内存length。