OFFSET
0,1
EXAMPLE
{1},
{0, 1},
{0, 0, 1},
{1, 1, 0, 1},
{1, 0, 1, 0, 1},
{1, 1, 1, 1, 1, 1},
{0, 1, 0, 1, 0, 1, 1},
{0, 0, 1, 1, 0, 0, 1, 1},
{0, 1, 1, 0, 1, 1, 0, 1, 1},
{1, 1, 0, 1, 1, 0, 1, 1, 1, 1},
{1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0}
MATHEMATICA
m = {{1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1},
{1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1},
{1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0},
{1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0},
{1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0},
{1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1},
{1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0},
{1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0},
{1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1},
{1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1},
{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}};
H = Transpose[m].IdentityMatrix[11];
b = Table[Table[H[[m, n - m + 1]], {m, n, 1, -1}], {n, 1, Length[H] - 1}];
Flatten[%]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Mar 05 2009
STATUS
approved