Написать функцию попарного сложения элементов двух списков

lab22 [][] =[]
--lab22 _[] = []
--len [] = 0
--len s = 1+ len (tail s) 
lab22 as bs = (head as + head bs)   :  lab22 (tail as) (tail bs)

add :: (Num a) => [a] -> [a] -> [a]
add _ [] = []
add [] _ = []
add (x:xs) (y:ys) = (x + y) : add xs ys

add :: (Num a) => [a] -> [a] -> [a]
add = zipWith (+)

sumLists :: Num a => [a] -> [a] -> [a]
sumLists [x] [] = [x]
sumLists [] [x] = [x]
sumLists (x:xs) (y:ys) = (x + y) : sumLists xs ys

*Main> sumLists [0..3] [0..4]
[0,2,4,6,4]
*Main> sumLists [0..5] [0..4]
[0,2,4,6,8,5]
*Main>

withLists :: (a -> a -> a) -> [a] -> [a] -> [a]
withLists f x [] = x
withLists f [] x = x
withLists f (x:xs) (y:ys) = (f x y) : withLists f xs ys

sumLists :: Num a => [a] -> [a] -> [a]
sumLists x y | lx == ly  = zipWith (+) x y
             | lx > ly   = zipWith (+) x (y ++ (replicate (lx-ly) 0)) 
             | otherwise = zipWith (+) (x ++ (replicate (ly-lx) 0)) y
             where lx=(length x)
                   ly=(length y)
 
Main> sumLists [1,2,3] [1,2,3]
 
[2,4,6]
 
Main> sumLists [1,2,3] [1,2,3,44]
 
[2,4,6,44]

val_min (x:xs) (y:ys) (z:zs) = if length (x:xs) == 0 || length (y:ys) == 0 || length (z:zs) == 0 then 0
                                                                                                 else (minimum ((length (x:xs)) : (length (y:ys)) : (length (z:zs)) : []))

let th_ar x y z = x+y+z
 
ad_ap_el_Lists th_ar (x:xs) (y:ys) (z:zs) = (th_ar x y z) : ad_ap_el_Lists th_ar (take val_min xs) (take val_min ys) (take val_min zs)

sum3lists [] _ _ = []
sum3lists _ [] _ = []
sum3lists _ _ [] = []
sum3lists (x:xs) (y:ys) (z:zs) = (x+y+z) : sum3lists xs ys zs

sumNlists x | ([] `elem` x) = []
            | otherwise = (sum $ map head x) : (sumNlists $ map (drop 1) x)

import System.IO
 
sum3lists [] _ _ = []
sum3lists _ [] _ = []
sum3lists _ _ [] = []
sum3lists (x:xs) (y:ys) (z:zs) = (x+y+z) : sum3lists xs ys zs
 
main = do
       putStrLn "Please, enter the first list"
       l1 <- getLine
       putStrLn "Please, enter the second list"
       l2 <- getLine
       putStrLn "Please, enter the third list"
       l3 <- getLine
       putStrLn $ show $ sum3lists (read l1) (read l2) (read l3)

mapcar :: ([a] -> b) -> [[a]] -> [b]
mapcar f ls | any null ls = []
            | otherwise   = f (map head ls) : mapcar f (map tail ls)
 
main = print $ mapcar sum [[1,2,3],[4,5,6],[7,8,9,10]]

mapcar f = map f . transpose

mapcar :: ([a] -> b) -> [[a]] -> [b]
mapcar f ls | null lf = []
            | otherwise   = f (map head lf) : mapcar f (map tail lf)
            where lf = filter (not . null) ls

sumNlists = foldl1 (zipWith (+))

[9,94*Minmodule> *** Exception: E:\Minmodule.hs:(125,1)-(132,98): Non-exhaustive patterns in somefun

import System.IO
 
sum3lists [] _ _ = []
sum3lists _ [] _ = []
sum3lists _ _ [] = []
sum3lists (x:xs) (y:ys) (z:zs) = (x+y+z) : sum3lists xs ys zs
 
main = do
       putStrLn "Please, enter the first list"
       l1 <- getLine
       putStrLn "Please, enter the second list"
       l2 <- getLine
       putStrLn "Please, enter the third list"
       l3 <- getLine
       putStrLn $ show $ sum3lists (read l1) (read l2) (read l3)