Skip to main content
added 120 characters in body
Source Link
hana
  • 2.6k
  • 6
  • 19
func = Apply[Plus, Plus @@ #] &;
func[matrix]

(* {a + e + h + k, b + f + i + l, c + g + j + m} *)

Or:

func = Map[Plus @@ # &, #, {0, 1}] &;
func[matrix]

(* {a + e + h + k, b + f + i + l, c + g + j + m} *)

func = Apply[Plus, Plus @@ #] &;
func[matrix]

(* {a + e + h + k, b + f + i + l, c + g + j + m} *)

func = Apply[Plus, Plus @@ #] &;
func[matrix]

(* {a + e + h + k, b + f + i + l, c + g + j + m} *)

Or:

func = Map[Plus @@ # &, #, {0, 1}] &;
func[matrix]

(* {a + e + h + k, b + f + i + l, c + g + j + m} *)

Source Link
hana
  • 2.6k
  • 6
  • 19

func = Apply[Plus, Plus @@ #] &;
func[matrix]

(* {a + e + h + k, b + f + i + l, c + g + j + m} *)