This is my Racket/Scheme implementation of a k-means sorting algorithm