Update birthday_problem.R

I created a function that the user can call