Defining a function that detects square matrices

Define a function g, which receives a list and returns True if that list represents a square array, and False otherwise.

I only can use Table, Map, and Apply.

Examples:

g[{{1,2,3},{4,5,6},{7,8,9}}] deverá retornar True
g[{{1,2,3},{4},{7,8}}] deverá retornar False
g[{{1,2,3},{4,5,6}}] deverá retornar False
g[{{1,2},1+x}] deverá retornar False

This is my code:

gl = 
  Function[w,
    Apply[
      And, 
      Table[If[w[[i]] == Length[w], True, False], {i, 1, Length[w]}]]]`

or

g = 
  Function[w,
    Apply[And, Map[Function[x, If[x == Length[x], True, False]], w]]]