From 82321caa0fa61341410bbafe4f86882c67e922ef Mon Sep 17 00:00:00 2001 From: Mohammad Sajid Anwar Date: Sun, 10 Aug 2025 14:41:30 +0100 Subject: - Added solutions by Bob Lied. --- challenge-333/bob-lied/blog.txt | 1 + challenge-333/bob-lied/ch-1.pl | 61 --------------- challenge-333/bob-lied/ch-2.pl | 120 ------------------------------ challenge-333/bob-lied/perl/ch-1.pl | 61 +++++++++++++++ challenge-333/bob-lied/perl/ch-2.pl | 120 ++++++++++++++++++++++++++++++ stats/pwc-current.json | 10 ++- stats/pwc-language-breakdown-2019.json | 2 +- stats/pwc-language-breakdown-2020.json | 2 +- stats/pwc-language-breakdown-2021.json | 2 +- stats/pwc-language-breakdown-2022.json | 2 +- stats/pwc-language-breakdown-2023.json | 2 +- stats/pwc-language-breakdown-2024.json | 2 +- stats/pwc-language-breakdown-2025.json | 8 +- stats/pwc-language-breakdown-summary.json | 6 +- stats/pwc-leaders.json | 8 +- stats/pwc-summary-1-30.json | 2 +- stats/pwc-summary-121-150.json | 2 +- stats/pwc-summary-151-180.json | 2 +- stats/pwc-summary-181-210.json | 2 +- stats/pwc-summary-211-240.json | 2 +- stats/pwc-summary-241-270.json | 2 +- stats/pwc-summary-271-300.json | 2 +- stats/pwc-summary-301-330.json | 2 +- stats/pwc-summary-31-60.json | 6 +- stats/pwc-summary-61-90.json | 2 +- stats/pwc-summary-91-120.json | 2 +- stats/pwc-summary.json | 4 +- stats/pwc-yearly-language-summary.json | 8 +- 28 files changed, 225 insertions(+), 220 deletions(-) create mode 100644 challenge-333/bob-lied/blog.txt delete mode 100644 challenge-333/bob-lied/ch-1.pl delete mode 100644 challenge-333/bob-lied/ch-2.pl create mode 100644 challenge-333/bob-lied/perl/ch-1.pl create mode 100644 challenge-333/bob-lied/perl/ch-2.pl diff --git a/challenge-333/bob-lied/blog.txt b/challenge-333/bob-lied/blog.txt new file mode 100644 index 0000000000..120b1695e7 --- /dev/null +++ b/challenge-333/bob-lied/blog.txt @@ -0,0 +1 @@ +https://dev.to/boblied/pwc-331-332-odd-last-date-letters-binary-word-list-buddy-ib6 diff --git a/challenge-333/bob-lied/ch-1.pl b/challenge-333/bob-lied/ch-1.pl deleted file mode 100644 index b049e22a70..0000000000 --- a/challenge-333/bob-lied/ch-1.pl +++ /dev/null @@ -1,61 +0,0 @@ -#!/usr/bin/env perl -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -#============================================================================= -# Copyright (c) 2025, Bob Lied -#============================================================================= -# ch-1.pl Perl Weekly Challenge 333 Task 1 Straight Line -#============================================================================= -# You are given a list of co-ordinates. Write a script to find out if the -# given points make a straight line. -# Example 1 Input: @list = ([2, 1], [2, 3], [2, 5]) -# Output: true -# Example 2 Input: @list = ([1, 4], [3, 4], [10, 4]) -# Output: true -# Example 3 Input: @list = ([0, 0], [1, 1], [2, 3]) -# Output: false -# Example 4 Input: @list = ([1, 1], [1, 1], [1, 1]) -# Output: true -# Example 5 Input: @list = ([1000000, 1000000], [2000000, 2000000], [3000000, 3000000]) -# Output: true -#============================================================================= - -use v5.42; - - -use Getopt::Long; -my $DoTest = false; - -GetOptions("test" => \$DoTest); -#============================================================================= - -exit(!runTest()) if $DoTest; - -# Use as ch-1.pl 1,1 2,2 3,3 - -my @point = map { [split ',', $_] } @ARGV; -die "Need three points" unless @point == 3; - -say isLine(@point) ? "true" : "false"; - -#============================================================================= -## https://math.stackexchange.com/questions/701862/how-to-find-if-the-points-fall-in-a-straight-line-or-not -sub isLine(@point) -{ - my @x = map { $_->[0] } @point; - my @y = map { $_->[1] } @point; - - return ($y[1] - $y[0]) * ( $x[2] - $x[0] ) == ( $y[2] - $y[0] ) * ( $x[1] - $x[0] ) -} - -sub runTest -{ - use Test2::V0; - - is( isLine( [2,1],[2,3],[ 2,5] ), true, "Example 1"); - is( isLine( [1,4],[3,4],[10,4] ), true, "Example 2"); - is( isLine( [0,0],[1,1],[ 2,3] ), false, "Example 3"); - is( isLine( [1,1],[1,1],[ 1,1] ), true, "Example 4"); - is( isLine( [1000000, 1000000], [2000000, 2000000], [3000000, 3000000] ), true, "Example 5"); - - done_testing; -} diff --git a/challenge-333/bob-lied/ch-2.pl b/challenge-333/bob-lied/ch-2.pl deleted file mode 100644 index d05efc9a27..0000000000 --- a/challenge-333/bob-lied/ch-2.pl +++ /dev/null @@ -1,120 +0,0 @@ -#!/usr/bin/env perl -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -#============================================================================= -# Copyright (c) 2025, Bob Lied -#============================================================================= -# ch-2.pl Perl Weekly Challenge 333 Task 2 Duplicate Zeroes -#============================================================================= -# You are given an array of integers. Write a script to duplicate each -# occurrence of zero, shifting the remaining elements to the right. -# The elements beyond the length of the original array are not written. -# Example 1 Input: @ints = (1, 0, 2, 3, 0, 4, 5, 0) -# Output: (1, 0, 0, 2, 3, 0, 0, 4) -# Each zero is duplicated. -# Elements beyond the original length (like 5 and last 0) are discarded. -# Example 2 Input: @ints = (1, 2, 3) -# Output: (1, 2, 3) -# No zeros exist, so the array remains unchanged. -# Example 3 Input: @ints = (1, 2, 3, 0) -# Output: (1, 2, 3, 0) -# Example 4 Input: @ints = (0, 0, 1, 2) -# Output: (0, 0, 0, 0) -# Example 5 Input: @ints = (1, 2, 0, 3, 4) -# Output: (1, 2, 0, 0, 3) -#============================================================================= - -use v5.42; - - -use Getopt::Long; -my $Verbose = false; -my $DoTest = false; -my $Benchmark = 0; - -GetOptions("test" => \$DoTest, "verbose" => \$Verbose, "benchmark:i" => \$Benchmark); -my $logger; -{ - use Log::Log4perl qw(:easy); - Log::Log4perl->easy_init({ level => ($Verbose ? $DEBUG : $INFO ), - layout => "%d{HH:mm:ss.SSS} %p{1} %m%n" }); - $logger = Log::Log4perl->get_logger(); -} -#============================================================================= - -exit(!runTest()) if $DoTest; -exit( runBenchmark($Benchmark) ) if $Benchmark; - -say '(', join(", ", dupSplice(@ARGV)->@*), ')'; -# say '(', join(", ", dupCut(@ARGV)->@*), ')'; -#say '(', join(", ", duplicateZero(@ARGV)->@*), ')'; - -#============================================================================= -sub duplicateZero(@int) -{ - my @out; - my $length = @int; - while ( defined(my $n = shift @int) && @out < $length) - { - push @out, $n; - push @out, 0 if $n == 0 && @out < $length; - } - return \@out; -} - -sub dupCut(@int) -{ - my @out = map { $_ == 0 ? (0,0) : ($_) } @int; - splice(@out, scalar(@int) ); - return \@out; -} - -sub dupSplice(@int) -{ - my $length = @int; - for ( reverse 0 .. $#int ) - { - splice(@int, $_, 1, 0,0) if $int[$_] == 0; - } - splice(@int, $length); - return \@int; -} - -sub runTest -{ - use Test2::V0; - - is( duplicateZero( 1,0,2,3,0,4,5,0), [1,0,0,2,3,0,0,4], "Example 1"); - is( duplicateZero( 1,2,3 ), [1,2,3 ], "Example 2"); - is( duplicateZero( 1,2,3,0 ), [1,2,3,0 ], "Example 3"); - is( duplicateZero( 0,0,1,2 ), [0,0,0,0 ], "Example 4"); - is( duplicateZero( 1,2,0,3,4 ), [1,2,0,0,3 ], "Example 5"); - - is( dupCut( 1,0,2,3,0,4,5,0), [1,0,0,2,3,0,0,4], "Example 1 cut"); - is( dupCut( 1,2,3 ), [1,2,3 ], "Example 2 cut"); - is( dupCut( 1,2,3,0 ), [1,2,3,0 ], "Example 3 cut"); - is( dupCut( 0,0,1,2 ), [0,0,0,0 ], "Example 4 cut"); - is( dupCut( 1,2,0,3,4 ), [1,2,0,0,3 ], "Example 5 cut"); - - is( dupSplice( 1,0,2,3,0,4,5,0), [1,0,0,2,3,0,0,4], "Example 1 splice"); - is( dupSplice( 1,2,3 ), [1,2,3 ], "Example 2 splice"); - is( dupSplice( 1,2,3,0 ), [1,2,3,0 ], "Example 3 splice"); - is( dupSplice( 0,0,1,2 ), [0,0,0,0 ], "Example 4 splice"); - is( dupSplice( 1,2,0,3,4 ), [1,2,0,0,3 ], "Example 5 splice"); - - done_testing; -} - -sub runBenchmark($repeat) -{ - use Benchmark qw/cmpthese/; - - my @int = map { int(rand(20)) + 1 } 1 .. 100; - $int[$_] = 0 for map { int(rand(100)) } 1..10; - # my @int = (0) x 100; - - cmpthese($repeat, { - copy => sub { duplicateZero(@int) }, - cut => sub { dupCut(@int) }, - splice => sub { dupSplice(@int) }, - }); -} diff --git a/challenge-333/bob-lied/perl/ch-1.pl b/challenge-333/bob-lied/perl/ch-1.pl new file mode 100644 index 0000000000..b049e22a70 --- /dev/null +++ b/challenge-333/bob-lied/perl/ch-1.pl @@ -0,0 +1,61 @@ +#!/usr/bin/env perl +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +#============================================================================= +# Copyright (c) 2025, Bob Lied +#============================================================================= +# ch-1.pl Perl Weekly Challenge 333 Task 1 Straight Line +#============================================================================= +# You are given a list of co-ordinates. Write a script to find out if the +# given points make a straight line. +# Example 1 Input: @list = ([2, 1], [2, 3], [2, 5]) +# Output: true +# Example 2 Input: @list = ([1, 4], [3, 4], [10, 4]) +# Output: true +# Example 3 Input: @list = ([0, 0], [1, 1], [2, 3]) +# Output: false +# Example 4 Input: @list = ([1, 1], [1, 1], [1, 1]) +# Output: true +# Example 5 Input: @list = ([1000000, 1000000], [2000000, 2000000], [3000000, 3000000]) +# Output: true +#============================================================================= + +use v5.42; + + +use Getopt::Long; +my $DoTest = false; + +GetOptions("test" => \$DoTest); +#============================================================================= + +exit(!runTest()) if $DoTest; + +# Use as ch-1.pl 1,1 2,2 3,3 + +my @point = map { [split ',', $_] } @ARGV; +die "Need three points" unless @point == 3; + +say isLine(@point) ? "true" : "false"; + +#============================================================================= +## https://math.stackexchange.com/questions/701862/how-to-find-if-the-points-fall-in-a-straight-line-or-not +sub isLine(@point) +{ + my @x = map { $_->[0] } @point; + my @y = map { $_->[1] } @point; + + return ($y[1] - $y[0]) * ( $x[2] - $x[0] ) == ( $y[2] - $y[0] ) * ( $x[1] - $x[0] ) +} + +sub runTest +{ + use Test2::V0; + + is( isLine( [2,1],[2,3],[ 2,5] ), true, "Example 1"); + is( isLine( [1,4],[3,4],[10,4] ), true, "Example 2"); + is( isLine( [0,0],[1,1],[ 2,3] ), false, "Example 3"); + is( isLine( [1,1],[1,1],[ 1,1] ), true, "Example 4"); + is( isLine( [1000000, 1000000], [2000000, 2000000], [3000000, 3000000] ), true, "Example 5"); + + done_testing; +} diff --git a/challenge-333/bob-lied/perl/ch-2.pl b/challenge-333/bob-lied/perl/ch-2.pl new file mode 100644 index 0000000000..d05efc9a27 --- /dev/null +++ b/challenge-333/bob-lied/perl/ch-2.pl @@ -0,0 +1,120 @@ +#!/usr/bin/env perl +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +#============================================================================= +# Copyright (c) 2025, Bob Lied +#============================================================================= +# ch-2.pl Perl Weekly Challenge 333 Task 2 Duplicate Zeroes +#============================================================================= +# You are given an array of integers. Write a script to duplicate each +# occurrence of zero, shifting the remaining elements to the right. +# The elements beyond the length of the original array are not written. +# Example 1 Input: @ints = (1, 0, 2, 3, 0, 4, 5, 0) +# Output: (1, 0, 0, 2, 3, 0, 0, 4) +# Each zero is duplicated. +# Elements beyond the original length (like 5 and last 0) are discarded. +# Example 2 Input: @ints = (1, 2, 3) +# Output: (1, 2, 3) +# No zeros exist, so the array remains unchanged. +# Example 3 Input: @ints = (1, 2, 3, 0) +# Output: (1, 2, 3, 0) +# Example 4 Input: @ints = (0, 0, 1, 2) +# Output: (0, 0, 0, 0) +# Example 5 Input: @ints = (1, 2, 0, 3, 4) +# Output: (1, 2, 0, 0, 3) +#============================================================================= + +use v5.42; + + +use Getopt::Long; +my $Verbose = false; +my $DoTest = false; +my $Benchmark = 0; + +GetOptions("test" => \$DoTest, "verbose" => \$Verbose, "benchmark:i" => \$Benchmark); +my $logger; +{ + use Log::Log4perl qw(:easy); + Log::Log4perl->easy_init({ level => ($Verbose ? $DEBUG : $INFO ), + layout => "%d{HH:mm:ss.SSS} %p{1} %m%n" }); + $logger = Log::Log4perl->get_logger(); +} +#============================================================================= + +exit(!runTest()) if $DoTest; +exit( runBenchmark($Benchmark) ) if $Benchmark; + +say '(', join(", ", dupSplice(@ARGV)->@*), ')'; +# say '(', join(", ", dupCut(@ARGV)->@*), ')'; +#say '(', join(", ", duplicateZero(@ARGV)->@*), ')'; + +#============================================================================= +sub duplicateZero(@int) +{ + my @out; + my $length = @int; + while ( defined(my $n = shift @int) && @out < $length) + { + push @out, $n; + push @out, 0 if $n == 0 && @out < $length; + } + return \@out; +} + +sub dupCut(@int) +{ + my @out = map { $_ == 0 ? (0,0) : ($_) } @int; + splice(@out, scalar(@int) ); + return \@out; +} + +sub dupSplice(@int) +{ + my $length = @int; + for ( reverse 0 .. $#int ) + { + splice(@int, $_, 1, 0,0) if $int[$_] == 0; + } + splice(@int, $length); + return \@int; +} + +sub runTest +{ + use Test2::V0; + + is( duplicateZero( 1,0,2,3,0,4,5,0), [1,0,0,2,3,0,0,4], "Example 1"); + is( duplicateZero( 1,2,3 ), [1,2,3 ], "Example 2"); + is( duplicateZero( 1,2,3,0 ), [1,2,3,0 ], "Example 3"); + is( duplicateZero( 0,0,1,2 ), [0,0,0,0 ], "Example 4"); + is( duplicateZero( 1,2,0,3,4 ), [1,2,0,0,3 ], "Example 5"); + + is( dupCut( 1,0,2,3,0,4,5,0), [1,0,0,2,3,0,0,4], "Example 1 cut"); + is( dupCut( 1,2,3 ), [1,2,3 ], "Example 2 cut"); + is( dupCut( 1,2,3,0 ), [1,2,3,0 ], "Example 3 cut"); + is( dupCut( 0,0,1,2 ), [0,0,0,0 ], "Example 4 cut"); + is( dupCut( 1,2,0,3,4 ), [1,2,0,0,3 ], "Example 5 cut"); + + is( dupSplice( 1,0,2,3,0,4,5,0), [1,0,0,2,3,0,0,4], "Example 1 splice"); + is( dupSplice( 1,2,3 ), [1,2,3 ], "Example 2 splice"); + is( dupSplice( 1,2,3,0 ), [1,2,3,0 ], "Example 3 splice"); + is( dupSplice( 0,0,1,2 ), [0,0,0,0 ], "Example 4 splice"); + is( dupSplice( 1,2,0,3,4 ), [1,2,0,0,3 ], "Example 5 splice"); + + done_testing; +} + +sub runBenchmark($repeat) +{ + use Benchmark qw/cmpthese/; + + my @int = map { int(rand(20)) + 1 } 1 .. 100; + $int[$_] = 0 for map { int(rand(100)) } 1..10; + # my @int = (0) x 100; + + cmpthese($repeat, { + copy => sub { duplicateZero(@int) }, + cut => sub { dupCut(@int) }, + splice => sub { dupSplice(@int) }, + }); +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 42c2c1c740..2b868dea37 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -45,8 +45,12 @@ { "data" : [ [ - "Blog", + "Perl", 2 + ], + [ + "Blog", + 1 ] ], "id" : "Bob Lied", @@ -378,7 +382,7 @@ { "drilldown" : "Bob Lied", "name" : "Bob Lied", - "y" : 2 + "y" : 3 }, { "drilldown" : "Dave Jacoby", @@ -500,7 +504,7 @@ } ], "subtitle" : { - "text" : "[Champions: 27] Last updated at 2025-08-10 13:39:01 GMT" + "text" : "[Champions: 27] Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "The Weekly Challenge - 333" diff --git a/stats/pwc-language-breakdown-2019.json b/stats/pwc-language-breakdown-2019.json index 113a2e18a9..dded52359a 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-08-10 13:39:01 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2020.json b/stats/pwc-language-breakdown-2020.json index 9b2cc96588..8d2bbf4376 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-08-10 13:39:01 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2021.json b/stats/pwc-language-breakdown-2021.json index d73cf9f62c..e8b78bf7b7 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-08-10 13:39:01 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2022.json b/stats/pwc-language-breakdown-2022.json index 4674d8423d..9d5b080028 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-08-10 13:39:01 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2023.json b/stats/pwc-language-breakdown-2023.json index a5efe54203..cb74052eb0 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-08-10 13:39:01 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2024.json b/stats/pwc-language-breakdown-2024.json index b019086801..c97d041f3a 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-08-10 13:39:01 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-2025.json b/stats/pwc-language-breakdown-2025.json index 931f11d788..74cd538e8b 100644 --- a/stats/pwc-language-breakdown-2025.json +++ b/stats/pwc-language-breakdown-2025.json @@ -8,7 +8,7 @@ "data" : [ [ "Perl", - 40 + 42 ], [ "Raku", @@ -16,7 +16,7 @@ ], [ "Blog", - 24 + 23 ] ], "id" : "333", @@ -583,7 +583,7 @@ { "drilldown" : "333", "name" : "333", - "y" : 84 + "y" : 85 }, { "drilldown" : "332", @@ -740,7 +740,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-08-10 13:39:01 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "The Weekly Challenge Language" diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 4b9c55c304..a9297b0010 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -10,7 +10,7 @@ "data" : [ [ "Perl", - 17190 + 17192 ], [ "Raku", @@ -18,7 +18,7 @@ ], [ "Blog", - 6188 + 6187 ] ], "dataLabels" : { @@ -37,7 +37,7 @@ } ], "subtitle" : { - "text" : "Last updated at 2025-08-10 13:39:01 GMT" + "text" : "Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "The Weekly Challenge Contributions [2019 - 2025]" diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json index 87bd74642c..54f822b21b 100644 --- a/stats/pwc-leaders.json +++ b/stats/pwc-leaders.json @@ -428,11 +428,11 @@ "data" : [ [ "Perl", - 368 + 370 ], [ "Blog", - 45 + 44 ] ], "id" : "Bob Lied", @@ -927,7 +927,7 @@ { "drilldown" : "Bob Lied", "name" : "27: Bob Lied", - "y" : 826 + "y" : 828 }, { "drilldown" : "Robbie Hatley", @@ -1049,7 +1049,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the score breakdown. Last updated at 2025-08-10 13:39:01 GMT" + "text" : "Click the columns to drilldown the score breakdown. Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "Team Leaders (TOP 50)" diff --git a/stats/pwc-summary-1-30.json b/stats/pwc-summary-1-30.json index f354f2e039..8a63d60247 100644 --- a/stats/pwc-summary-1-30.json +++ b/stats/pwc-summary-1-30.json @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-08-10 13:39:01 GMT" + "text" : "[Champions: 30] Last updated at 2025-08-10 13:41:22 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 47b49c4efa..cd2c90f9a6 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-08-10 13:39:01 GMT" + "text" : "[Champions: 30] Last updated at 2025-08-10 13:41:22 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 7cbb60a27e..91a2fe88e1 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-08-10 13:39:01 GMT" + "text" : "[Champions: 30] Last updated at 2025-08-10 13:41:22 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 bf4c2aa521..e60a0a078b 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-08-10 13:39:01 GMT" + "text" : "[Champions: 30] Last updated at 2025-08-10 13:41:22 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 384c010980..1c8837babd 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-08-10 13:39:01 GMT" + "text" : "[Champions: 30] Last updated at 2025-08-10 13:41:22 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 e07db1c5c1..74dfa22a90 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-08-10 13:39:01 GMT" + "text" : "[Champions: 30] Last updated at 2025-08-10 13:41:22 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 77dbb308f4..d9636965f8 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-08-10 13:39:01 GMT" + "text" : "[Champions: 30] Last updated at 2025-08-10 13:41:22 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 99cbf3736e..bc1255a927 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-08-10 13:39:01 GMT" + "text" : "[Champions: 28] Last updated at 2025-08-10 13:41:22 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 269375e38f..6aab61441b 100644 --- a/stats/pwc-summary-31-60.json +++ b/stats/pwc-summary-31-60.json @@ -23,7 +23,7 @@ 0, 0, 4, - 368, + 370, 6, 72, 2, @@ -93,7 +93,7 @@ 0, 0, 0, - 45, + 44, 0, 19, 0, @@ -115,7 +115,7 @@ } ], "subtitle" : { - "text" : "[Champions: 30] Last updated at 2025-08-10 13:39:01 GMT" + "text" : "[Champions: 30] Last updated at 2025-08-10 13:41:22 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 22b4697541..e6942bf2e0 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-08-10 13:39:01 GMT" + "text" : "[Champions: 30] Last updated at 2025-08-10 13:41:22 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 e3abb851eb..43fc6be6f1 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-08-10 13:39:01 GMT" + "text" : "[Champions: 30] Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "The Weekly Challenge [2019 - 2025]" diff --git a/stats/pwc-summary.json b/stats/pwc-summary.json index 54d096fc96..a761810eb5 100644 --- a/stats/pwc-summary.json +++ b/stats/pwc-summary.json @@ -53,7 +53,7 @@ 0, 0, 2, - 185, + 186, 3, 36, 1, @@ -1009,7 +1009,7 @@ } ], "subtitle" : { - "text" : "[Champions: 328] Last updated at 2025-08-10 13:39:01 GMT" + "text" : "[Champions: 328] Last updated at 2025-08-10 13:41:22 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 a75bc1e4cf..2b3d7628eb 100644 --- a/stats/pwc-yearly-language-summary.json +++ b/stats/pwc-yearly-language-summary.json @@ -8,7 +8,7 @@ "data" : [ [ "Perl", - 1419 + 1421 ], [ "Raku", @@ -16,7 +16,7 @@ ], [ "Blog", - 601 + 600 ] ], "id" : "2025", @@ -151,7 +151,7 @@ { "drilldown" : "2025", "name" : "2025", - "y" : 2720 + "y" : 2721 }, { "drilldown" : "2024", @@ -188,7 +188,7 @@ } ], "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-08-10 13:39:01 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2025-08-10 13:41:22 GMT" }, "title" : { "text" : "The Weekly Challenge Language" -- cgit