Four sides of square: Difference between revisions
Content added Content deleted
(julia example) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 389: | Line 389: | ||
squareonesapp(8) |
squareonesapp(8) |
||
</lang> |
</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}}== |
=={{header|Phix}}== |