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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
#!/usr/bin/env perl
use strict;
use warnings;
while (<>) {
chomp;
@_ = split /,/;
$_{$_[1]}{$_[0]} = $_[2];
}
our @benchmarks = qw(
fib
parse_int
quicksort
mandel
pi_sum
rand_mat_stat
rand_mat_mul
);
our $julia_ver = `julia -v | cut -f3 -d" "`;
our $fortran_ver = `gfortran-4.8 -v 2>&1 | grep "gcc version" | cut -f3 -d" "`;
our $python_ver = `python -V 2>&1 | cut -f2 -d" "`;
our $matlab_ver = `matlab -nodisplay -nojvm -nosplash -r "version -release, quit" | tail -n 3 | head -n 1`;
our $R_ver = `R --version | grep "R version" | cut -f3 -d" "`;
our $octave_ver = `octave -v | grep version | cut -f4 -d" "`;
our $go_ver = `go version | cut -f3 -d" "`;
our $lua_ver = `gsl-shell -v 2>&1 | grep Shell | cut -f3 -d" " | cut -f1 -d,`;
our $javascript_ver = `nodejs -e "console.log(process.versions.v8)"`;
our $mathematica_ver = `echo quit | math -version | head -n 1 | cut -f2 -d" "`;
our $stata_ver = `stata -q -b version && grep version stata.log | cut -f2 -d" " && rm stata.log`;
our $java_ver = `java -version 2>&1 |grep "version" | cut -f 3 -d " " | cut -c 2-9`;
our %systems = (
"fortran" => ["Fortran" , "gcc $fortran_ver" ],
"julia" => ["Julia" , $julia_ver ],
"python" => ["Python" , $python_ver ],
"matlab" => ["Matlab" , "R$matlab_ver" ],
"octave" => ["Octave" , $octave_ver ],
"r" => ["R" , $R_ver ],
"javascript" => ["JavaScript" , "V8 $javascript_ver" ],
"go" => ["Go" , $go_ver ],
"mathematica"=> ["Mathe-matica" , $mathematica_ver ],
"lua" => ["LuaJIT" , "gsl-shell $lua_ver" ],
"stata" => ["Stata" , $stata_ver ],
"java" => ["Java" , $java_ver ],
);
our @systems = qw(fortran julia python r matlab octave mathematica javascript go lua java);
print qq[<table class="benchmarks">\n];
print qq[<colgroup>\n];
print qq[<col class="name"></col>\n];
printf qq[<col class="relative" span="%d"></col>\n], scalar(@systems);
print qq[</colgroup>\n];
print qq[<thead>\n];
print qq[<tr>];
print qq[<td></td>];
print qq[<th class="system">$systems{$_}[0]</th>] for @systems;
print qq[</tr>\n];
print qq[<tr>];
print qq[<td></td>];
print qq[<td class="version">$systems{$_}[1]</td>] for @systems;
print qq[</tr>\n];
print qq[</thead>\n];
print qq[<tbody>\n];
for my $benchmark (@benchmarks) {
print qq[<tr>];
print qq[<th>$benchmark</th>];
for my $system (@systems) {
printf qq[<td class="data">%.2f</td>], $_{$benchmark}{$system}/$_{$benchmark}{'c'};
}
print qq[</tr>\n];
}
print qq[</tbody>\n];
print qq[</table>\n];
|
