aboutsummaryrefslogtreecommitdiff
path: root/challenge-199
diff options
context:
space:
mode:
authorJörg Sommrey <28217714+jo-37@users.noreply.github.com>2023-01-18 17:35:35 +0100
committerJörg Sommrey <28217714+jo-37@users.noreply.github.com>2023-01-18 17:41:33 +0100
commit45bfa9e1ca29c855329c43f51220c2ad991dbd24 (patch)
tree40cb8e62e81e7d0919f3c2bf366f51dbeccb4280 /challenge-199
parent952f98a3d4e479992cd18e544ebb441a952f7159 (diff)
downloadperlweeklychallenge-club-45bfa9e1ca29c855329c43f51220c2ad991dbd24.tar.gz
perlweeklychallenge-club-45bfa9e1ca29c855329c43f51220c2ad991dbd24.tar.bz2
perlweeklychallenge-club-45bfa9e1ca29c855329c43f51220c2ad991dbd24.zip
Add solution to James Smith's benchmarks for challenge 199/2
Diffstat (limited to 'challenge-199')
-rwxr-xr-xchallenge-199/jo-37/perl/ch-2.pl16
1 files changed, 16 insertions, 0 deletions
diff --git a/challenge-199/jo-37/perl/ch-2.pl b/challenge-199/jo-37/perl/ch-2.pl
index 292be9b25e..ef5a11b322 100755
--- a/challenge-199/jo-37/perl/ch-2.pl
+++ b/challenge-199/jo-37/perl/ch-2.pl
@@ -83,3 +83,19 @@ sub run_tests {
done_testing;
exit;
}
+
+__DATA__
+
+Out of curiosity, rerun James Smith's benchmarks with this
+implementation added. See
+https://github.com/manwar/perlweeklychallenge-club/blob/master/challenge-199/james-smith/perl/ch-2.pl
+
+ Rate naive opt range_1 copy_1 copy_2 range_2 fastest pdl
+naive 21.5/s -- -49% -52% -53% -56% -64% -84% -90%
+opt 41.9/s 95% -- -7% -8% -13% -29% -70% -81%
+range_1 45.1/s 110% 8% -- -1% -7% -24% -67% -79%
+copy_1 45.8/s 113% 9% 1% -- -5% -22% -67% -79%
+copy_2 48.4/s 125% 15% 7% 6% -- -18% -65% -78%
+range_2 59.0/s 174% 41% 31% 29% 22% -- -57% -73%
+fastest 138/s 543% 230% 207% 202% 186% 134% -- -36%
+pdl 218/s 912% 419% 382% 375% 350% 269% 57% --