Four sides of square: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl) |
Catskill549 (talk | contribs) (added AWK) |
||
Line 78: | Line 78: | ||
draw square( 7 ) |
draw square( 7 ) |
||
END |
END |
||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
1 1 1 1 1 1 |
|||
1 0 0 0 0 1 |
|||
1 0 0 0 0 1 |
|||
1 0 0 0 0 1 |
|||
1 0 0 0 0 1 |
|||
1 1 1 1 1 1 |
|||
1 1 1 1 1 1 1 |
|||
1 0 0 0 0 0 1 |
|||
1 0 0 0 0 0 1 |
|||
1 0 0 0 0 0 1 |
|||
1 0 0 0 0 0 1 |
|||
1 0 0 0 0 0 1 |
|||
1 1 1 1 1 1 1 |
|||
</pre> |
|||
=={{header|AWK}}== |
|||
<lang AWK> |
|||
# syntax: GAWK -f FOUR_SIDES_OF_SQUARE.AWK |
|||
BEGIN { |
|||
for (n=6; n<=7; n++) { |
|||
for (i=1; i<=n; i++) { |
|||
for (j=1; j<=n; j++) { |
|||
tmp = (i==1 || i==n || j==1 || j==n) ? 1 : 0 |
|||
printf("%2d",tmp) |
|||
} |
|||
printf("\n") |
|||
} |
|||
print("") |
|||
} |
|||
exit(0) |
|||
} |
|||
</lang> |
</lang> |
||
{{out}} |
{{out}} |