Matrix with two diagonals: Difference between revisions

=={{header|RPL}}==

Approach here is to fill the second diagonal of an identity matrix generated by IDN instruction, thanks to a classical FOR.. NEXT loop.

{{works with|Halcyon Calc|4.2.7}}

≪ IDN LAST

1 OVER FOR line

line OVER 2 →LIST ROT SWAP 1 PUT

SWAP 1 -

NEXT

DROP

≫

‘XDIAG’ STO

5 XDIAG

6 XDIAG

{{out}}

<pre>

2: [[ 1 0 0 0 1 ]

[ 0 1 0 1 0 ]

[ 0 0 1 0 0 ]

[ 0 1 0 1 0 ]

[ 1 0 0 0 1 ]]

1: [[ 1 0 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 ]]

</pre>