Binary Look and Say

README.md

Go to magma calculator and paste the binary-look-and-say.magma code in the textarea.

binary-look-and-say.magma

n := 63;
m := MatrixAlgebra(Rationals(), 10) ! [
  0, 1, 0, 0, 0, 0, 0, 0, 0, 0,
  1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  0, 1, 0, 1, 0, 0, 0, 1, 0, 0,
  0, 0, 0, 1, 0, 1, 0, 0, 0, 0,
  0, 0, 1, 0, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 1, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0, 1, 0, 0, 0, 1,
  0, 0, 0, 0, 0, 0, 0, 1, 0, 1,
  0, 0, 0, 0, 0, 0, 1, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 1, 0
];
weight := Matrix(Rationals(), 1, 10, [1, 2, 1, 2, 3, 4, 1, 2, 3, 4]);

column := ColumnSubmatrix(m^n,1);
weight * column;