Haskell

{-The list is made of tuples whose first component is the stock value, the second is the year, the third is the month and the fourth is the date. We want to know when the stock value first exceeded one thousand dollars!-}

stock = [(994.4,2008,9,1),(995.2,2008,9,2),(999.2,2008,9,3),(1001.4,2008,9,4),(998.3,2008,9,5)]

function = head $ dropWhile (\(val,y,m,d) -> val < 1000) stock

function' = head $ dropWhile (f < 1000) stock
    where f (val,y,m,d) = val