Four sides of square: Difference between revisions

Content added Content deleted
m (→‎Procedural: create separate section; improve comment)
(Added Quackery.)
Line 573: Line 573:
1 0 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 0 1
1 1 1 1 1 1 1 1 1 1</pre>
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}}==
=={{header|Raku}}==