Four sides of square: Difference between revisions
Content added Content deleted
(Corrected order) |
|||
| Line 476: | Line 476: | ||
squareonesapp(8) |
squareonesapp(8) |
||
</lang> |
</lang> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>Manipulate[ArrayPad[ConstantArray[0, {1, 1} n - 1], 1, 1] // Grid, {n, 2, 20, 1}]</lang> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |
||