K-means clustering in Racket

http://rosettacode.org/wiki/K-means%2B%2B_clustering#Racket