Use filter to solve prob004.clj