1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
use lib 'lib';
use Graph;
use Devel::Size qw(size total_size);
my $N = 16384;
my $fmt = "%5s %8s %9s\n";
my $fmr = "%5d %8d %9.1f\n";
printf $fmt, "V", "S", "S/N";
my $g0 = Graph->new;
my $s0 = total_size($g0);
printf $fmr, 0, $s0, 0;
my $vr;
for (my $n = 1; $n <= $N; $n *= 2) {
my $g0 = Graph->new;
$g0->add_vertex($_) for 1..$n;
my $s = total_size($g0);
$vr = ($s - $s0) / $n;
printf $fmr, $n, $s, $vr;
}
printf $fmt, "E", "S", "S/N";
my $g1 = Graph->new;
printf $fmr, 0, $s0, 0;
my $er;
for (my $n = 1; $n <= $N; $n *= 2) {
my $g1 = Graph->new;
$g1->add_edge(0, $_) for 1..$n;
my $s = total_size($g1);
$er = ($s - $s0 - $n * $vr) / $n;
printf $fmr, $n, $s, $er;
}
printf "Vertices / MB = %8.1f\n", 1048576/$vr;
printf "Edges / MB = %8.1f\n", 1048576/$er;
|
