7.18 - subs = False subs(x:xs(y:ys | x == y&& xs == =...

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

View Full Document Right Arrow Icon
--7.18 sublist :: Eq a => [a] -> [a] -> Bool sublist [] _ = True sublist _ [] = False sublist (x:xs) (y:ys) | sublist (x:xs) ys = True | otherwise = False subs :: Eq a => [a] -> [a] -> Bool subs [] _ = True
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: subs _ = False subs (x:xs) (y:ys) | x == y && xs == = True | ys == && xs /= = False | x == y && x1 == y1 && subs x1s y1s = True | subs (x:xs) ys = True | otherwise = False where (x1:x1s) = xs (y1:y1s) = ys...
View Full Document

This note was uploaded on 11/10/2010 for the course CS 332F taught by Professor Russel during the Spring '10 term at California State University Los Angeles .

Ask a homework question - tutors are online