RPL mini-challenge: Create an anti-Identity Matrix

[grsbanks]

You need a NEG or a SWAP in there somewhere otherwise the resulting matrix has -1 (instead of 1) everywhere but on the diagonal.

Code:

\<< \-> n \<< n IDN { n n } 1 CON SWAP - \>> \>>