Four sides of square: Difference between revisions
added AWK
SqrtNegInf (talk | contribs) (Added Perl) |
Catskill549 (talk | contribs) (added AWK) |
||
Line 78:
draw square( 7 )
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>
{{out}}
| |||