script.pl

@@ -3,14 +3,13 @@ use v5.32;
 use HTML::TableExtract;
 use File::Slurp;
 use Data::Dumper;
+use List::Util qw(sum);
 use Text::SimpleTable::AutoWidth;
 use WWW::Mechanize ();
-use List::AllUtils qw/ sum pairmap /;
-use List::UtilsBy  qw/ nsort_by partition_by /;
 
 use experimental qw/ signatures /;
 
-unless (caller) {
+unless(caller) {
     my $ts = get_mersenne_results();
 
     generate_output_table($ts)->draw;
@@ -23,12 +22,8 @@ sub get_mersenne_results() {
 
     my $mech = WWW::Mechanize->new;
 
-    my $url = join '?', 'https://www.mersenne.org/results/',
+    my $url =
-        join '&', 
+      'https://www.mersenne.org/results/?extf=1&exp1=1&execm=1&excert=1&exp_lo=2&exp_hi=&limit=10000';
-        pairmap { join '=', $a, $b } 
-        exp_lo => 2,
-        limit => 10_000,
-        map { $_ => 1 } qw/ extf exp1 execm excert /;
 
     $mech->get($url);
 
@@ -45,38 +40,53 @@ sub get_mersenne_results() {
     return extract_first_table($html_string);
 }
 
-sub extract_first_table ($html) {
+sub extract_first_table($html) {
-    return HTML::TableExtract
+    $html =~ s/\n//g;
-        ->new( depth => 0, count => 2 )
+
-        ->parse( $html =~ s/\n//gr )
+    my $te = HTML::TableExtract->new( depth => 0, count => 2 );
-        ->first_table_found;
+
+    $te->parse($html);
+
+    return $te->first_table_found;
+
 }
 
 sub generate_output_table ($ts) {
 
+# group GHZ Days results by computer, compute GHZ Days per Day (GHZ Days / Days)
+    my $list;
+
+    foreach my $row ( $ts->rows ) {
+        foreach my $cell ($row) {
+            my $machine  = @$cell[0];
+            my $ghz_days = @$cell[6];
+            $ghz_days =~ s/\s//g;
+            my $days = @$cell[4];
+            $days =~ s/\s//g;
+
+            if ( $days > 0 ) {
+                my $perf = $ghz_days / $days;
+                push( @{ $list->{$machine} }, $perf );
+            }
+        }
+    }
+
+    # create hash with each comptuer and its average GHz Days per day
+    my %ranks;
+    foreach my $key ( keys %$list ) {
+        my $mean    = sum( @{ $list->{$key} } ) / @{ $list->{$key} };
+        my $rounded = int( $mean + 0.5 );
+        $ranks{$key} = $rounded;
+    }
+
+    # sort hash by the average and print to screen
     my $tbl = Text::SimpleTable::AutoWidth->new(
         captions => [qw/ Computer GHZDaysPerDay /] );
 
-    # group GHZ Days results by computer, compute GHZ Days per Day (GHZ Days / Days)
+    foreach
-    $tbl->row(@$_) for 
+      my $key ( reverse sort { $ranks{$a} <=> $ranks{$b} } keys(%ranks) ) {
-        reverse
+        $tbl->row( $key, $ranks{$key} );
-        nsort_by { $_->[1] } 
-        pairmap { [ $a, $b ] } # group for the sorting
-        pairmap { $a => sprintf "%.0f", sum(@$b) / @$b } # take the mean
-        pairmap { 
-            # calculate our stats
-            $a => [ map { $_->{ghz_days} / $_->{days} } @$b ] 
     }
-        partition_by { $_->{machine} } # group by machine
-        grep { $_->{days} > 0 } # skip entries with no days
-        map {  # get the info
-            my $machine  = $_->[0];
-            my $days     = $_->[4] =~ s/\s//gr;
-            my $ghz_days = $_->[6] =~ s/\s//gr;
-
-            +{ days => $days, ghz_days => $ghz_days, machine => $machine }
-        } 
-        $ts->rows;
 
     return $tbl;
 }

t/basic.t

@@ -1,12 +0,0 @@
-use v5.32.0;
-
-use Test2::V0;
-use Path::Tiny;
-
-require './script.pl';
-
-my $input = path('./sample.html')->slurp;
-
-like generate_output_table( extract_first_table($input) )->draw => qr/lonestar/;
-
-done_testing();