Alternative for apply function to increase speed

Question

I am trying a way to increase the speed when applying function to a series. I am using apply function to series that consists 40000 rows and it takes more than