6.2 - --helper superimposeChar :: Char -> Char...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
--6.2 superimposeLine :: [Char] -> [Char] -> [Char] superimposeLine [] [] = [] superimposeLine (x:xs) (y:ys) = ( superimposeChar x y : superimposeLine xs ys )
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: --helper superimposeChar :: Char -> Char -> Char superimposeChar x y | x == '.' && y == '.' = y | otherwise = '#'...
View Full Document

Ask a homework question - tutors are online