SLISW - IO - 2.5

SLISW-IO-2.5.io

Matrix := Object clone

Matrix dim := method(x, y, 
  self matrix := list(); 
  for(1, 0, x - 1, 1, 
    row := list();
    for(1, 0, y - 1, row push(0));
    matrix push(row)
  )
)

Matrix set := method(x, y, value, 
  self matrix at(x) atPut(y, value)
)

Matrix get := method(x, y,
  self matrix at(x) at(y)
)

Matrix transpose := method(
  transposed := Matrix clone;
  transposed dim(self matrix at(0) size, self matrix size)
  for(r, 0, self matrix size - 1, 1,
    for(c, 0, self matrix at(r) size - 1, 1,
        transposed set(c, r, self matrix at(r) at(c))
    )
  )
  return transposed;
)

Matrix show := method(
  self matrix map(row, row println)
)

Matrix showThis := method(matrix,
  matrix map(row, row println)
)