Optimize the speed.

See https://en.wikibooks.org/wiki/Optimizing_Code_for_Speed . There may have been some refactorings too.
shlomif · Dec 4, 2024 · eea1a41 · eea1a41
1 parent 42e783d
commit eea1a41
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/cpan/Games-Solitaire-Verify/benchmark/gen-par-mak.pl b/cpan/Games-Solitaire-Verify/benchmark/gen-par-mak.pl
@@ -8,14 +8,15 @@
 
 my $MIN  = 1;
 my $MAX  = 32_000;
-my $STEP = 100;
+my $STEP = 400;
 
 my $ARGS = +{
     cmd => qq#perl benchmark-no-backticks.pl -- -l lg -ni -l fg#,
     min => $MIN,
     max => ( $MAX / $STEP ),
     res => sub {
-        return "Results/" . shift . ".res";
+        my ($start) = @_;
+        return "Results/${start}.res";
     },
     step => $STEP,
 };

diff --git a/cpan/Games-Solitaire-Verify/benchmark/sanity-test.pl b/cpan/Games-Solitaire-Verify/benchmark/sanity-test.pl
@@ -56,6 +56,6 @@ sub _cleanup
     }
 }
 continue { ++$i; }
-Carp::confess() if $i ne 101;
+Carp::confess() if $i ne 401;
 _cleanup();
 unlink( "build.ninja", "par2.mak" );