From 8c3b72aa23fe2ca60dbcf176dca5b7f9548673d4 Mon Sep 17 00:00:00 2001 From: Scimon Date: Mon, 29 Nov 2021 09:52:27 +0000 Subject: Challenge 1 --- challenge-141/simon-proctor/raku/ch-1.raku | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 challenge-141/simon-proctor/raku/ch-1.raku diff --git a/challenge-141/simon-proctor/raku/ch-1.raku b/challenge-141/simon-proctor/raku/ch-1.raku new file mode 100644 index 0000000000..526bad0135 --- /dev/null +++ b/challenge-141/simon-proctor/raku/ch-1.raku @@ -0,0 +1,15 @@ +#!/usr/bin/env raku + +#| Find the first N positive integers with exactly X divisors +sub MAIN( + \N = 10, #= Number of integers (default 10) + \X = 8, #= Number of divisors (default 8) +) { + .say for (1..*).grep( + -> $v { + (1..$v).grep( + -> $d { + $v %% $d + } ).elems == X + })[^N]; +} -- cgit From 29cd549b7300651b3eee9da4c8a43ecde8595a07 Mon Sep 17 00:00:00 2001 From: Alexander Karelas Date: Mon, 29 Nov 2021 11:52:30 +0200 Subject: alexander karelas's solution to challenge 141 #2 --- challenge-141/alexander-karelas/ch-2.pl | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100755 challenge-141/alexander-karelas/ch-2.pl diff --git a/challenge-141/alexander-karelas/ch-2.pl b/challenge-141/alexander-karelas/ch-2.pl new file mode 100755 index 0000000000..37bd52afe9 --- /dev/null +++ b/challenge-141/alexander-karelas/ch-2.pl @@ -0,0 +1,29 @@ +#!/usr/bin/env perl + +use v5.32; +use warnings; + +use List::Util 'any'; + +use experimental 'signatures'; + +sub find_like ($m, $n) { + my @digits = split //, $m; + my $length = @digits; + my @return; + + for (my $i = 1; $i <= 2 ** $length - 2; $i++) { + my @onoff = split //, sprintf("%0${length}b", $i); + my $idx = 0; + my $candidate = join '', map { + my $digit = $digits[$_]; + my $onoff = $onoff[$_]; + $onoff ? ($digit) : (); + } (0 .. $length-1); + push @return, $candidate if $candidate % $n == 0; + } + + return sort {$a <=> $b} @return; +} + +say foreach find_like(@ARGV); -- cgit From 5ea9537a28ed490439fcc2f9d8bd062903bf045b Mon Sep 17 00:00:00 2001 From: Scimon Date: Mon, 29 Nov 2021 09:58:26 +0000 Subject: Challenge 2 --- challenge-141/simon-proctor/raku/ch-2.raku | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 challenge-141/simon-proctor/raku/ch-2.raku diff --git a/challenge-141/simon-proctor/raku/ch-2.raku b/challenge-141/simon-proctor/raku/ch-2.raku new file mode 100644 index 0000000000..1bb40b5556 --- /dev/null +++ b/challenge-141/simon-proctor/raku/ch-2.raku @@ -0,0 +1,9 @@ +#!/usr/bin/env raku + +#| Given a two number M and N find the number of "Like Numbers" can be found +sub MAIN ( + UInt \M, #= Integer used to make sub values + UInt \N #= Integer subvales of M should be divisible by +) { + M.comb.combinations(1..^(M.codes)).map( *.join() ).grep( * %% N ).elems.say; +} -- cgit From b44388d3b4a2250f04235fd1d51096614bf72998 Mon Sep 17 00:00:00 2001 From: Niels van Dijke Date: Mon, 29 Nov 2021 09:59:04 +0000 Subject: Task 1 & 2 --- challenge-141/perlboy1967/perl/ch-1.pl | 49 +++++++++++++++++++++++++++++++ challenge-141/perlboy1967/perl/ch-2.pl | 53 ++++++++++++++++++++++++++++++++++ 2 files changed, 102 insertions(+) create mode 100755 challenge-141/perlboy1967/perl/ch-1.pl create mode 100755 challenge-141/perlboy1967/perl/ch-2.pl diff --git a/challenge-141/perlboy1967/perl/ch-1.pl b/challenge-141/perlboy1967/perl/ch-1.pl new file mode 100755 index 0000000000..2c8fa60b22 --- /dev/null +++ b/challenge-141/perlboy1967/perl/ch-1.pl @@ -0,0 +1,49 @@ +#!/bin/perl + +=pod + +The Weekly Challenge - 140 + - https://perlweeklychallenge.org/blog/perl-weekly-challenge-140/#TASK1 + +Author: Niels 'PerlBoy' van Dijke + +TASK #1 › Number Divisors +Submitted by: Mohammad S Anwar + +Write a script to find lowest 10 positive integers having exactly 8 divisors. + +=cut + +use v5.16; +use strict; +use warnings; + +use Data::Printer output => 'stdout'; + +sub hasNDivisors($$); + +my $n = 24; +my @n; + +while (scalar(@n) < 10) { + if (hasNDivisors($n,8)) { + push(@n,$n); + } + $n++; +} + +p @n; + + +sub hasNDivisors($$) { + my ($n,$count) = @_; + + my $i = 1; + my @d = ($i); + while ($i < $n) { + push(@d,$i) if ($n % $i == 0); + $i++; + } + + return (scalar(@d) == $count); +} diff --git a/challenge-141/perlboy1967/perl/ch-2.pl b/challenge-141/perlboy1967/perl/ch-2.pl new file mode 100755 index 0000000000..0fb48e8b99 --- /dev/null +++ b/challenge-141/perlboy1967/perl/ch-2.pl @@ -0,0 +1,53 @@ +#!/bin/perl + +=pod + +The Weekly Challenge - 140 + - https://perlweeklychallenge.org/blog/perl-weekly-challenge-140/#TASK2 + +Author: Niels 'PerlBoy' van Dijke + +TASK #2 › Like Numbers +Submitted by: Mohammad S Anwar + +i You are given positive integers, $m and $n. + +Write a script to find total count of integers created using the digits of $m +which is also divisible by $n. + +Repeating of digits are not allowed. Order/Sequence of digits can’t be +altered. You are only allowed to use (n-1) digits at the most. For example, +432 is not acceptable integer created using the digits of 1234. Also for 1234, +you can only have integers having no more than three digits. + +=cut + +use v5.16; +use strict; +use warnings; + +use List::MoreUtils qw(uniq); +use Algorithm::Combinatorics qw(combinations); + +sub likeNumbers($$); + +my @n = likeNumbers($ARGV[0],$ARGV[1]); +printf "%d => (%s)\n", scalar(@n), join(',',@n); + + +sub likeNumbers($$) { + my ($m,$n) = @_; + + my @res; + + my @digits = uniq split //,$m; + foreach my $len (1 .. scalar(@digits)) { + my $iter = combinations(\@digits,$len); + while (my $ar = $iter->next) { + my $val = join('',@$ar); + push(@res,$val) if ($val % $n == 0 and $val != $m); + } + } + + return @res; +} -- cgit From 0a494c3c02450c957127182b7b63d418cd1aaca6 Mon Sep 17 00:00:00 2001 From: Niels van Dijke Date: Mon, 29 Nov 2021 10:00:43 +0000 Subject: Wrong weeknumber (fixed typos) --- challenge-141/perlboy1967/perl/ch-1.pl | 4 ++-- challenge-141/perlboy1967/perl/ch-2.pl | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/challenge-141/perlboy1967/perl/ch-1.pl b/challenge-141/perlboy1967/perl/ch-1.pl index 2c8fa60b22..9cb31d273f 100755 --- a/challenge-141/perlboy1967/perl/ch-1.pl +++ b/challenge-141/perlboy1967/perl/ch-1.pl @@ -2,8 +2,8 @@ =pod -The Weekly Challenge - 140 - - https://perlweeklychallenge.org/blog/perl-weekly-challenge-140/#TASK1 +The Weekly Challenge - 141 + - https://perlweeklychallenge.org/blog/perl-weekly-challenge-141/#TASK1 Author: Niels 'PerlBoy' van Dijke diff --git a/challenge-141/perlboy1967/perl/ch-2.pl b/challenge-141/perlboy1967/perl/ch-2.pl index 0fb48e8b99..51364c6f0b 100755 --- a/challenge-141/perlboy1967/perl/ch-2.pl +++ b/challenge-141/perlboy1967/perl/ch-2.pl @@ -2,8 +2,8 @@ =pod -The Weekly Challenge - 140 - - https://perlweeklychallenge.org/blog/perl-weekly-challenge-140/#TASK2 +The Weekly Challenge - 141 + - https://perlweeklychallenge.org/blog/perl-weekly-challenge-141/#TASK2 Author: Niels 'PerlBoy' van Dijke -- cgit From 6f7aba1c1236b38b185cb678647b00a61420ba34 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 29 Nov 2021 11:02:43 +0100 Subject: Task 1 done --- challenge-141/luca-ferrari/raku/ch-1.p6 | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100755 challenge-141/luca-ferrari/raku/ch-1.p6 diff --git a/challenge-141/luca-ferrari/raku/ch-1.p6 b/challenge-141/luca-ferrari/raku/ch-1.p6 new file mode 100755 index 0000000000..621db2a13e --- /dev/null +++ b/challenge-141/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,19 @@ +#!raku + + +sub MAIN( Int $divisors = 8, Int $count = 10 ) { + + "Searching $count numbers with $divisors divisors...".say; + + my %solutions; + + for $divisors + 1 .. Inf -> $current-number { + my @intra-solutions = ( 1 .. $current-number ).grep( { $current-number %% $_ } ); + + %solutions{ $current-number } = @intra-solutions if @intra-solutions.elems == $divisors; + + last if %solutions.keys.elems >= $count; + } + + "$_ has $divisors divisors: { %solutions{ $_ }.join( ', ' ) }".say for %solutions.keys.sort; +} -- cgit From df46be1b4580869cfe827a54f18545a469adb82c Mon Sep 17 00:00:00 2001 From: Roger Bell_West Date: Mon, 29 Nov 2021 10:15:27 +0000 Subject: Solutions for challenge #141 --- challenge-141/roger-bell-west/perl/ch-1.pl | 42 +++++++++++++++ challenge-141/roger-bell-west/perl/ch-2.pl | 28 ++++++++++ challenge-141/roger-bell-west/postscript/ch-1.ps | 66 ++++++++++++++++++++++++ challenge-141/roger-bell-west/postscript/ch-2.ps | 35 +++++++++++++ challenge-141/roger-bell-west/python/ch-1.py | 36 +++++++++++++ challenge-141/roger-bell-west/python/ch-2.py | 26 ++++++++++ challenge-141/roger-bell-west/raku/ch-1.p6 | 39 ++++++++++++++ challenge-141/roger-bell-west/raku/ch-2.p6 | 26 ++++++++++ challenge-141/roger-bell-west/ruby/ch-1.rb | 43 +++++++++++++++ challenge-141/roger-bell-west/ruby/ch-2.rb | 33 ++++++++++++ challenge-141/roger-bell-west/rust/ch-1.rs | 39 ++++++++++++++ challenge-141/roger-bell-west/rust/ch-2.rs | 30 +++++++++++ 12 files changed, 443 insertions(+) create mode 100755 challenge-141/roger-bell-west/perl/ch-1.pl create mode 100755 challenge-141/roger-bell-west/perl/ch-2.pl create mode 100644 challenge-141/roger-bell-west/postscript/ch-1.ps create mode 100644 challenge-141/roger-bell-west/postscript/ch-2.ps create mode 100755 challenge-141/roger-bell-west/python/ch-1.py create mode 100755 challenge-141/roger-bell-west/python/ch-2.py create mode 100755 challenge-141/roger-bell-west/raku/ch-1.p6 create mode 100755 challenge-141/roger-bell-west/raku/ch-2.p6 create mode 100755 challenge-141/roger-bell-west/ruby/ch-1.rb create mode 100755 challenge-141/roger-bell-west/ruby/ch-2.rb create mode 100755 challenge-141/roger-bell-west/rust/ch-1.rs create mode 100755 challenge-141/roger-bell-west/rust/ch-2.rs diff --git a/challenge-141/roger-bell-west/perl/ch-1.pl b/challenge-141/roger-bell-west/perl/ch-1.pl new file mode 100755 index 0000000000..4853fc58d3 --- /dev/null +++ b/challenge-141/roger-bell-west/perl/ch-1.pl @@ -0,0 +1,42 @@ +#! /usr/bin/perl + +use strict; +use warnings; + +use Test::More tests => 1; + +is_deeply(divisors(8,10),[24,30,40,42,54,56,66,70,78,88],'example 1'); + +sub factorcount { + my $n=shift; + if ($n==1) { + return 1; + } + my $f=2; + my $s=int(sqrt($n)); + if ($s*$s == $n) { + $s--; + $f++; + } + foreach my $pf (2..$s) { + if ($n % $pf == 0) { + $f+=2; + } + } + return $f; +} + +sub divisors { + my ($count,$n)=@_; + my $nn=$n; + my @a; + my $t=0; + while ($nn) { + $t++; + if (factorcount($t)==$count) { + push @a,$t; + $nn--; + } + } + return \@a; +} diff --git a/challenge-141/roger-bell-west/perl/ch-2.pl b/challenge-141/roger-bell-west/perl/ch-2.pl new file mode 100755 index 0000000000..2d43ec2eff --- /dev/null +++ b/challenge-141/roger-bell-west/perl/ch-2.pl @@ -0,0 +1,28 @@ +#! /usr/bin/perl + +use strict; +use warnings; + +use Test::More tests => 2; + +is(likenumber(1234,2),9,'example 1'); +is(likenumber(768,4),3,'example 2'); + +sub likenumber { + my ($source,$factor)=@_; + my @s=split '',$source; + my $m=scalar @s; + my $n=0; + foreach my $mask (1..(1<<$m)-2) { + my $c=0; + foreach my $di (0..$m-1) { + if ($mask & 1<<$di) { + $c=$c*10+$s[$di]; + } + } + if ($c % $factor == 0) { + $n++; + } + } + return $n; +} diff --git a/challenge-141/roger-bell-west/postscript/ch-1.ps b/challenge-141/roger-bell-west/postscript/ch-1.ps new file mode 100644 index 0000000000..9c71ddf223 --- /dev/null +++ b/challenge-141/roger-bell-west/postscript/ch-1.ps @@ -0,0 +1,66 @@ +%!PS + +/aeq { + 2 dict begin + /a exch def + /b exch def + a length b length eq { + /e true def + 0 1 a length 1 sub { + dup a exch get + exch b exch get ne { + /e false def + exit + } if + } for + e + } { + false + } ifelse + end +} bind def + +/apush { % [a b] c -> [a b c] + /t exch def + [ exch aload pop t ] +} bind def + +/factorctr { + /n exch def + n 1 eq { + 1 + } { + /f 2 def + /s n sqrt cvi def + s s mul n eq { + /s s 1 sub def + /f f 1 add def + } if + 2 1 s { + n exch mod 0 eq { + /f f 2 add def + } if + } for + f + } ifelse +} bind def + +/divisors { + /nn exch def + /ctr exch def + /a 0 array def + /t 0 def + { + nn 0 le { + exit + } if + /t t 1 add def + t factorctr ctr eq { + /a a t apush def + /nn nn 1 sub def + } if + } loop + a +} bind def + +8 10 divisors [ 24 30 40 42 54 56 66 70 78 88 ] aeq { (Pass) } { (FAIL) } ifelse = diff --git a/challenge-141/roger-bell-west/postscript/ch-2.ps b/challenge-141/roger-bell-west/postscript/ch-2.ps new file mode 100644 index 0000000000..2a6606f5b3 --- /dev/null +++ b/challenge-141/roger-bell-west/postscript/ch-2.ps @@ -0,0 +1,35 @@ +%!PS + +/apush { % [a b] c -> [a b c] + /t exch def + [ exch aload pop t ] +} bind def + +/i2s { + dup log cvi 1 add string cvs +} bind def + +/likenumber { + /factor exch def + /source exch def + /s source i2s def + /m s length def + /n 0 def + 1 1 1 m bitshift 2 sub { + /mask exch def + /c 0 def + 0 1 m 1 sub { + /di exch def + mask 1 di bitshift and 0 gt { + /c c 10 mul s di get cvi add def + } if + } for + c factor mod 0 eq { + /n n 1 add def + } if + } for + n +} bind def + +1234 2 likenumber 9 eq { (Pass) } { (FAIL) } ifelse print ( ) print +768 4 likenumber 3 eq { (Pass) } { (FAIL) } ifelse = diff --git a/challenge-141/roger-bell-west/python/ch-1.py b/challenge-141/roger-bell-west/python/ch-1.py new file mode 100755 index 0000000000..b1e8726449 --- /dev/null +++ b/challenge-141/roger-bell-west/python/ch-1.py @@ -0,0 +1,36 @@ +#! /usr/bin/python3 + +import unittest + +from math import sqrt + +def factorcount(n): + if n==1: + return 1 + f=2 + s=int(sqrt(n)) + if s*s==n: + s-=1 + f+=1 + for pf in range(2,s+1): + if n % pf == 0: + f += 2 + return f + +def divisors(count,n): + nn=n + a=[] + t=0 + while nn: + t+=1 + if factorcount(t)==count: + a.append(t) + nn-=1 + return a + +class TestDivisors(unittest.TestCase): + + def test_ex1(self): + self.assertEqual(divisors(8,10),[24,30,40,42,54,56,66,70,78,88],'example 2') + +unittest.main() diff --git a/challenge-141/roger-bell-west/python/ch-2.py b/challenge-141/roger-bell-west/python/ch-2.py new file mode 100755 index 0000000000..1bcf983c5f --- /dev/null +++ b/challenge-141/roger-bell-west/python/ch-2.py @@ -0,0 +1,26 @@ +#! /usr/bin/python3 + +import unittest + +def likenumber(source,factor): + s=[int(i) for i in str(source)] + m=len(s) + n=0 + for mask in range(1,(1< $pf { + if ($n % $pf == 0) { + $f+=2; + } + } + return $f; +} + +sub divisors($count,$n) { + my $nn=$n; + my @a; + my $t=0; + while ($nn) { + $t++; + if (factorcount($t)==$count) { + push @a,$t; + $nn--; + } + } + return @a; +} diff --git a/challenge-141/roger-bell-west/raku/ch-2.p6 b/challenge-141/roger-bell-west/raku/ch-2.p6 new file mode 100755 index 0000000000..982293ba2b --- /dev/null +++ b/challenge-141/roger-bell-west/raku/ch-2.p6 @@ -0,0 +1,26 @@ +#! /usr/bin/perl6 + +use Test; + +plan 2; + +is(likenumber(1234,2),9,'example 1'); +is(likenumber(768,4),3,'example 2'); + +sub likenumber($source,$factor) { + my @s=$source.comb; + my $m=@s.elems; + my $n=0; + for (1..(1 +< $m)-2) -> $mask { + my $c=0; + for (0..$m-1) -> $di { + if ($mask +& (1 +< $di)) { + $c=$c*10+@s[$di]; + } + } + if ($c % $factor == 0) { + $n++; + } + } + return $n; +} diff --git a/challenge-141/roger-bell-west/ruby/ch-1.rb b/challenge-141/roger-bell-west/ruby/ch-1.rb new file mode 100755 index 0000000000..ce0c339fb6 --- /dev/null +++ b/challenge-141/roger-bell-west/ruby/ch-1.rb @@ -0,0 +1,43 @@ +#! /usr/bin/ruby + +def factorcount(n) + if n==1 then + return 1 + end + f=2 + s=Math.sqrt(n).floor + if s*s==n then + s-=1 + f+=1 + end + 2.upto(s) do |pf| + if n % pf == 0 then + f+= 2 + end + end + return f +end + +def divisors(count,n) + nn=n + a=[] + t=0 + while nn>0 do + t+=1 + if factorcount(t)==count then + a.push(t) + nn-=1 + end + end + return a +end + +require 'test/unit' + +class TestDivisors < Test::Unit::TestCase + + def test_ex1 + assert_equal([24,30,40,42,54,56,66,70,78,88],divisors(8,10)) + end + +end diff --git a/challenge-141/roger-bell-west/ruby/ch-2.rb b/challenge-141/roger-bell-west/ruby/ch-2.rb new file mode 100755 index 0000000000..b48d253329 --- /dev/null +++ b/challenge-141/roger-bell-west/ruby/ch-2.rb @@ -0,0 +1,33 @@ +#! /usr/bin/ruby + +def likenumber(source,factor) + s=source.to_s.split('').map {|i| i.to_i} + m=s.length + n=0 + 1.upto((1<0 then + c=c*10+s[di] + end + end + if c % factor == 0 then + n+=1 + end + end + return n +end + +require 'test/unit' + +class TestLikenumber < Test::Unit::TestCase + + def test_ex1 + assert_equal(9,likenumber(1234,2)) + end + + def test_ex2 + assert_equal(3,likenumber(768,4)) + end + +end diff --git a/challenge-141/roger-bell-west/rust/ch-1.rs b/challenge-141/roger-bell-west/rust/ch-1.rs new file mode 100755 index 0000000000..d1ea4d6669 --- /dev/null +++ b/challenge-141/roger-bell-west/rust/ch-1.rs @@ -0,0 +1,39 @@ +#! /bin/sh +//usr/bin/env rustc --test $0 -o ${0}x && ./${0}x; rm -f ${0}x ; exit + +#[test] +fn test_ex1() { + assert_eq!(divisors(8,10),vec![24,30,40,42,54,56,66,70,78,88]); +} + +fn factorcount(n: u32) -> u32 { + if n==1 { + return 1; + } + let mut f=2; + let mut s=(n as f64).sqrt() as u32; + if s*s==n { + s-=1; + f+=1; + } + for pf in 2..=s { + if n % pf == 0 { + f+=2; + } + } + f +} + +fn divisors(count: u32,n: u32) -> Vec { + let mut nn=n; + let mut a=vec![]; + let mut t=0; + while nn>0 { + t+=1; + if factorcount(t)==count { + a.push(t); + nn-=1 + } + } + a +} diff --git a/challenge-141/roger-bell-west/rust/ch-2.rs b/challenge-141/roger-bell-west/rust/ch-2.rs new file mode 100755 index 0000000000..694f781072 --- /dev/null +++ b/challenge-141/roger-bell-west/rust/ch-2.rs @@ -0,0 +1,30 @@ +#! /bin/sh +//usr/bin/env rustc --test $0 -o ${0}x && ./${0}x; rm -f ${0}x ; exit + +#[test] +fn test_ex1() { + assert_eq!(likenumber(1234,2),9); +} + +#[test] +fn test_ex2() { + assert_eq!(likenumber(768,4),3); +} + +fn likenumber(source: u32,factor: u32) -> u32 { + let s: Vec=source.to_string().chars().map(|i| i.to_digit(10).unwrap()).collect(); + let m=s.len(); + let mut n=0; + for mask in 1..((1< 0 { + c=c*10+s[di]; + } + } + if c % factor == 0 { + n+=1; + } + } + n +} -- cgit From f8b59640efe08afb9d3e45a9327fbe52e5d21f3f Mon Sep 17 00:00:00 2001 From: Mark <53903062+andemark@users.noreply.github.com> Date: Mon, 29 Nov 2021 12:23:14 +0000 Subject: Challenge 141 Solutions (Raku) --- challenge-141/mark-anderson/raku/ch-1.raku | 5 +++++ challenge-141/mark-anderson/raku/ch-2.raku | 18 ++++++++++++++++++ 2 files changed, 23 insertions(+) create mode 100644 challenge-141/mark-anderson/raku/ch-1.raku create mode 100644 challenge-141/mark-anderson/raku/ch-2.raku diff --git a/challenge-141/mark-anderson/raku/ch-1.raku b/challenge-141/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..2a2f90f510 --- /dev/null +++ b/challenge-141/mark-anderson/raku/ch-1.raku @@ -0,0 +1,5 @@ +#!/usr/bin/env raku + +use Prime::Factor; + +say (^Inf).race.grep({ divisors($_) == 8 })[^10]; diff --git a/challenge-141/mark-anderson/raku/ch-2.raku b/challenge-141/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..b0b3b69fe7 --- /dev/null +++ b/challenge-141/mark-anderson/raku/ch-2.raku @@ -0,0 +1,18 @@ +#!/usr/bin/env raku + +use Test; +plan 4; + +is like-numbers(1234, 2), 9, '1234, 2 = (2 4 12 14 24 34 124 134 234)'; +is like-numbers( 768, 4), 3, ' 768, 4 = (8 76 68)'; +is like-numbers(1008, 2), 6, '1008, 2 = (0 8 10 18 100 108)'; +is like-numbers(7777, 7), 3, '7777, 7 = (7 77 777)'; + +sub like-numbers($m is copy, \n) +{ + $m .= comb; + $m.combinations(1..^+$m).map(+*.join) + .grep(* %% n) + .unique + .Int; +} -- cgit From 69686f4bcbe2412b8a50ba9dd490dc335d5acb8e Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 29 Nov 2021 14:46:03 +0100 Subject: Task 2 done --- challenge-141/luca-ferrari/raku/ch-2.p6 | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100755 challenge-141/luca-ferrari/raku/ch-2.p6 diff --git a/challenge-141/luca-ferrari/raku/ch-2.p6 b/challenge-141/luca-ferrari/raku/ch-2.p6 new file mode 100755 index 0000000000..ae278b19e1 --- /dev/null +++ b/challenge-141/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,6 @@ +#!raku + +sub MAIN( Int $m, Int $n ) { + $m.comb.combinations( 1 ..^ $m.Str.chars ).map( *.join.Int ).grep( * %% $n ).unique.sort.say; + +} -- cgit From 4b18088d2c8639ff4e884e0d6b72303aaaa0b96d Mon Sep 17 00:00:00 2001 From: Mark <53903062+andemark@users.noreply.github.com> Date: Mon, 29 Nov 2021 13:47:02 +0000 Subject: Challenge 141 Solutions (Raku) --- challenge-141/mark-anderson/raku/ch-1.raku | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/challenge-141/mark-anderson/raku/ch-1.raku b/challenge-141/mark-anderson/raku/ch-1.raku index 2a2f90f510..f5547da629 100644 --- a/challenge-141/mark-anderson/raku/ch-1.raku +++ b/challenge-141/mark-anderson/raku/ch-1.raku @@ -1,5 +1,16 @@ #!/usr/bin/env raku use Prime::Factor; +use Test; +plan 2; -say (^Inf).race.grep({ divisors($_) == 8 })[^10]; +is-deeply number-divisors(8)[^10], + (24, 30, 40, 42, 54, 56, 66, 70, 78, 88), 'example 1'; + +is-deeply number-divisors(8)[^10000].tail(5), + (45626, 45627, 45638, 45642, 45646), 'race ftw!'; + +sub number-divisors(\n) +{ + (^Inf).race.grep({ divisors($_) == n }); +} -- cgit From ae5ffc0af2fd30754b16536d506605a3c55255de Mon Sep 17 00:00:00 2001 From: Mark <53903062+andemark@users.noreply.github.com> Date: Mon, 29 Nov 2021 13:53:38 +0000 Subject: Challenge 141 Solutions (Raku) --- challenge-141/mark-anderson/raku/ch-1.raku | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/challenge-141/mark-anderson/raku/ch-1.raku b/challenge-141/mark-anderson/raku/ch-1.raku index f5547da629..5a65a0f2e3 100644 --- a/challenge-141/mark-anderson/raku/ch-1.raku +++ b/challenge-141/mark-anderson/raku/ch-1.raku @@ -8,9 +8,9 @@ is-deeply number-divisors(8)[^10], (24, 30, 40, 42, 54, 56, 66, 70, 78, 88), 'example 1'; is-deeply number-divisors(8)[^10000].tail(5), - (45626, 45627, 45638, 45642, 45646), 'race ftw!'; + (45626, 45627, 45638, 45642, 45646), 'hyper ftw!'; sub number-divisors(\n) { - (^Inf).race.grep({ divisors($_) == n }); + (^Inf).hyper.grep({ divisors($_) == n }); } -- cgit From ff461cc6959c56f5ea9d3c044c976121cecbb96f Mon Sep 17 00:00:00 2001 From: Steven Wilson Date: Mon, 29 Nov 2021 14:37:37 +0000 Subject: add solution week 140 task 2 in perl --- challenge-140/steven-wilson/perl/ch-2.pl | 35 ++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 challenge-140/steven-wilson/perl/ch-2.pl diff --git a/challenge-140/steven-wilson/perl/ch-2.pl b/challenge-140/steven-wilson/perl/ch-2.pl new file mode 100644 index 0000000000..00bc221751 --- /dev/null +++ b/challenge-140/steven-wilson/perl/ch-2.pl @@ -0,0 +1,35 @@ +#!/usr/bin/env perl +# Week 140 Task 2 +# Multiplication Table + +use strict; +use warnings; +use feature qw/ say /; +use Lingua::EN::Numbers::Ordinate; + +my ( $i, $j, $k ) = @ARGV; +my @rows; + +for ( my $y = 1; $y <= $i; $y++ ) { + my @row; + for ( my $x = 1; $x <= $j; $x++ ) { + + push @row, ( $x * $y ); + } + push @rows, \@row; +} + +my @multiples; +map { push @multiples, @{$_} } @rows; +my @sorted_multiples = sort @multiples; + +say "Input: \$i = $i, \$j = $j, \$k = $k"; +say "Output: $sorted_multiples[$k-1]\n"; +say "Since the multiplication of $i x $j is as below:\n"; +map { say "\t" . join " ", @{$_} } @rows; +say "\nThe sorted multiplication table:\n"; +say "\t" . join " ", @sorted_multiples; +say "\nNow the " + . ordinate($k) + . " element in the table is \"$sorted_multiples[$k-1]\"."; + -- cgit From c62eea0af3ad4e45249f0c17ea597f2b220aad60 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 29 Nov 2021 15:58:12 +0100 Subject: Task 1 in PostgreSQL --- challenge-141/luca-ferrari/postgresql/ch-1.sql | 32 ++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 challenge-141/luca-ferrari/postgresql/ch-1.sql diff --git a/challenge-141/luca-ferrari/postgresql/ch-1.sql b/challenge-141/luca-ferrari/postgresql/ch-1.sql new file mode 100644 index 0000000000..c68e881175 --- /dev/null +++ b/challenge-141/luca-ferrari/postgresql/ch-1.sql @@ -0,0 +1,32 @@ +CREATE OR REPLACE FUNCTION +f_find_divisors( divisors int default 8, count int default 10 ) +RETURNS SETOF int +AS $CODE$ +DECLARE + current_number int; + current_divisor int; + current_found int; +BEGIN + FOR current_number IN 1 .. 999999 LOOP + IF count = 0 THEN + EXIT; + END IF; + + current_found := 0; + + FOR current_divisor IN 1 .. current_number LOOP + IF current_number % current_divisor = 0 THEN + current_found := current_found + 1; + END IF; + END LOOP; + + IF current_found = divisors THEN + count := count - 1; + RETURN NEXT current_number; + END IF; + END LOOP; + + RETURN; +END +$CODE$ +LANGUAGE plpgsql; -- cgit From 705640f5611e95eb41001b853b84c6b3d1bd22bd Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 29 Nov 2021 16:22:22 +0100 Subject: Task 2 in PostgreSQL --- challenge-141/luca-ferrari/postgresql/ch-2.sql | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 challenge-141/luca-ferrari/postgresql/ch-2.sql diff --git a/challenge-141/luca-ferrari/postgresql/ch-2.sql b/challenge-141/luca-ferrari/postgresql/ch-2.sql new file mode 100644 index 0000000000..239d846b58 --- /dev/null +++ b/challenge-141/luca-ferrari/postgresql/ch-2.sql @@ -0,0 +1,21 @@ +CREATE OR REPLACE FUNCTION +f_live_numbers( m int, n int ) +RETURNS SETOF int +AS $CODE$ +WITH RECURSIVE +numbers AS ( SELECT unnest( regexp_split_to_array( m::text, '' ) ) AS n ) +, combinations( i, v, c ) AS ( +SELECT 1, n, n +FROM numbers +UNION +SELECT i + 1, n, c || num.n +FROM combinations, numbers num +WHERE length( c || num.n ) < length( m::text ) - 1 +AND num.n IN ( SELECT n FROM numbers WHERE n::int > i ) +) + +SELECT c::int FROM combinations +WHERE c::int % n = 0; + +$CODE$ +LANGUAGE sql; -- cgit From c89584624fde5c8d698e132b340a2ac0c462983e Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 29 Nov 2021 16:43:05 +0100 Subject: Blog references --- challenge-141/luca-ferrari/blog-1.txt | 1 + challenge-141/luca-ferrari/blog-2.txt | 1 + challenge-141/luca-ferrari/blog-3.txt | 1 + challenge-141/luca-ferrari/blog-4.txt | 1 + 4 files changed, 4 insertions(+) create mode 100644 challenge-141/luca-ferrari/blog-1.txt create mode 100644 challenge-141/luca-ferrari/blog-2.txt create mode 100644 challenge-141/luca-ferrari/blog-3.txt create mode 100644 challenge-141/luca-ferrari/blog-4.txt diff --git a/challenge-141/luca-ferrari/blog-1.txt b/challenge-141/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..80cbe14380 --- /dev/null +++ b/challenge-141/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/11/29/PerlWeeklyChallenge141.html#task1 diff --git a/challenge-141/luca-ferrari/blog-2.txt b/challenge-141/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..35e7946b2f --- /dev/null +++ b/challenge-141/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/11/29/PerlWeeklyChallenge141.html#task2 diff --git a/challenge-141/luca-ferrari/blog-3.txt b/challenge-141/luca-ferrari/blog-3.txt new file mode 100644 index 0000000000..e064c87e1a --- /dev/null +++ b/challenge-141/luca-ferrari/blog-3.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/11/29/PerlWeeklyChallenge141.html#task1pg diff --git a/challenge-141/luca-ferrari/blog-4.txt b/challenge-141/luca-ferrari/blog-4.txt new file mode 100644 index 0000000000..0c5caa9c08 --- /dev/null +++ b/challenge-141/luca-ferrari/blog-4.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/11/29/PerlWeeklyChallenge141.html#task2pg -- cgit From 87657d119305f8de1d4322f596a72ae619eacaac Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 29 Nov 2021 16:02:24 +0000 Subject: - Added solution by Steven Wilson. --- stats/pwc-current.json | 317 +++--- stats/pwc-language-breakdown-summary.json | 54 +- stats/pwc-language-breakdown.json | 990 +++++++++---------- stats/pwc-leaders.json | 388 ++++---- stats/pwc-summary-1-30.json | 96 +- stats/pwc-summary-121-150.json | 118 +-- stats/pwc-summary-151-180.json | 102 +- stats/pwc-summary-181-210.json | 96 +- stats/pwc-summary-211-240.json | 124 +-- stats/pwc-summary-241-270.json | 70 +- stats/pwc-summary-31-60.json | 42 +- stats/pwc-summary-61-90.json | 50 +- stats/pwc-summary-91-120.json | 38 +- stats/pwc-summary.json | 1532 ++++++++++++++--------------- 14 files changed, 2016 insertions(+), 2001 deletions(-) diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 25ef2ad67e..6415df3f20 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,10 +1,4 @@ { - "xAxis" : { - "type" : "category" - }, - "subtitle" : { - "text" : "[Champions: 37] Last updated at 2021-11-29 08:28:28 GMT" - }, "plotOptions" : { "series" : { "borderWidth" : 0, @@ -14,13 +8,33 @@ } } }, + "subtitle" : { + "text" : "[Champions: 38] Last updated at 2021-11-29 15:57:55 GMT" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "chart" : { + "type" : "column" + }, "legend" : { "enabled" : 0 }, + "xAxis" : { + "type" : "category" + }, + "title" : { + "text" : "The Weekly Challenge - 140" + }, + "tooltip" : { + "headerFormat" : "{series.name}
", + "pointFormat" : "{point.name}: {point.y:f}
", + "followPointer" : 1 + }, "series" : [ { - "name" : "The Weekly Challenge - 140", - "colorByPoint" : 1, "data" : [ { "drilldown" : "Abigail", @@ -29,17 +43,17 @@ }, { "y" : 4, - "name" : "Adam Russell", - "drilldown" : "Adam Russell" + "drilldown" : "Adam Russell", + "name" : "Adam Russell" }, { - "y" : 2, "name" : "Alexander Pankoff", - "drilldown" : "Alexander Pankoff" + "drilldown" : "Alexander Pankoff", + "y" : 2 }, { - "drilldown" : "Andrew Shitov", "y" : 2, + "drilldown" : "Andrew Shitov", "name" : "Andrew Shitov" }, { @@ -48,9 +62,9 @@ "name" : "Arne Sommer" }, { + "name" : "Athanasius", "drilldown" : "Athanasius", - "y" : 4, - "name" : "Athanasius" + "y" : 4 }, { "drilldown" : "Cheok-Yin Fung", @@ -58,19 +72,19 @@ "name" : "Cheok-Yin Fung" }, { - "drilldown" : "Colin Crain", "name" : "Colin Crain", + "drilldown" : "Colin Crain", "y" : 4 }, { - "drilldown" : "Cristina Heredia", "name" : "Cristina Heredia", - "y" : 1 + "y" : 1, + "drilldown" : "Cristina Heredia" }, { "y" : 3, - "name" : "Dave Jacoby", - "drilldown" : "Dave Jacoby" + "drilldown" : "Dave Jacoby", + "name" : "Dave Jacoby" }, { "drilldown" : "Duncan C. White", @@ -79,53 +93,53 @@ }, { "y" : 2, - "name" : "E. Choroba", - "drilldown" : "E. Choroba" + "drilldown" : "E. Choroba", + "name" : "E. Choroba" }, { + "drilldown" : "Feng Chang", "y" : 2, - "name" : "Feng Chang", - "drilldown" : "Feng Chang" + "name" : "Feng Chang" }, { + "y" : 6, "drilldown" : "Flavio Poletti", - "name" : "Flavio Poletti", - "y" : 6 + "name" : "Flavio Poletti" }, { - "drilldown" : "Jake", + "name" : "Jake", "y" : 2, - "name" : "Jake" + "drilldown" : "Jake" }, { "drilldown" : "Jaldhar H. Vyas", - "name" : "Jaldhar H. Vyas", - "y" : 5 + "y" : 5, + "name" : "Jaldhar H. Vyas" }, { - "y" : 3, "name" : "James Smith", + "y" : 3, "drilldown" : "James Smith" }, { "y" : 2, - "name" : "Jan Krnavek", - "drilldown" : "Jan Krnavek" + "drilldown" : "Jan Krnavek", + "name" : "Jan Krnavek" }, { - "drilldown" : "Jorg Sommrey", "name" : "Jorg Sommrey", + "drilldown" : "Jorg Sommrey", "y" : 2 }, { "y" : 6, - "name" : "Laurent Rosenfeld", - "drilldown" : "Laurent Rosenfeld" + "drilldown" : "Laurent Rosenfeld", + "name" : "Laurent Rosenfeld" }, { - "drilldown" : "Lubos Kolouch", "name" : "Lubos Kolouch", - "y" : 2 + "y" : 2, + "drilldown" : "Lubos Kolouch" }, { "name" : "Luca Ferrari", @@ -133,14 +147,14 @@ "drilldown" : "Luca Ferrari" }, { - "drilldown" : "Mano Chandar", "name" : "Mano Chandar", + "drilldown" : "Mano Chandar", "y" : 1 }, { - "name" : "Matthew Neleigh", "y" : 2, - "drilldown" : "Matthew Neleigh" + "drilldown" : "Matthew Neleigh", + "name" : "Matthew Neleigh" }, { "name" : "Mohammad S Anwar", @@ -148,49 +162,54 @@ "drilldown" : "Mohammad S Anwar" }, { - "drilldown" : "Niels van Dijke", "name" : "Niels van Dijke", - "y" : 2 + "y" : 2, + "drilldown" : "Niels van Dijke" }, { - "drilldown" : "Olivier Delouya", + "name" : "Olivier Delouya", "y" : 1, - "name" : "Olivier Delouya" + "drilldown" : "Olivier Delouya" }, { - "drilldown" : "Paul Fajman", "y" : 1, + "drilldown" : "Paul Fajman", "name" : "Paul Fajman" }, { - "y" : 2, "name" : "Paulo Custodio", - "drilldown" : "Paulo Custodio" + "drilldown" : "Paulo Custodio", + "y" : 2 }, { "y" : 2, - "name" : "Pete Houston", - "drilldown" : "Pete Houston" + "drilldown" : "Pete Houston", + "name" : "Pete Houston" }, { - "y" : 2, "name" : "Peter Campbell Smith", - "drilldown" : "Peter Campbell Smith" + "drilldown" : "Peter Campbell Smith", + "y" : 2 }, { - "name" : "Robert DiCicco", "y" : 1, - "drilldown" : "Robert DiCicco" + "drilldown" : "Robert DiCicco", + "name" : "Robert DiCicco" }, { + "name" : "Roger Bell_West", "drilldown" : "Roger Bell_West", - "y" : 5, - "name" : "Roger Bell_West" + "y" : 5 }, { - "name" : "Simon Green", + "drilldown" : "Simon Green", "y" : 3, - "drilldown" : "Simon Green" + "name" : "Simon Green" + }, + { + "name" : "Steven Wilson", + "drilldown" : "Steven Wilson", + "y" : 1 }, { "drilldown" : "Ulrich Rieke", @@ -198,31 +217,20 @@ "name" : "Ulrich Rieke" }, { - "drilldown" : "W. Luis Mochan", "y" : 3, + "drilldown" : "W. Luis Mochan", "name" : "W. Luis Mochan" }, { - "y" : 2, "name" : "Wanderdoc", + "y" : 2, "drilldown" : "Wanderdoc" } - ] + ], + "name" : "The Weekly Challenge - 140", + "colorByPoint" : 1 } ], - "chart" : { - "type" : "column" - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "tooltip" : { - "headerFormat" : "{series.name}
", - "followPointer" : 1, - "pointFormat" : "{point.name}: {point.y:f}
" - }, "drilldown" : { "series" : [ { @@ -240,6 +248,7 @@ "id" : "Abigail" }, { + "name" : "Adam Russell", "data" : [ [ "Perl", @@ -250,32 +259,30 @@ 2 ] ], - "id" : "Adam Russell", - "name" : "Adam Russell" + "id" : "Adam Russell" }, { - "id" : "Alexander Pankoff", "name" : "Alexander Pankoff", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Alexander Pankoff" }, { + "id" : "Andrew Shitov", "data" : [ [ "Raku", 2 ] ], - "name" : "Andrew Shitov", - "id" : "Andrew Shitov" + "name" : "Andrew Shitov" }, { "id" : "Arne Sommer", - "name" : "Arne Sommer", "data" : [ [ "Raku", @@ -285,10 +292,10 @@ "Blog", 1 ] - ] + ], + "name" : "Arne Sommer" }, { - "name" : "Athanasius", "id" : "Athanasius", "data" : [ [ @@ -299,7 +306,8 @@ "Raku", 2 ] - ] + ], + "name" : "Athanasius" }, { "id" : "Cheok-Yin Fung", @@ -322,8 +330,8 @@ 2 ] ], - "id" : "Colin Crain", - "name" : "Colin Crain" + "name" : "Colin Crain", + "id" : "Colin Crain" }, { "data" : [ @@ -337,7 +345,6 @@ }, { "name" : "Dave Jacoby", - "id" : "Dave Jacoby", "data" : [ [ "Perl", @@ -347,41 +354,40 @@ "Blog", 1 ] - ] + ], + "id" : "Dave Jacoby" }, { - "name" : "Duncan C. White", - "id" : "Duncan C. White", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Duncan C. White", + "id" : "Duncan C. White" }, { - "name" : "E. Choroba", - "id" : "E. Choroba", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "E. Choroba", + "id" : "E. Choroba" }, { + "id" : "Feng Chang", "data" : [ [ "Raku", 2 ] ], - "id" : "Feng Chang", "name" : "Feng Chang" }, { - "id" : "Flavio Poletti", - "name" : "Flavio Poletti", "data" : [ [ "Perl", @@ -395,19 +401,23 @@ "Blog", 2 ] - ] + ], + "name" : "Flavio Poletti", + "id" : "Flavio Poletti" }, { "id" : "Jake", - "name" : "Jake", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Jake" }, { + "id" : "Jaldhar H. Vyas", + "name" : "Jaldhar H. Vyas", "data" : [ [ "Perl", @@ -421,13 +431,9 @@ "Blog", 1 ] - ], - "name" : "Jaldhar H. Vyas", - "id" : "Jaldhar H. Vyas" + ] }, { - "id" : "James Smith", - "name" : "James Smith", "data" : [ [ "Perl", @@ -437,7 +443,9 @@ "Blog", 1 ] - ] + ], + "name" : "James Smith", + "id" : "James Smith" }, { "data" : [ @@ -446,22 +454,21 @@ 2 ] ], - "id" : "Jan Krnavek", - "name" : "Jan Krnavek" + "name" : "Jan Krnavek", + "id" : "Jan Krnavek" }, { + "id" : "Jorg Sommrey", "data" : [ [ "Perl", 2 ] ], - "id" : "Jorg Sommrey", "name" : "Jorg Sommrey" }, { "id" : "Laurent Rosenfeld", - "name" : "Laurent Rosenfeld", "data" : [ [ "Perl", @@ -475,21 +482,20 @@ "Blog", 2 ] - ] + ], + "name" : "Laurent Rosenfeld" }, { - "id" : "Lubos Kolouch", "name" : "Lubos Kolouch", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Lubos Kolouch" }, { - "id" : "Luca Ferrari", - "name" : "Luca Ferrari", "data" : [ [ "Raku", @@ -499,27 +505,29 @@ "Blog", 4 ] - ] + ], + "name" : "Luca Ferrari", + "id" : "Luca Ferrari" }, { - "name" : "Mano Chandar", - "id" : "Mano Chandar", "data" : [ [ "Perl", 1 ] - ] + ], + "name" : "Mano Chandar", + "id" : "Mano Chandar" }, { + "id" : "Matthew Neleigh", + "name" : "Matthew Neleigh", "data" : [ [ "Perl", 2 ] - ], - "name" : "Matthew Neleigh", - "id" : "Matthew Neleigh" + ] }, { "data" : [ @@ -528,82 +536,81 @@ 2 ] ], - "id" : "Mohammad S Anwar", - "name" : "Mohammad S Anwar" + "name" : "Mohammad S Anwar", + "id" : "Mohammad S Anwar" }, { + "id" : "Niels van Dijke", + "name" : "Niels van Dijke", "data" : [ [ "Perl", 2 ] - ], - "name" : "Niels van Dijke", - "id" : "Niels van Dijke" + ] }, { + "name" : "Olivier Delouya", "data" : [ [ "Perl", 1 ] ], - "id" : "Olivier Delouya", - "name" : "Olivier Delouya" + "id" : "Olivier Delouya" }, { "name" : "Paul Fajman", - "id" : "Paul Fajman", "data" : [ [ "Perl", 1 ] - ] + ], + "id" : "Paul Fajman" }, { + "id" : "Paulo Custodio", "data" : [ [ "Perl", 2 ] ], - "id" : "Paulo Custodio", "name" : "Paulo Custodio" }, { + "name" : "Pete Houston", "data" : [ [ "Perl", 2 ] ], - "name" : "Pete Houston", "id" : "Pete Houston" }, { + "id" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith", "data" : [ [ "Perl", 2 ] - ], - "id" : "Peter Campbell Smith", - "name" : "Peter Campbell Smith" + ] }, { + "id" : "Robert DiCicco", + "name" : "Robert DiCicco", "data" : [ [ "Perl", 1 ] - ], - "id" : "Robert DiCicco", - "name" : "Robert DiCicco" + ] }, { "name" : "Roger Bell_West", - "id" : "Roger Bell_West", "data" : [ [ "Perl", @@ -617,11 +624,11 @@ "Blog", 1 ] - ] + ], + "id" : "Roger Bell_West" }, { "id" : "Simon Green", - "name" : "Simon Green", "data" : [ [ "Perl", @@ -631,9 +638,21 @@ "Blog", 1 ] + ], + "name" : "Simon Green" + }, + { + "id" : "Steven Wilson", + "name" : "Steven Wilson", + "data" : [ + [ + "Perl", + 1 + ] ] }, { + "id" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -644,11 +663,9 @@ 2 ] ], - "name" : "Ulrich Rieke", - "id" : "Ulrich Rieke" + "name" : "Ulrich Rieke" }, { - "id" : "W. Luis Mochan", "name" : "W. Luis Mochan", "data" : [ [ @@ -659,21 +676,19 @@ "Blog", 1 ] - ] + ], + "id" : "W. Luis Mochan" }, { - "id" : "Wanderdoc", "name" : "Wanderdoc", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Wanderdoc" } ] - }, - "title" : { - "text" : "The Weekly Challenge - 140" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 3fbec3be36..d297df3926 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,21 +1,27 @@ { - "title" : { - "text" : "The Weekly Challenge Contributions [2019 - 2021]" - }, - "tooltip" : { - "pointFormat" : "{point.y:.0f}" - }, - "chart" : { - "type" : "column" - }, "yAxis" : { "min" : 0, "title" : { "text" : null } }, + "subtitle" : { + "text" : "Last updated at 2021-11-29 15:57:54 GMT" + }, "series" : [ { + "dataLabels" : { + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + }, + "enabled" : "true", + "y" : 10, + "rotation" : -90, + "format" : "{point.y:.0f}", + "align" : "right", + "color" : "#FFFFFF" + }, "data" : [ [ "Blog", @@ -23,31 +29,16 @@ ], [ "Perl", - 6753 + 6754 ], [ "Raku", 4099 ] ], - "dataLabels" : { - "align" : "right", - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - }, - "enabled" : "true", - "format" : "{point.y:.0f}", - "rotation" : -90, - "color" : "#FFFFFF", - "y" : 10 - }, "name" : "Contributions" } ], - "legend" : { - "enabled" : "false" - }, "xAxis" : { "labels" : { "style" : { @@ -57,7 +48,16 @@ }, "type" : "category" }, - "subtitle" : { - "text" : "Last updated at 2021-11-29 08:28:28 GMT" + "title" : { + "text" : "The Weekly Challenge Contributions [2019 - 2021]" + }, + "tooltip" : { + "pointFormat" : "{point.y:.0f}" + }, + "legend" : { + "enabled" : "false" + }, + "chart" : { + "type" : "column" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 4a7a71cc5a..8c8b9c920f 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,9 +1,20 @@ { + "tooltip" : { + "followPointer" : "true", + "pointFormat" : "Challenge {point.name}: {point.y:f}
", + "headerFormat" : "" + }, + "xAxis" : { + "type" : "category" + }, + "title" : { + "text" : "The Weekly Challenge Language" + }, "drilldown" : { "series" : [ { - "name" : "001", "id" : "001", + "name" : "001", "data" : [ [ "Perl", @@ -20,7 +31,6 @@ ] }, { - "id" : "002", "name" : "002", "data" : [ [ @@ -35,7 +45,8 @@ "Blog", 10 ] - ] + ], + "id" : "002" }, { "id" : "003", @@ -70,12 +81,10 @@ 10 ] ], - "id" : "004", - "name" : "004" + "name" : "004", + "id" : "004" }, { - "id" : "005", - "name" : "005", "data" : [ [ "Perl", @@ -89,10 +98,11 @@ "Blog", 12 ] - ] + ], + "name" : "005", + "id" : "005" }, { - "name" : "006", "id" : "006", "data" : [ [ @@ -107,11 +117,12 @@ "Blog", 7 ] - ] + ], + "name" : "006" }, { - "name" : "007", "id" : "007", + "name" : "007", "data" : [ [ "Perl", @@ -128,6 +139,7 @@ ] }, { + "name" : "008", "data" : [ [ "Perl", @@ -142,7 +154,6 @@ 12 ] ], - "name" : "008", "id" : "008" }, { @@ -164,6 +175,8 @@ "id" : "009" }, { + "id" : "010", + "name" : "010", "data" : [ [ "Perl", @@ -177,9 +190,7 @@ "Blog", 11 ] - ], - "id" : "010", - "name" : "010" + ] }, { "data" : [ @@ -196,10 +207,11 @@ 10 ] ], - "id" : "011", - "name" : "011" + "name" : "011", + "id" : "011" }, { + "id" : "012", "data" : [ [ "Perl", @@ -214,11 +226,9 @@ 11 ] ], - "name" : "012", - "id" : "012" + "name" : "012" }, { - "name" : "013", "id" : "013", "data" : [ [ @@ -233,9 +243,11 @@ "Blog", 13 ] - ] + ], + "name" : "013" }, { + "name" : "014", "data" : [ [ "Perl", @@ -250,10 +262,10 @@ 15 ] ], - "id" : "014", - "name" : "014" + "id" : "014" }, { + "id" : "015", "data" : [ [ "Perl", @@ -268,10 +280,11 @@ 15 ] ], - "name" : "015", - "id" : "015" + "name" : "015" }, { + "id" : "016", + "name" : "016", "data" : [ [ "Perl", @@ -285,9 +298,7 @@ "Blog", 12 ] - ], - "id" : "016", - "name" : "016" + ] }, { "id" : "017", @@ -308,8 +319,8 @@ ] }, { - "name" : "018", "id" : "018", + "name" : "018", "data" : [ [ "Perl", @@ -326,8 +337,6 @@ ] }, { - "name" : "019", - "id" : "019", "data" : [ [ "Perl", @@ -341,7 +350,9 @@ "Blog", 13 ] - ] + ], + "name" : "019", + "id" : "019" }, { "id" : "020", @@ -362,7 +373,6 @@ ] }, { - "name" : "021", "id" : "021", "data" : [ [ @@ -377,7 +387,8 @@ "Blog", 10 ] - ] + ], + "name" : "021" }, { "data" : [ @@ -394,10 +405,11 @@ 10 ] ], - "id" : "022", - "name" : "022" + "name" : "022", + "id" : "022" }, { + "id" : "023", "data" : [ [ "Perl", @@ -412,12 +424,11 @@ 12 ] ], - "name" : "023", - "id" : "023" + "name" : "023" }, { - "name" : "024", "id" : "024", + "name" : "024", "data" : [ [ "Perl", @@ -434,8 +445,8 @@ ] }, { - "name" : "025", "id" : "025", + "name" : "025", "data" : [ [ "Perl", @@ -452,6 +463,8 @@ ] }, { + "id" : "026", + "name" : "026", "data" : [ [ "Perl", @@ -465,11 +478,11 @@ "Blog", 10 ] - ], - "name" : "026", - "id" : "026" + ] }, { + "id" : "027", + "name" : "027", "data" : [ [ "Perl", @@ -483,12 +496,9 @@ "Blog", 9 ] - ], - "name" : "027", - "id" : "027" + ] }, { - "id" : "028", "name" : "028", "data" : [ [ @@ -503,9 +513,12 @@ "Blog", 9 ] - ] + ], + "id" : "028" }, { + "id" : "029", + "name" : "029", "data" : [ [ "Perl", @@ -519,13 +532,9 @@ "Blog", 12 ] - ], - "id" : "029", - "name" : "029" + ] }, { - "name" : "030", - "id" : "030", "data" : [ [ "Perl", @@ -539,9 +548,12 @@ "Blog", 10 ] - ] + ], + "name" : "030", + "id" : "030" }, { + "id" : "031", "data" : [ [ "Perl", @@ -556,8 +568,7 @@ 9 ] ], - "name" : "031", - "id" : "031" + "name" : "031" }, { "id" : "032", @@ -578,8 +589,6 @@ ] }, { - "id" : "033", - "name" : "033", "data" : [ [ "Perl", @@ -593,9 +602,13 @@ "Blog", 10 ] - ] + ], + "name" : "033", + "id" : "033" }, { + "id" : "034", + "name" : "034", "data" : [ [ "Perl", @@ -609,11 +622,10 @@ "Blog", 11 ] - ], - "id" : "034", - "name" : "034" + ] }, { + "id" : "035", "data" : [ [ "Perl", @@ -628,8 +640,7 @@ 9 ] ], - "name" : "035", - "id" : "035" + "name" : "035" }, { "id" : "036", @@ -650,6 +661,7 @@ ] }, { + "name" : "037", "data" : [ [ "Perl", @@ -664,8 +676,7 @@ 9 ] ], - "id" : "037", - "name" : "037" + "id" : "037" }, { "data" : [ @@ -682,10 +693,12 @@ 12 ] ], - "id" : "038", - "name" : "038" + "name" : "038", + "id" : "038" }, { + "id" : "039", + "name" : "039", "data" : [ [ "Perl", @@ -699,13 +712,9 @@ "Blog", 12 ] - ], - "id" : "039", - "name" : "039" + ] }, { - "id" : "040", - "name" : "040", "data" : [ [ "Perl", @@ -719,11 +728,12 @@ "Blog", 10 ] - ] + ], + "name" : "040", + "id" : "040" }, { "id" : "041", - "name" : "041", "data" : [ [ "Perl", @@ -737,11 +747,10 @@ "Blog", 9 ] - ] + ], + "name" : "041" }, { - "name" : "042", - "id" : "042", "data" : [ [ "Perl", @@ -755,11 +764,12 @@ "Blog", 11 ] - ] + ], + "name" : "042", + "id" : "042" }, { "name" : "