Matrix with two diagonals: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Draco) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 398: | Line 398: | ||
1 0 0 0 0 0 1 |
1 0 0 0 0 0 1 |
||
</pre> |
</pre> |
||
=={{header|BCPL}}== |
|||
<lang bcpl>get "libhdr" |
|||
let diagonals(size) be |
|||
for y = 1 to size |
|||
for x = 1 to size |
|||
do writef("%C%C", |
|||
x=y | size-x=y-1 -> '1', '0', |
|||
x=size -> '*N', ' ') |
|||
let start() be |
|||
$( diagonals(9) |
|||
wrch('*N') |
|||
diagonals(10) |
|||
$)</lang> |
|||
{{out}} |
|||
<pre>1 0 0 0 0 0 0 0 1 |
|||
0 1 0 0 0 0 0 1 0 |
|||
0 0 1 0 0 0 1 0 0 |
|||
0 0 0 1 0 1 0 0 0 |
|||
0 0 0 0 1 0 0 0 0 |
|||
0 0 0 1 0 1 0 0 0 |
|||
0 0 1 0 0 0 1 0 0 |
|||
0 1 0 0 0 0 0 1 0 |
|||
1 0 0 0 0 0 0 0 1 |
|||
1 0 0 0 0 0 0 0 0 1 |
|||
0 1 0 0 0 0 0 0 1 0 |
|||
0 0 1 0 0 0 0 1 0 0 |
|||
0 0 0 1 0 0 1 0 0 0 |
|||
0 0 0 0 1 1 0 0 0 0 |
|||
0 0 0 0 1 1 0 0 0 0 |
|||
0 0 0 1 0 0 1 0 0 0 |
|||
0 0 1 0 0 0 0 1 0 0 |
|||
0 1 0 0 0 0 0 0 1 0 |
|||
1 0 0 0 0 0 0 0 0 1</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |