Заданы две строки. Убрать из более длинной строки последние символы так, чтобы длина строк стала одинаковой и склеить п

 
length, !!, (:), drop, take, head, tale, last, elem, sum, product, maximum, minimum, ++, concat, reverse:

task :: String -> String -> String
task x y | (lx >= ly) = (take ly x) ++ y
         | otherwise  = x ++ (take lx y)
           where lx = length x
                 ly = length y

task' :: String -> String -> String
task' x y = fst tmp ++ snd tmp
            where tmp = h x y ("","")
                  h "" _ p = p
                  h _ "" p = p
                  h (x:xs) (y:ys) (px,py) = h xs ys (px++[x],py++[y])

task x y = 
    l x y x ++ l x y y 
    where 
        l a b = take (min (length a) (length b))

task :: String -> String -> String
task = go [] []
    where go s1 s2 (x:xs) (y:ys) = go (x:s1) (y:s2) xs ys
          go s1 s2 _ _ = reverse s1 ++ reverse s2

task :: String -> String -> String
task s = uncurry (++) . unzip . zip s

task x y = l x ++ l y 
    where l = take (min (length x) (length y))