{- 

COMP2600 Assignment 1

Joseph Curtis
3952239

-}

elemSort :: Ord a => a -> [a] -> Bool
elemSort y [] = False
elemSort y (x:xs) = 
	 if y == x 
	 then True
	 else if x > y
	      then False
	      else
		elemSort y xs

{-

elemSort y (x:xs) =
	 if y == x
	    then True
	    else if y > x
		 then False
		 else elemSort y xs
-}