9 "clisp" => "GNU CLisp",
17 "shell.dash" => "dash",
18 "shell.bash" => "GNU Bash",
19 "shell.zsh" => "Z Shell");
21 for my $l (keys %LISP) { $LABEL{"runlisp.$l"} = $LISP{$l}; }
28 return $d{$f} if exists $d{$f};
29 open my $fh, "<", "$f.bench";
30 (my $data = readline $fh) =~ s/^.* elapsed = ([0-9.]+)s.*$/$1/;
31 return $d{$f} = $data;
37 "Lisp system" "\\\\texttt{cl-launch}" "\\\\texttt{runlisp} (vanilla image)" "\\\\texttt{runlisp} (custom image)"
39 for my $l (sort keys %LISP) {
40 printf "\"%s\" %.4f %.4f %.4f\n",
42 timing("cl-launch.$l"),
43 timing("runlisp-noimage.$l"),
52 ("runlisp.ccl", "runlisp.clisp", "runlisp.cmucl", "runlisp.sbcl",
54 "shell.dash", "shell.bash", "shell.zsh",
56 { printf "\"%s\" %.4f\n", $LABEL{$i}, timing $i; }