diff options
26 files changed, 112 insertions, 52 deletions
diff --git a/challenge-340/deadmarshal/blog.txt b/challenge-340/deadmarshal/blog.txt new file mode 100644 index 0000000000..200c1283d3 --- /dev/null +++ b/challenge-340/deadmarshal/blog.txt @@ -0,0 +1 @@ +https://deadmarshal.blogspot.com/2025/09/twc340.html diff --git a/challenge-340/deadmarshal/perl/ch-1.pl b/challenge-340/deadmarshal/perl/ch-1.pl new file mode 100644 index 0000000000..bc592670ae --- /dev/null +++ b/challenge-340/deadmarshal/perl/ch-1.pl @@ -0,0 +1,19 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +sub duplicate_removals{ + my ($str) = @_; + while(1) { + my $c = 0; + $str =~ s/(.)\1//g and $c = 1; + last unless $c + } + $str +} + +printf "%s\n",duplicate_removals('abbaca'); +printf "%s\n",duplicate_removals('azxxzy'); +printf "%s\n",duplicate_removals('aaaaaaaa'); +printf "%s\n",duplicate_removals('aabccba'); +printf "%s\n",duplicate_removals('abcddcba') diff --git a/challenge-340/deadmarshal/perl/ch-2.pl b/challenge-340/deadmarshal/perl/ch-2.pl new file mode 100644 index 0000000000..d318ff1687 --- /dev/null +++ b/challenge-340/deadmarshal/perl/ch-2.pl @@ -0,0 +1,21 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +sub is_ascending{ + foreach my $i(1..$#{$_[0]}) { + return 0 if $_[0]->[$i] <= $_[0]->[$i-1] + } + 1 +} + +sub ascending_numbers{ + my @arr = grep {/\d+/} split /\s+/,$_[0]; + is_ascending(\@arr) +} + +printf "%d\n",ascending_numbers('The cat has 3 kittens 7 toys 10 beds'); +printf "%d\n",ascending_numbers('Alice bought 5 apples 2 oranges 9 bananas'); +printf "%d\n",ascending_numbers('I ran 1 mile 2 days 3 weeks 4 months'); +printf "%d\n",ascending_numbers('Bob has 10 cars 10 bikes'); +printf "%d\n",ascending_numbers('Zero is 0 one is 1 two is 2'); diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 91f702353d..5c756f5f95 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -9,6 +9,20 @@ [ "Perl", 2 + ], + [ + "Blog", + 1 + ] + ], + "id" : "Ali Moradi", + "name" : "Ali Moradi" + }, + { + "data" : [ + [ + "Perl", + 2 ] ], "id" : "Andreas Mahnke", @@ -385,6 +399,11 @@ "colorByPoint" : 1, "data" : [ { + "drilldown" : "Ali Moradi", + "name" : "Ali Moradi", + "y" : 3 + }, + { "drilldown" : "Andreas Mahnke", "name" : "Andreas Mahnke", "y" : 2 @@ -544,7 +563,7 @@ } ], "subtitle" : { - "text" : "[Champions: 31] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 32] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge - 340" diff --git a/stats/pwc-language-breakdown-2019.json b/stats/pwc-language-breakdown-2019.json index 8f68ee6467..263ab84291 100644 --- a/stats/pwc-language-breakdown-2019.json +++ b/stats/pwc-language-breakdown-2019.json @@ -970,7 +970,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:15:48 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2020.json b/stats/pwc-language-breakdown-2020.json index d25f89175f..4d0c9a07e7 100644 --- a/stats/pwc-language-breakdown-2020.json +++ b/stats/pwc-language-breakdown-2020.json @@ -1223,7 +1223,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:15:48 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2021.json b/stats/pwc-language-breakdown-2021.json index 71d62b1cc0..297d770a35 100644 --- a/stats/pwc-language-breakdown-2021.json +++ b/stats/pwc-language-breakdown-2021.json @@ -1223,7 +1223,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:15:48 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2022.json b/stats/pwc-language-breakdown-2022.json index 7f387b3455..ff30b6654e 100644 --- a/stats/pwc-language-breakdown-2022.json +++ b/stats/pwc-language-breakdown-2022.json @@ -1223,7 +1223,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:15:48 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2023.json b/stats/pwc-language-breakdown-2023.json index 3ea4d1b802..8f494ffa8c 100644 --- a/stats/pwc-language-breakdown-2023.json +++ b/stats/pwc-language-breakdown-2023.json @@ -1200,7 +1200,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:15:48 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2024.json b/stats/pwc-language-breakdown-2024.json index 22aa5c7710..e6c8557a83 100644 --- a/stats/pwc-language-breakdown-2024.json +++ b/stats/pwc-language-breakdown-2024.json @@ -1246,7 +1246,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:15:48 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2025.json b/stats/pwc-language-breakdown-2025.json index 8d6b876bfd..822b441481 100644 --- a/stats/pwc-language-breakdown-2025.json +++ b/stats/pwc-language-breakdown-2025.json @@ -8,7 +8,7 @@ "data" : [ [ "Perl", - 45 + 47 ], [ "Raku", @@ -16,7 +16,7 @@ ], [ "Blog", - 10 + 11 ] ], "id" : "340", @@ -709,7 +709,7 @@ { "drilldown" : "340", "name" : "340", - "y" : 78 + "y" : 81 }, { "drilldown" : "339", @@ -901,7 +901,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:15:48 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 3d52eda18d..c25a289368 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -10,7 +10,7 @@ "data" : [ [ "Perl", - 17529 + 17531 ], [ "Raku", @@ -18,7 +18,7 @@ ], [ "Blog", - 6282 + 6283 ] ], "dataLabels" : { @@ -37,7 +37,7 @@ } ], "subtitle" : { - "text" : "Last updated at 2025-09-29 00:15:48 GMT" + "text" : "Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge Contributions [2019 - 2025]" diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json index 687f3c9b50..19188445a2 100644 --- a/stats/pwc-leaders.json +++ b/stats/pwc-leaders.json @@ -345,18 +345,8 @@ { "data" : [ [ - "Raku", - 471 - ] - ], - "id" : "Jan Krnavek", - "name" : "Jan Krnavek" - }, - { - "data" : [ - [ "Perl", - 259 + 261 ], [ "Raku", @@ -364,7 +354,7 @@ ], [ "Blog", - 94 + 95 ] ], "id" : "Ali Moradi", @@ -373,6 +363,16 @@ { "data" : [ [ + "Raku", + 471 + ] + ], + "id" : "Jan Krnavek", + "name" : "Jan Krnavek" + }, + { + "data" : [ + [ "Perl", 184 ], @@ -900,14 +900,14 @@ "y" : 982 }, { - "drilldown" : "Jan Krnavek", - "name" : "22: Jan Krnavek", + "drilldown" : "Ali Moradi", + "name" : "22: Ali Moradi", "y" : 942 }, { - "drilldown" : "Ali Moradi", - "name" : "23: Ali Moradi", - "y" : 936 + "drilldown" : "Jan Krnavek", + "name" : "23: Jan Krnavek", + "y" : 942 }, { "drilldown" : "Packy Anderson", @@ -1049,7 +1049,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the score breakdown. Last updated at 2025-09-29 00:15:48 GMT" + "text" : "Click the columns to drilldown the score breakdown. Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "Team Leaders (TOP 50)" diff --git a/stats/pwc-summary-1-30.json b/stats/pwc-summary-1-30.json index 7489b37b06..7d264db4b3 100644 --- a/stats/pwc-summary-1-30.json +++ b/stats/pwc-summary-1-30.json @@ -24,7 +24,7 @@ 2, 43, 93, - 259, + 261, 44, 13, 8, @@ -94,7 +94,7 @@ 0, 0, 13, - 94, + 95, 0, 32, 4, @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 30] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary-121-150.json b/stats/pwc-summary-121-150.json index 832b459ea8..ed434ce37d 100644 --- a/stats/pwc-summary-121-150.json +++ b/stats/pwc-summary-121-150.json @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 30] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary-151-180.json b/stats/pwc-summary-151-180.json index 6cdf4add7a..c2876e0631 100644 --- a/stats/pwc-summary-151-180.json +++ b/stats/pwc-summary-151-180.json @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 30] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary-181-210.json b/stats/pwc-summary-181-210.json index 8c4a9686cb..0ef49ce1bb 100644 --- a/stats/pwc-summary-181-210.json +++ b/stats/pwc-summary-181-210.json @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 30] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary-211-240.json b/stats/pwc-summary-211-240.json index 6b4ada8e2d..f30197d4e2 100644 --- a/stats/pwc-summary-211-240.json +++ b/stats/pwc-summary-211-240.json @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 30] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary-241-270.json b/stats/pwc-summary-241-270.json index 60f9f51363..725c457718 100644 --- a/stats/pwc-summary-241-270.json +++ b/stats/pwc-summary-241-270.json @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 30] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary-271-300.json b/stats/pwc-summary-271-300.json index e22fe4256c..2132a963e4 100644 --- a/stats/pwc-summary-271-300.json +++ b/stats/pwc-summary-271-300.json @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 30] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary-301-330.json b/stats/pwc-summary-301-330.json index e19e39001a..dcc8116ab4 100644 --- a/stats/pwc-summary-301-330.json +++ b/stats/pwc-summary-301-330.json @@ -109,7 +109,7 @@ } ], "subtitle" : { - "text" : "[Champions: 28] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 28] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary-31-60.json b/stats/pwc-summary-31-60.json index 9bb4ff5f0f..95cb5f080b 100644 --- a/stats/pwc-summary-31-60.json +++ b/stats/pwc-summary-31-60.json @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 30] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary-61-90.json b/stats/pwc-summary-61-90.json index e579b0023c..b4e35d699e 100644 --- a/stats/pwc-summary-61-90.json +++ b/stats/pwc-summary-61-90.json @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 30] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary-91-120.json b/stats/pwc-summary-91-120.json index d93c4b6876..16baf0ff99 100644 --- a/stats/pwc-summary-91-120.json +++ b/stats/pwc-summary-91-120.json @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 30] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary.json b/stats/pwc-summary.json index c232644a30..14ae95dedf 100644 --- a/stats/pwc-summary.json +++ b/stats/pwc-summary.json @@ -24,7 +24,7 @@ 1, 24, 48, - 130, + 131, 26, 9, 4, @@ -690,7 +690,7 @@ 0, 0, 7, - 94, + 95, 0, 23, 4, @@ -1009,7 +1009,7 @@ } ], "subtitle" : { - "text" : "[Champions: 328] Last updated at 2025-09-29 00:15:48 GMT" + "text" : "[Champions: 328] Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-yearly-language-summary.json b/stats/pwc-yearly-language-summary.json index b967e9adf1..8e3f202c0f 100644 --- a/stats/pwc-yearly-language-summary.json +++ b/stats/pwc-yearly-language-summary.json @@ -8,7 +8,7 @@ "data" : [ [ "Perl", - 1758 + 1760 ], [ "Raku", @@ -16,7 +16,7 @@ ], [ "Blog", - 695 + 696 ] ], "id" : "2025", @@ -151,7 +151,7 @@ { "drilldown" : "2025", "name" : "2025", - "y" : 3324 + "y" : 3327 }, { "drilldown" : "2024", @@ -188,7 +188,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:15:48 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-09-29 00:27:48 GMT" }, "title" : { "text" : "The Weekly Challenge Language" |