Map Filter And Reduce Function In Mathematica