Four sides of square: Difference between revisions
Added Quackery.
m (→Procedural: create separate section; improve comment) |
(Added Quackery.) |
||
Line 573:
1 0 0 0 0 0 0 0 0 1
1 1 1 1 1 1 1 1 1 1</pre>
=={{header|Quackery}}==
<lang Quackery> [ 0 over 2 - of
1 tuck join join nested
over 2 - of
1 rot of
nested tuck join join ] is four-sides ( n --> [ )
8 four-sides
witheach
[ witheach [ echo sp ]
cr ]
cr
9 four-sides
witheach
[ witheach [ echo sp ]
cr ]</lang>
{{out}}
<pre>1 1 1 1 1 1 1 1
1 0 0 0 0 0 0 1
1 0 0 0 0 0 0 1
1 0 0 0 0 0 0 1
1 0 0 0 0 0 0 1
1 0 0 0 0 0 0 1
1 0 0 0 0 0 0 1
1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 1 1 1 1 1 1 1 1
</pre>
=={{header|Raku}}==
| |||