Four sides of square: Difference between revisions
→{{header|Perl}}
(Corrected order) |
|||
Line 476:
squareonesapp(8)
</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}}==
|