Minimum number of cells after, before, above and below NxN squares: Difference between revisions
Minimum number of cells after, before, above and below NxN squares (view source)
Revision as of 16:50, 15 November 2021
, 2 years agoAdd BCPL
Not a robot (talk | contribs) (Add J) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 203:
│ │ │ │0 0 0 0 0 0 0 0 0 0│
└───┴─────┴─────────────────┴───────────────────┘</pre>
=={{header|BCPL}}==
<lang bcpl>get "libhdr"
let min(a,b) = a<b -> a, b
let minNbyN(n, cw) be
for y=0 to n-1
$( for x=0 to n-1 do
writed(min(x, min(n-x-1, min(y, n-y-1))), cw)
wrch('*N')
$)
let start() be minNbyN(10, 3)</lang>
{{out}}
<pre> 0 0 0 0 0 0 0 0 0 0
0 1 1 1 1 1 1 1 1 0
0 1 2 2 2 2 2 2 1 0
0 1 2 3 3 3 3 2 1 0
0 1 2 3 4 4 3 2 1 0
0 1 2 3 4 4 3 2 1 0
0 1 2 3 3 3 3 2 1 0
0 1 2 2 2 2 2 2 1 0
0 1 1 1 1 1 1 1 1 0
0 0 0 0 0 0 0 0 0 0</pre>
=={{header|BQN}}==
Line 222 ⟶ 247:
┘
┘</pre>
=={{header|C}}==
{{trans|FreeBASIC}}
|