Is it a good 2048 board?

Haskell, 21 bytes

all$scanr1 max>>=(==)

Try it online!

Takes a list of columns, with empty spaces as 0.


05AB1E, 4 bytes

€{íQ

Try it online!

Same as my other two answers. I promise this is my last one until others have answered :)


APL (Dyalog), 7 4 bytes

Takes 4-by-4 matrix, using 0 for blanks, as argument.

⊢≡⌊⍀

Try it online!

⌊⍀ is the vertical cumulative minimum

 identical to

 the unmodified argument?