2.64 How to find maximum of each column of a matrix?

Given \[ \left ( {\begin {array} {cc} 1 & 2 \\ 3 & 4 \end {array}} \right ) \] Find the maximum of each column. The result should be \((3,4)\). (to find the min, just change Max with Min below.

Mathematica mat = {{1, 2}, {3, 4}} Map[Max , Transpose[mat]] (* or Max /@ Transpose@mat *)

{3, 4}

 

Matlab A=[1 2;3 4]; max(A)

3 4

 

Maple A:=Matrix([[1,2],[3,4]]); `max`~([LinearAlgebra:-Column(A,1..-1)])

[3, 4]