Add alternate solution in Racket to problem 001