#!/usr/bin/perl use strict; use warnings; my @presets = (); my %presets = (); my $maxval = 0; while (<>) { chomp; if (/^(.*)(#.*): ([\d\.]+)$/) { push @presets, $1 unless defined $presets{$1}; push @{$presets{$1}}, $3; $maxval = $3 if $maxval < $3; } } print < Puzzle generation-time benchmarks

Puzzle generation-time benchmarks

EOF for my $preset (@presets) { print "\n"; } print < EOF sub escape { my ($text) = @_; $text =~ s/&/&/g; $text =~ s//>/g; return $text; }
Preset
", &escape($preset), " $b } @{$presets{$preset}}; print "]\" data-scale=\"$maxval\">