7.7 - deleteAll :: Eq a => a -> [a] -> [a]...

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

View Full Document Right Arrow Icon
--7.7 unique :: [Int] -> [Int] unique [] = [] unique (x:xs) | (notElem x xs) = (x: (unique xs)) | otherwise = unique ( deleteAll x xs) --deleteAll x xs: returns list xs with all elements that equaled x deleted
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: deleteAll :: Eq a => a -> [a] -> [a] deleteAll x = deleteAll x (y:ys) | x == y = (deleteAll x ys) | otherwise = (y : ( deleteAll x 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