Added solution to problem 47 in Racket