Haskell: liste birimini iyileştir

Question

İki resim için bir sendika işlevi oluşturmak istiyorum (tip dizgisi listeleri kullanılarak oluşturuldu.) İki listeyi birleştiren unionList işlevi oluşturarak başlattım.

unionList :: String -> String -> String 
unionList xs ys = xs ++ foldl (flip delete) ys xs 

Bu nasıl çalışır, ama ben de istemiyorum. o bunu başarmak için nasıl yapıldığını üzerinde

input = unionList [’ ’,’ ’,’X’,’X’,’ ’] [’X’,’ ’,’X’,’ ’,’X’] 
output = "X XXX" 

herhangi fikirler:
nasıl bir şey çalışmak istiyorum.

DÜZENLEME: Nihayetinde iki resmin birleşimini oluşturmaya çalışıyorum.

image 1 = [" XX ",  image 2 = ["XX XX",   type Img = [String] 
      " X X ",    " X ", 
      " XX "]    "XX XX"]   

^
örnekler

Input = (imgUnion (image 1) (image 2)) 

bana iki görüntülerin birliği vermelidir.
imgUnion

imgUnion :: Img -> Img -> Img 

Answer 1

bunu yapmak için muhtemelen daha iyi yolları vardır olarak tanımlanan, ancak yöntemlerin bir çift denemek üzere eğlendik. Liste başı öğe üzerinde

Desen eşleştirme:

unionList1 :: String -> String -> String 
unionList1 ('X':xs) (_ :ys) = 'X' : unionList1 xs ys 
unionList1 (_ :xs) ('X':ys) = 'X' : unionList1 xs ys 
unionList1 (_ :xs) (_ :ys) = ' ' : unionList1 xs ys 
unionList1  _  _ = [] 

Muhafızları!

unionList2 :: String -> String -> String 
unionList2 (x:xs) (y:ys) 
    | x == ' ' = y : rest 
    | y == ' ' = x : rest 
    | otherwise = x : rest 
    where rest = unionList2 xs ys 
unionList2 _ _ = [] 

Ve zipWith ile önerdiği gibi bir çözüm:

XXXXX 
XX X 
XXXXX 

:

imgUnion :: [String] -> [String] -> [String] 
imgUnion = zipWith unionList3 

main :: IO() 
main = do 
    let img1 = [" XX ", 
       " X X ", 
       " XX "] 
     img2 = ["XX XX", 
       " X ", 
       "XX XX"] 

    mapM_ putStrLn (imgUnion img1 img2) 

çıktı olarak verir:

unionList3 :: String -> String -> String 
unionList3 = zipWith (\x y -> if x /= ' ' then x else y) 

Daha sonra resmin üzerine bu birlik işlevlerinden birini kullanabilirsiniz