Added solution to problem 49 in Racket