Spiral matrix: Difference between revisions

Spiral matrix (view source)

2 bytes added , 2 months ago

m

1,150

edits

Revision as of 17:08, 10 March 2024 (view source) Aerobar (talk \| contribs) m (→‎{{header\|RPL}}: comments) ← Older edit		Latest revision as of 07:46, 11 March 2024 (view source) Aerobar (talk \| contribs) m (→‎{{header\|RPL}}: typo)
(One intermediate revision by the same user not shown)
Line 4,922: {{works with\|RPL\|HP48-R}} « { 0 1 } → n step « { 1 1 } n DUP 2 →LIST -1 CON <span style="color:grey">@ empty cell = -1</span> 01 n SQ ~~1 -~~ '''FOR''' j OVER j PUT DUP2 SWAP step ADD '''IF IFERR''' GET '''THEN''' DROP2 1 '''ELSE''' -1 ≠ '''END''' <span style="color:grey">@ if next step is out of border or an already written cell</span> '''THEN''' step ~~EVAL~~REVLIST ~~R→C~~{ 1 ~~(0,~~-1) } ~~C→R 2 →LIST~~ 'step' STO '''END''' <span style="color:grey">@ then turn right</span> SWAP step ADD SWAP '''NEXT'''