<span style='font-family:Verdana'><span style='font-size:12px'>unique :: [Integer] -&gt; [Integer]<br /> 
unique []&nbsp;&nbsp; = []<br /> 
unique (x:xs) | elem x xs&nbsp;&nbsp; = (unique . filter (/= x)) xs<br /> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; | otherwise&nbsp;&nbsp; = x : unique xs<br /> 
<br /> 
-- This is a simpler to read version (albeit inefficient?)<br /> 
unique :: [Integer] -&gt; [Integer]<br /> 
unique []&nbsp;&nbsp; = []<br /> 
unique (x:xs) | elem x xs&nbsp;&nbsp; = unique xs<br /> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; | otherwise&nbsp;&nbsp; = x : unique xs</span></span>