Skip to content

Instantly share code, notes, and snippets.

@leto
Created October 2, 2016 03:23
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save leto/74463cba03b329856a40cdd4682a4417 to your computer and use it in GitHub Desktop.
Save leto/74463cba03b329856a40cdd4682a4417 to your computer and use it in GitHub Desktop.
#!/usr/bin/perl -w
use strict;
use Math::GSL::Matrix qw(:all);
my @matrices;
sub foo()
{
print "allocating another 1000 x 1000 matrix\n";
push @matrices, Math::GSL::Matrix->new(1000, 1000);
}
for (my $i = 0 ; $i < 100000 ; ++$i)
{
foo();
sleep(1);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment