Update core.clj

Simplified calculation of med in subdivide function.