Four sides of square: Difference between revisions
Added Perl
(julia example) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 389:
squareonesapp(8)
</lang>
=={{header|Perl}}==
<lang perl>use strict;
use warnings;
use feature 'say';
my $n = 5;
say join ' ', @$_ for ([(1)x$n], (map { [1, (0)x($n-2), 1] } 0..$n-3), [(1)x$n]);</lang>
{{out}}
<pre>1 1 1 1 1
1 0 0 0 1
1 0 0 0 1
1 0 0 0 1
1 1 1 1 1</pre>
=={{header|Phix}}==
| |||