Data.List: delete unnecessary calculation