• + 1 comment

    using accumulator
    rev l = rev' l []
    rev'::[a]->[a]->[a]
    rev' [] l = l
    rev' (x:xs) l = rev' xs (x:l)