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}}== |