Added solution to problem 46 in Racket