How to ﬁnd 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 ﬁnd 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]