Ticket #872: ticket_19.LostInstances.tol

//////////////////////////////////////////////////////////////////////////////

Class @Sample {
  Matrix _.sample = Rand(1000,1,0,1);
  Real GetAverage(Real void) {
    MatAvr(_.sample)
  }
};
// Nota: si se compila y decompila este archivo, debido a los objetos
// de tipo @Sample que se pierden por la concatenación de varios "::"
// esta clase no se decompilará y no hará falta volver a crearla.
// Basta con comentar su definición.
// A propósito, ¿hay alguna manera de saber si una clase está definida?

NameBlock SampleCreator = [[
  @Sample CreateSample(Real void) { @Sample new }
]];

//////////////////////////////////////////////////////////////////////////////
// (1) Ejemplo1: 
// Se llama mil veces al creador de "samples" pidiéndole el promedio.
// Las instancias de los @Sample no se destruyen aumentando la memoria.

Real mem01 = MemoryStatus(?)[3];

Set For(1, 1000, Real (Real i) {
  Real SampleCreator::CreateSample(?)::GetAverage(?);
  0
});

Real mem02 = MemoryStatus(?)[3];
WriteLn("Memoria usada aproximadamente: "<<(Real (mem01-mem02)/1024));

//////////////////////////////////////////////////////////////////////////////
// (2) Ejemplo2: 
// Se llama mil veces al creador de "samples" pidiéndole el promedio.
// Pero se evita concatenar varios "::".
// Las instancias de los @Sample se destruyen y no hacen aumentar la memoria.

Set For(1, 1000, Real (Real i) {
  NameBlock sample = SampleCreator::CreateSample(?);
  Real sample::GetAverage(?);
  0
});

Real mem03 = MemoryStatus(?)[3];
WriteLn("Memoria usada aproximadamente: "<<(Real (mem02-mem03)/1024));

//////////////////////////////////////////////////////////////////////////////