Fix bugs in speedups and stddev

Author: Yiannis Tsiouris

run.sh

@@ -77,7 +77,7 @@ collect_results ()
         > results/runtime.res
     pr -m -t results/runtime_beam.res results/runtime_hipe.res \
         results/runtime_erllvm.res \
-        | gawk '{print $1 "\t" $2/$4 "\t" $4/$6 "\t\t" $2 "\t" $4 "\t" $6}' \
+        | gawk '{print $1 "\t" $2/$6 "\t" $4/$6 "\t\t" $2 "\t" $4 "\t" $6}' \
         >> results/runtime.res
     ## Print average performance results of current execution:
     awk '{btl += $2; htl += $3} END {print "Runtime BTL:", btl/(NR-1), \

stats.erl

@@ -100,5 +100,5 @@ std_dev(Values) ->
             Avg = avg(Values),
             Sums = lists:foldl(
                      fun(V, Acc) -> D = V - Avg, Acc + (D * D) end, 0, Values),
-            math:sqrt(Sums / L - 1.0)
+            math:sqrt(Sums / (L - 1))
     end.