slides/growth.pl

   1 #!/usr/bin/perl
   2
   3 foreach my $x (10, 20, 30, 50, 100, 1000, 1000000) {
   4         my @d = (
   5                 log($x) / log(2),
   6                 $x,
   7                 $x * log($x) / log(2),
   8                 $x ** 2,
   9                 $x ** 3,
  10                 2 ** $x
  11         );
  12         @d = map { $_ / 1000000000 } @d;
  13         print $x, "\t&", join("\t&", @d), "\n";
  14 }