Spiral matrix: Difference between revisions

Spiral matrix (view source)

819 bytes added , 2 months ago

m

1,150

edits

Revision as of 19:48, 10 February 2024 (view source) Chkas (talk \| contribs) m (→‎{{header\|EasyLang}}) ← Older edit		Latest revision as of 07:46, 11 March 2024 (view source) Aerobar (talk \| contribs) m (→‎{{header\|RPL}}: typo)
(3 intermediate revisions by the same user not shown)
Line 4,918: [http://keptarhely.eu/view.php?file=20220218v00xuh6r2.jpeg Spiral matrix] =={{header\|RPL}}== {{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> 1 n SQ '''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 REVLIST { 1 -1 } * 'step' STO '''END''' <span style="color:grey">@ then turn right</span> SWAP step ADD SWAP '''NEXT''' » » '<span style="color:blue">SPIRAL</span>' STO 5 <span style="color:blue">SPIRAL</span> {{out}} <pre> 1: [[1 2 3 4 5] [16 17 18 19 6] [15 24 25 20 7] [14 23 22 21 8] [13 12 11 10 9]] </pre> =={{header\|Ruby}}==