Matrix with two diagonals: Difference between revisions

ApproachThe approach here is to fill the second diagonal of an identity matrix generated by the <code>IDN</code> instruction, thanks to a classical <code>FOR.. NEXT</code> loop.

1 OVER '''FOR''' line

line OVER 2 →LIST ROT SWAP 1 PUT

SWAP 1 -

'''NEXT''' DROP

[ 0 1 0 1 0 ]

[ 0 0 1 0 0 ]

[ 0 1 0 1 0 ]

[ 1 0 0 0 1 ]]

[ 0 1 0 0 1 0 ]

[ 0 0 1 1 0 0 ]

[ 0 0 1 1 0 0 ]

[ 0 1 0 0 1 0 ]

[ 1 0 0 0 0 1 ]]