From 1a5ee1eb5296a02265f7c83b177f50a4761e01b8 Mon Sep 17 00:00:00 2001
From: boblied <boblied@gmail.com>
Date: Fri, 5 Mar 2021 06:47:38 -0600
Subject: PWC 102 Task 1, Rare Numbers

---
 challenge-102/bob-lied/perl/ch-1.pl | 154 ++++++++++++++++++++++++++++++++++++
 1 file changed, 154 insertions(+)
 create mode 100755 challenge-102/bob-lied/perl/ch-1.pl

diff --git a/challenge-102/bob-lied/perl/ch-1.pl b/challenge-102/bob-lied/perl/ch-1.pl
new file mode 100755
index 0000000000..4b9007cd1d
--- /dev/null
+++ b/challenge-102/bob-lied/perl/ch-1.pl
@@ -0,0 +1,154 @@
+#!/usr/bin/env perl
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# ch-1.pl
+#=============================================================================
+# Copyright (c) 2021, Bob Lied
+#=============================================================================
+# Perl Weekly Challenge 102, Task #1, Rare Numbers
+#
+# You are given a positive integer $N.
+# Write a script to generate all Rare numbers of size $N if exists.
+# http://www.shyamsundergupta.com/rare.htm
+# The web site lists several constraints that can be used to limit the search.
+# Also discussed at https://rosettacode.org/wiki/Talk:Rare_numbers
+# Examples
+# (a) 2 digits: 65
+# (b) 6 digits: 621770
+# (c) 9 digits: 281089082
+#
+# From the reference web site:
+# The numbers, which gives a perfect square on adding as well as subtracting
+# its reverse are rare and hence termed as Rare Numbers.
+# 
+# If R is a positive integer and R1 is the integer obtained from R by writing
+# its decimal digits in reverse order, then if R + R1 and R - R1 both are
+# perfect square then R is termed as Rare Number.
+# 
+# So for R to be a Rare Number we must have
+# R + R1 = X^2 and R - R1 = Y^2
+# 
+# For example: For R=65, R1=56
+# R+R1 = 65+56 = 121 = 11^2   AND    R-R1 = 65 - 56 = 9 = 3^2
+#
+#=============================================================================
+
+use strict;
+use warnings;
+use 5.020;
+
+use experimental qw/ signatures /;
+
+use Getopt::Long;
+
+my $doTest = 0;
+my $verbose = 0;
+GetOptions("test" => \$doTest, "verbose" => \&verbose);
+
+my $N = shift;
+
+# On my MacBook M1, perl 5.32, 8 takes about 7 seconds and 9 takes about 1:15
+# 10 is probably feasible, maybe 11 for the giftedly patient, but beyond that
+# needs some kind of parallelism or an algorithm I wasn't able to think of.
+die Usage() unless defined $N && $N > 1 && $N < 20;
+warn "Expect this to take a long time ..." if $N > 8;
+
+# The last digit can never be 1,4,6,9
+my @mightBeRare   = ( 1, 0, 1, 1, 0, 1, 0, 1, 1, 0 );
+
+# A perfect square can never end in 2,3,7,8
+my @mightBeSquare = ( 1, 1, 0, 0, 1, 1, 1, 0, 0, 1 );
+
+my $isNodd = $N % 2;    # Optimization possible for even or odd digits.
+
+# Cache results of square root test here.
+my %knownSquare;
+
+# For example, if N = 3, max is 1000, but we want 100 at a time.
+my $scale = 10**($N-1);
+
+# Rare numbers can never start with an odd digit, so work on
+# only groups that start with an even digit.
+# Creates pairs of start and end.
+my @boundary = map { [ $_ * 2 * $scale, $_ * 2 * $scale + $scale - 1 ] } 1..4;
+
+# Use faster integer math everywhere except where we need the square root.
+use integer;
+
+for my $bound ( @boundary )
+{
+    my $endOfRange = $bound->[1];   # Hoist array access out of loop processing.
+    R: for ( my $r = $bound->[0] ; $r <= $endOfRange ; $r++ )
+    {
+        # say "$r ", scalar(time()) if $r % 10000000 == 0; # Progress mark
+
+        # The last digit can never be 1,4,6,9
+        next unless $mightBeRare[ $r%10 ];
+
+        my $r1;
+        $r1 = reverse($r);   # String beats math
+       ##{   use integer;
+       ##    my $n = $r; $r1 = 0;
+       ##    while ( $n )
+       ##    {
+       ##        $r1 = $r1 * 10 + $n%10;
+       ##        $n /= 10;
+       ##    }
+       ##}
+
+        my $y2 = $r - $r1;
+        next if $y2 < 0;    # No imaginary numbers.
+        next unless $mightBeSquare[ $y2 % 10];
+
+        my $x2 = $r + $r1;
+        next unless $mightBeSquare[ $x2 % 10];
+
+        # If R consist of odd number of digits, then R-R1 must be divisible by 11.
+        # Since R-R1 is always divisible by 9, So 1089 (33^2) must be a factor of Y2.
+        # 
+        # If R consist of even number of digits, then R+R1 must be divisible by 11,
+        # So 121 must be a factor of X2.
+        if ( $isNodd )
+        {
+            next if $y2 % 1089;
+        }
+        else
+        {
+            next if $x2 % 121;
+        }
+
+        # Save the expensive square root computation for last.
+
+        # Caching wasn't effective.  Either the overhead of hash lookup was not
+        # much better than the cost of the sqrt function, or there aren't many
+        # cache hits.  And memory could blow up for large N.
+      # if ( exists $knownSquare{$x2} )
+      # {
+      #     next unless $knownSquare{$x2};
+      # }
+      # else
+      # {
+      #     my $x = sqrt($x2);
+      #     next unless ($knownSquare{$x2} = (int($x) == $x));
+      # }
+
+      # if ( exists $knownSquare{$y2} )
+      # {
+      #     next unless $knownSquare{$y2};
+      # }
+      # else
+      # {
+      #     my $y = sqrt($y2);
+      #     next unless ($knownSquare{$y2} = (int($y) == $y));
+      # }
+
+        { no integer;
+            my $x = sqrt($x2);
+            next R unless int($x) == $x;
+            my $y = sqrt($y2);
+            next R unless int($y) == $y;
+        }
+
+        say "R: $r";
+    }
+}
-- 
cgit 


From 199d363b79e769bf8dc150bf37228395bfbb4d16 Mon Sep 17 00:00:00 2001
From: boblied <boblied@gmail.com>
Date: Fri, 5 Mar 2021 06:47:55 -0600
Subject: PWC 102 Task 1, Rare Numbers, in C

---
 challenge-102/bob-lied/c/ch-1.c | 82 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 82 insertions(+)
 create mode 100644 challenge-102/bob-lied/c/ch-1.c

diff --git a/challenge-102/bob-lied/c/ch-1.c b/challenge-102/bob-lied/c/ch-1.c
new file mode 100644
index 0000000000..1ff39d59ec
--- /dev/null
+++ b/challenge-102/bob-lied/c/ch-1.c
@@ -0,0 +1,82 @@
+/* vim:set ts=4 sw=4 sts=4 et ai wm=0 nu syntax=c: */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+
+int verbose = 1;
+
+int mightBeRare[10]   = { 1, 0, 1, 1, 0, 1, 0, 1, 1, 0 };
+
+int mightBeSquare[10] = { 1, 1, 0, 0, 1, 1, 1, 0, 0, 1 };
+
+long
+reverse(long r)
+{
+    long r1 = 0;
+    while ( r )
+    {
+        r1 = r1 * 10 + r%10;
+        r /= 10;
+    }
+    return r1;
+}
+
+
+int
+main(int argc, char **argv)
+{
+    int N;
+
+    N = atoi(argv[1]);
+
+    int isNodd = N % 2;
+
+    long scale = pow(10, (N-1));
+    long endOfRange = pow(10, N);
+
+    for ( long r = scale ; r < endOfRange ; r++ )
+    {
+        // Rare numbers can never start with an odd digit.
+        if ( (r / scale ) % 2 )
+        {
+            r += scale;
+        }
+
+// if ( r % 10000000 == 0 ) printf("%ld\n", r);
+
+        if ( ! mightBeRare[ r % 10 ] )
+        {
+            continue;
+        }
+
+        long r1 = reverse(r);
+
+        long y2 = r - r1;
+        if ( y2 < 0 ) continue; // Can't be a square
+
+        long x2 = r + r1;
+
+        if ( !( mightBeSquare[ x2%10]  &&  mightBeSquare[ y2%10 ] ) )  continue;
+
+        if ( isNodd )
+        {
+            if ( y2 % 1089 ) continue;
+        }
+        else
+        {
+            if ( x2 % 121 ) continue;
+        }
+
+        double x = sqrt(x2);
+        if ( x != (long)(x) ) continue;
+
+        double y = sqrt(y2);
+        if ( y != (long)(y) ) continue;
+
+        printf("N=%d R=%ld\n", N, r);
+    }
+
+
+    exit(0);
+}
-- 
cgit 


From dd79a8e231f498fd523607fee867983a267d920c Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Mon, 8 Mar 2021 13:51:19 +0800
Subject: add test data for my slow challenge-102 ch-1.pl

---
 challenge-102/cheok-yin-fung/perl/ch-1.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/challenge-102/cheok-yin-fung/perl/ch-1.pl b/challenge-102/cheok-yin-fung/perl/ch-1.pl
index eab209da06..2a6a02127e 100644
--- a/challenge-102/cheok-yin-fung/perl/ch-1.pl
+++ b/challenge-102/cheok-yin-fung/perl/ch-1.pl
@@ -55,3 +55,17 @@ for my $k ($bN..$eN) {
 # reasonable time for length = 7 ,
 # be patient for length = 8 (one term, which is palindromic)
 # over 2 min and killed for length = 9 ...
+
+=pod
+// add on March 8th
+$ time perl ch-1.pl 9
+200040002
+204060402
+242484242
+281089082
+291080192
+
+real	10m21.188s
+user	10m19.621s
+sys	0m0.084s
+=cut
-- 
cgit 


From 7877e9b3bfc9828b587daf80fdc232d4604f5abf Mon Sep 17 00:00:00 2001
From: Yet Ebreo <yet.ebreo@gmail.com>
Date: Mon, 8 Mar 2021 23:22:45 +0800
Subject: Added perl solution ch102-2

---
 challenge-102/yet-ebreo/perl/ch-2.pl | 37 ++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 challenge-102/yet-ebreo/perl/ch-2.pl

diff --git a/challenge-102/yet-ebreo/perl/ch-2.pl b/challenge-102/yet-ebreo/perl/ch-2.pl
new file mode 100644
index 0000000000..4197f1d406
--- /dev/null
+++ b/challenge-102/yet-ebreo/perl/ch-2.pl
@@ -0,0 +1,37 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use feature qw(say);
+
+
+# You are given a positive integer $N.
+
+# Write a script to produce Hash-counting string of that length.
+
+# The definition of a hash-counting string is as follows:
+
+# - the string consists only of digits 0-9 and hashes, ‘#’
+# - there are no two consecutive hashes: ‘##’ does not appear in your string
+# - the last character is a hash
+# - the number immediately preceding each hash (if it exists) is the position of that hash in the string, with the position being counted up from 1
+# It can be shown that for every positive integer N there is exactly one such length-N string.
+
+# Examples:
+# (a) "#" is the counting string of length 1
+# (b) "2#" is the counting string of length 2
+# (c) "#3#" is the string of length 3
+# (d) "#3#5#7#10#" is the string of length 10
+# (e) "2#4#6#8#11#14#" is the string of length 14
+
+my $N = $ARGV[0] || 2;
+my $out = "";
+
+while ($N) {
+    $out = ($N>1?"$N":"")."#$out";
+    $N   = $ARGV[0] - length $out;
+}
+
+
+say $out;
+
-- 
cgit 


From f7356b14dfd9d99bbd154ae71b77338a97025da1 Mon Sep 17 00:00:00 2001
From: Roger Bell_West <roger@firedrake.org>
Date: Mon, 8 Mar 2021 15:52:40 +0000
Subject: Solutions for challenge #103

---
 challenge-103/roger-bell-west/perl/ch-1.pl   | 24 ++++++++++++++
 challenge-103/roger-bell-west/perl/ch-2.pl   | 32 +++++++++++++++++++
 challenge-103/roger-bell-west/python/ch-1.py | 22 +++++++++++++
 challenge-103/roger-bell-west/python/ch-2.py | 31 ++++++++++++++++++
 challenge-103/roger-bell-west/raku/ch-1.p6   | 22 +++++++++++++
 challenge-103/roger-bell-west/raku/ch-2.p6   | 34 ++++++++++++++++++++
 challenge-103/roger-bell-west/ruby/ch-1.rb   | 28 +++++++++++++++++
 challenge-103/roger-bell-west/ruby/ch-2.rb   | 34 ++++++++++++++++++++
 challenge-103/roger-bell-west/rust/ch-1.rs   | 29 +++++++++++++++++
 challenge-103/roger-bell-west/rust/ch-2.rs   | 47 ++++++++++++++++++++++++++++
 challenge-103/roger-bell-west/t2.csv         |  7 +++++
 11 files changed, 310 insertions(+)
 create mode 100755 challenge-103/roger-bell-west/perl/ch-1.pl
 create mode 100755 challenge-103/roger-bell-west/perl/ch-2.pl
 create mode 100755 challenge-103/roger-bell-west/python/ch-1.py
 create mode 100755 challenge-103/roger-bell-west/python/ch-2.py
 create mode 100755 challenge-103/roger-bell-west/raku/ch-1.p6
 create mode 100755 challenge-103/roger-bell-west/raku/ch-2.p6
 create mode 100755 challenge-103/roger-bell-west/ruby/ch-1.rb
 create mode 100755 challenge-103/roger-bell-west/ruby/ch-2.rb
 create mode 100755 challenge-103/roger-bell-west/rust/ch-1.rs
 create mode 100644 challenge-103/roger-bell-west/rust/ch-2.rs
 create mode 100644 challenge-103/roger-bell-west/t2.csv

diff --git a/challenge-103/roger-bell-west/perl/ch-1.pl b/challenge-103/roger-bell-west/perl/ch-1.pl
new file mode 100755
index 0000000000..53d6dcaf63
--- /dev/null
+++ b/challenge-103/roger-bell-west/perl/ch-1.pl
@@ -0,0 +1,24 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+is(cz(2017),'Fire Rooster','example 1');
+is(cz(1938),'Earth Tiger','example 2');
+
+sub cz {
+  my $yy=shift;
+  my $y=$yy;
+  if ($y<0) {
+    $y++;
+  }
+  $y%=60;
+  while ($y<0) {
+    $y+=60;
+  }
+  return join(' ',
+              [qw(Metal Water Wood Fire Earth)]->[int($y/2)%5],
+              [qw(Monkey Rooster Dog Pig Rat),'Water Buffalo',qw(Tiger Cat Dragon Snake Horse Goat)]->[$y%12]);
+}
diff --git a/challenge-103/roger-bell-west/perl/ch-2.pl b/challenge-103/roger-bell-west/perl/ch-2.pl
new file mode 100755
index 0000000000..a99a672b78
--- /dev/null
+++ b/challenge-103/roger-bell-west/perl/ch-2.pl
@@ -0,0 +1,32 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+is(wp(1606134123,1614591276,'t2.csv'),'00:10:24 Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)','example 1');
+
+use Text::CSV_XS qw(csv);
+use List::Util qw(sum);
+
+sub wp {
+  my $ts=shift;
+  my $tn=shift;
+  my $csvfile=shift;
+  my $td=($tn-$ts)*1000;
+  my $aoa=csv(in => $csvfile);
+  my $tp=sum(map {$_->[0]} @{$aoa});
+  $td %= $tp;
+  foreach my $t (@{$aoa}) {
+    if ($td < $t->[0]) {
+      $td=int($td/1000);
+      my $h=int($td/3600);
+      my $m=int($td/60) % 60;
+      my $s=$td % 60;
+      return sprintf('%02d:%02d:%02d %s',$h,$m,$s,$t->[1]);
+    } else {
+      $td-=$t->[0];
+    }
+  }
+}
diff --git a/challenge-103/roger-bell-west/python/ch-1.py b/challenge-103/roger-bell-west/python/ch-1.py
new file mode 100755
index 0000000000..92708e26fa
--- /dev/null
+++ b/challenge-103/roger-bell-west/python/ch-1.py
@@ -0,0 +1,22 @@
+#! /usr/bin/python3
+
+def cz(yy):
+    y=int(yy)
+    if y<0:
+        y += 1
+    y %= 60
+    while y<0:
+        y += 60
+    return " ".join([['Metal','Water','Wood','Fire','Earth'][int(y/2)%5],['Monkey','Rooster','Dog','Pig','Rat','Water Buffalo','Tiger','Cat','Dragon','Snake','Horse','Goat'][y%12]])
+
+import unittest
+
+class TestCz(unittest.TestCase):
+
+        def test_ex1(self):
+            self.assertEqual(cz(2017),'Fire Rooster','example 1')
+
+        def test_ex2(self):
+            self.assertEqual(cz(1938),'Earth Tiger','example 2')
+
+unittest.main()
diff --git a/challenge-103/roger-bell-west/python/ch-2.py b/challenge-103/roger-bell-west/python/ch-2.py
new file mode 100755
index 0000000000..eb804da2eb
--- /dev/null
+++ b/challenge-103/roger-bell-west/python/ch-2.py
@@ -0,0 +1,31 @@
+#! /usr/bin/python3
+
+import csv
+def wp(ts,tn,csvfile):
+    td=(tn-ts)*1000;
+    aoa=list()
+    with open(csvfile) as csvfile:
+        cr=csv.reader(csvfile)
+        for row in cr:
+            aoa.append(row)
+    tp=sum(int(t[0]) for t in aoa)
+    td %= tp
+    for t in aoa:
+        t[0]=int(t[0])
+        if td < t[0]:
+            td=int(td/1000)
+            h=int(td/3600)
+            m=int(td/60) % 60
+            s=td % 60
+            return "{:02d}:{:02d}:{:02d} {:s}".format(h,m,s,t[1])
+        else:
+            td -= t[0]
+
+import unittest
+
+class TestWp(unittest.TestCase):
+
+        def test_ex1(self):
+            self.assertEqual(wp(1606134123,1614591276,'t2.csv'),'00:10:24 Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)','example 1')
+
+unittest.main()
diff --git a/challenge-103/roger-bell-west/raku/ch-1.p6 b/challenge-103/roger-bell-west/raku/ch-1.p6
new file mode 100755
index 0000000000..f75cbe4054
--- /dev/null
+++ b/challenge-103/roger-bell-west/raku/ch-1.p6
@@ -0,0 +1,22 @@
+#! /usr/bin/perl6
+
+use Test;
+
+plan 2;
+
+is(cz(2017),'Fire Rooster','example 1');
+is(cz(1938),'Earth Tiger','example 2');
+
+sub cz($yy) {
+  my $y=$yy;
+  if ($y < 0) {
+    $y++;
+  }
+  $y%=60;
+  while ($y < 0) {
+    $y+=60;
+  }
+  return join(' ',
+    [qw|Metal Water Wood Fire Earth|].[floor($y/2)%5],
+    ['Monkey','Rooster','Dog','Pig','Rat','Water Buffalo','Tiger','Cat','Dragon','Snake','Horse','Goat'].[$y%12]);
+}
diff --git a/challenge-103/roger-bell-west/raku/ch-2.p6 b/challenge-103/roger-bell-west/raku/ch-2.p6
new file mode 100755
index 0000000000..5ed63d1a47
--- /dev/null
+++ b/challenge-103/roger-bell-west/raku/ch-2.p6
@@ -0,0 +1,34 @@
+#! /usr/bin/perl6
+
+use Test;
+
+plan 1;
+
+is(wp(1606134123,1614591276,'t2.csv'),'00:10:24 Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)','example 1');
+
+sub wp($ts,$tn,$csvfile) {
+  my $td=($tn-$ts)*1000;
+  my $fh=open :r,$csvfile;
+  my @aoa;
+  for $fh.lines {
+    .chomp;
+    my ($len,$title)=$_.comb(/<-[,]>+/,2);
+    $title ~~ s/^\"//;
+    $title ~~ s/\"$//;
+    @aoa.push([$len,$title]);
+  }
+  my $tp=sum(map {$_[0]},@aoa);
+  $td %= $tp;
+  for @aoa -> @t {
+    if ($td < @t[0]) {
+      $td=floor($td/1000);
+      my $h=floor($td/3600);
+      my $m=floor($td/60) % 60;
+      my $s=$td % 60;
+      return sprintf('%02d:%02d:%02d %s',$h,$m,$s,@t[1]);
+    } else {
+      $td-=@t[0];
+    }
+  }
+}
+
diff --git a/challenge-103/roger-bell-west/ruby/ch-1.rb b/challenge-103/roger-bell-west/ruby/ch-1.rb
new file mode 100755
index 0000000000..7b335d9cbe
--- /dev/null
+++ b/challenge-103/roger-bell-west/ruby/ch-1.rb
@@ -0,0 +1,28 @@
+#! /usr/bin/ruby
+
+def cz(yy)
+  y=yy
+  if y<0 then
+    y += 1
+  end
+  y = y % 60
+  while y<0
+    y += 60
+  end
+  return [['Metal','Water','Wood','Fire','Earth'][(y/2).floor%5],
+          ['Monkey','Rooster','Dog','Pig','Rat','Water Buffalo','Tiger','Cat','Dragon','Snake','Horse','Goat'][y%12]].join(' ')
+end
+
+require 'test/unit'
+
+class TestCz < Test::Unit::TestCase
+
+  def test_ex1
+    assert_equal('Fire Rooster',cz(2017))
+  end
+
+  def test_ex2
+    assert_equal('Earth Tiger',cz(1938))
+  end
+
+end
diff --git a/challenge-103/roger-bell-west/ruby/ch-2.rb b/challenge-103/roger-bell-west/ruby/ch-2.rb
new file mode 100755
index 0000000000..85778e0927
--- /dev/null
+++ b/challenge-103/roger-bell-west/ruby/ch-2.rb
@@ -0,0 +1,34 @@
+#! /usr/bin/ruby
+
+require 'csv'
+
+def wp(ts,tn,csvfile)
+  td=(tn-ts)*1000
+  aoa=Array.new
+  CSV.foreach(csvfile) do |row|
+    aoa.push([row[0].to_i,row[1]])
+  end
+  tp=aoa.map{|t| t[0]}.sum
+  td=td%tp
+  aoa.each do |t|
+    if td<t[0] then
+      td=(td/1000).floor
+      h=(td/3600).floor
+      m=(td/60).floor % 60
+      s=td % 60
+      return sprintf('%02d:%02d:%02d %s',h,m,s,t[1])
+    else
+      td -= t[0]
+    end
+  end
+end
+
+require 'test/unit'
+
+class TestWp < Test::Unit::TestCase
+
+  def test_ex1
+    assert_equal('00:10:24 Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)',wp(1606134123,1614591276,'t2.csv'))
+  end
+
+end
diff --git a/challenge-103/roger-bell-west/rust/ch-1.rs b/challenge-103/roger-bell-west/rust/ch-1.rs
new file mode 100755
index 0000000000..9d3efc7884
--- /dev/null
+++ b/challenge-103/roger-bell-west/rust/ch-1.rs
@@ -0,0 +1,29 @@
+#! /bin/sh
+//usr/bin/env rustc --test $0 -o ${0}x && ./${0}x; rm -f ${0}x ; exit
+
+#[test]
+fn test_ex1() {
+    assert_eq!(cz(2017),"Fire Rooster");
+}
+
+#[test]
+fn test_ex2() {
+    assert_eq!(cz(1938),"Earth Tiger");
+}
+
+fn cz(yy: i32) -> String {
+    let mut y: i32=yy;
+    if y<0 {
+        y += 1;
+    }
+    y %= 60;
+    while y<0 {
+        y += 60;
+    }
+    let yu: usize=y as usize;
+    let mut out="".to_string();
+    out.push_str(vec!["Metal","Water","Wood","Fire","Earth"][(yu/2)%5]);
+    out.push_str(" ");
+    out.push_str(vec!["Monkey","Rooster","Dog","Pig","Rat","Water Buffalo","Tiger","Cat","Dragon","Snake","Horse","Goat"][yu%12]);
+    return out;
+}
diff --git a/challenge-103/roger-bell-west/rust/ch-2.rs b/challenge-103/roger-bell-west/rust/ch-2.rs
new file mode 100644
index 0000000000..c1b2015c9e
--- /dev/null
+++ b/challenge-103/roger-bell-west/rust/ch-2.rs
@@ -0,0 +1,47 @@
+// Cargo.toml needs:
+// [dependencies]
+// csv = "1.1"
+
+use std::fs::File;
+
+#[test]
+fn test_ex1() {
+    assert_eq!(wp(1606134123,1614591276,"t2.csv"),"00:10:24 Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)");
+}
+
+pub struct Track {
+    length: i64,
+    title: String
+}
+
+fn wp (ts: i64,tn: i64,csvfile: &str) -> String {
+    let mut td: i64=(tn-ts)*1000;
+    let file=File::open(&csvfile).unwrap();
+    let mut rdr = csv::ReaderBuilder::new()
+        .has_headers(false)
+        .from_reader(file);
+    let mut aoa: Vec<Track>=vec![];
+    for result in rdr.records() {
+        let record = result.unwrap();
+        aoa.push(Track {
+            length: record.get(0).unwrap().parse::<i64>().unwrap(),
+            title: record.get(1).unwrap().to_string()
+        });
+    }
+    let tp: i64=aoa.iter()
+        .map(|t| t.length)
+        .sum();
+    td %= tp;
+    for t in aoa {
+        if td < t.length {
+            td=td/1000;
+            let h=td/3600;
+            let m=(td/60) % 60;
+            let s=td % 60;
+            return format!("{:02}:{:02}:{:02} {}",h,m,s,t.title);
+        } else {
+            td -= t.length;
+        }
+    }
+    return "".to_string();
+}
diff --git a/challenge-103/roger-bell-west/t2.csv b/challenge-103/roger-bell-west/t2.csv
new file mode 100644
index 0000000000..4d66b079d7
--- /dev/null
+++ b/challenge-103/roger-bell-west/t2.csv
@@ -0,0 +1,7 @@
+1709363,"Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+1723781,"Les Miserables Episode 2: Javert (broadcast date: 1937-07-30)"
+1723781,"Les Miserables Episode 3: The Trial (broadcast date: 1937-08-06)"
+1678356,"Les Miserables Episode 4: Cosette (broadcast date: 1937-08-13)"
+1646043,"Les Miserables Episode 5: The Grave (broadcast date: 1937-08-20)"
+1714640,"Les Miserables Episode 6: The Barricade (broadcast date: 1937-08-27)"
+1714640,"Les Miserables Episode 7: Conclusion (broadcast date: 1937-09-03)"
-- 
cgit 


From 97b6868b492a7e9991c9e489b51b9da4aed2062e Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 8 Mar 2021 11:06:35 -0500
Subject: 1st commit on 103_haskell

---
 challenge-103/stuart-little/haskell/ch-1.hs | 21 +++++++++++++++++
 challenge-103/stuart-little/haskell/ch-2.hs | 36 +++++++++++++++++++++++++++++
 2 files changed, 57 insertions(+)
 create mode 100755 challenge-103/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-103/stuart-little/haskell/ch-2.hs

diff --git a/challenge-103/stuart-little/haskell/ch-1.hs b/challenge-103/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..695d6e2d62
--- /dev/null
+++ b/challenge-103/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,21 @@
+#!/usr/bin/env runghc
+
+-- run <script> <year>
+
+import System.Environment (getArgs)
+
+animal :: [a] -> Int -> Int -> a
+animal animals year base = (!!) animals $ mod (year - base) $ length animals
+
+elt :: [a] -> Int -> Int -> a
+elt elts year base = (!!) elts $ flip div 2 $ mod (year - base) $ 2*(length elts)
+
+animals :: [String]
+animals = ["Rat", "Ox", "Tiger", "Rabbit", "Dragon", "Snake", "Horse", "Goat", "Monkey", "Rooster", "Dog", "Pig"]
+
+elts :: [String]
+elts=["Wood", "Fire", "Earth", "Metal", "Water"];
+
+main = do
+  yr <- getArgs >>= return . (read::String->Int) . head
+  putStrLn $ (elt elts yr 1924) ++ " " ++ (animal animals yr 1924)
diff --git a/challenge-103/stuart-little/haskell/ch-2.hs b/challenge-103/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..34ecc4fa5e
--- /dev/null
+++ b/challenge-103/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,36 @@
+#!/usr/bin/env runghc
+
+-- run <script> <start time as unix epoch> <current time as unix epoch> <path-to-csv>
+
+import Data.List.Split (splitOn)
+import System.Environment (getArgs)
+
+fromCSV :: String -> IO [(Integer,String)]
+fromCSV pth = readFile pth >>= return . map (\(t:f:_)->((read::String->Integer) t, f)) . map (splitOn ",") . lines
+
+totPlayTime :: [(Integer,a)] -> Integer
+totPlayTime = sum . map fst
+
+cvToTime :: Integer -> (Integer,Integer,Integer)
+cvToTime millisecs = (h,m,s) where
+  totSecs = round $ (fromIntegral millisecs) / 1000
+  s = mod totSecs 60
+  m = mod (div totSecs 60) 60
+  h = div (totSecs - m*60 - s) (60^2)
+
+whichPlaying :: Integer -> [(Integer,a)] -> a
+whichPlaying tdiff files
+  |tdiff <= (fst . head) files = snd $ head files
+  |otherwise = whichPlaying (tdiff - (fst.head) files) $ drop 1 files
+
+wherePlaying :: Integer -> [(Integer,a)] -> (Integer,Integer,Integer)
+wherePlaying tdiff files = cvToTime $ mod tdiff $ totPlayTime files  
+  
+main = do
+  (sinit:snow:pth:_) <- getArgs  
+  files <- fromCSV pth
+  let (init:now:_) = map (read::String->Integer) [sinit,snow]
+      tdiff = mod (1000*(now-init)) $ totPlayTime files
+      (h,m,s) = wherePlaying tdiff files
+      playingFile = whichPlaying tdiff files
+  putStrLn $ "\nPlaying: " ++ playingFile ++ "\n\n" ++ "At: " ++ (show h) ++ ":" ++ (show m) ++ ":" ++ (show s)
-- 
cgit 


From a827fbf106f43dec6390f447474411685bd75dc6 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 22:31:33 +0000
Subject: slightly neater

---
 challenge-102/james-smith/perl/ch-1.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-102/james-smith/perl/ch-1.pl b/challenge-102/james-smith/perl/ch-1.pl
index 187ed6b95b..dcfb31af4d 100644
--- a/challenge-102/james-smith/perl/ch-1.pl
+++ b/challenge-102/james-smith/perl/ch-1.pl
@@ -41,10 +41,10 @@ sub rare_numbers {
     my $x = shift;
     return () if $F[$x%9]; ## Digit sum is wrong...
     my $y = reverse $x;
-    return () if $x == $y; ## Musn't be the same back and forth
-    return $y if $x<$y && is_sq($x+$y) && is_sq($y-$x);
+    return () if $x == $y || ! is_sq($x+$y); ## Musn't be the same back and forth
+    return $y if $x<$y && is_sq($y-$x);
+    return $x if $y<$x && is_sq($x-$y);
     ## Check both ways round!
-    return $x if $y<$x && is_sq($x+$y) && is_sq($x-$y);
     return ();
   }
 
-- 
cgit 


From 95e0573aefdda6ef20eaee55a5d23ebcd5ba3bbe Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 22:31:55 +0000
Subject: white space

---
 challenge-100/james-smith/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-100/james-smith/perl/ch-1.pl b/challenge-100/james-smith/perl/ch-1.pl
index cce37c7bd6..9ff8b14021 100644
--- a/challenge-100/james-smith/perl/ch-1.pl
+++ b/challenge-100/james-smith/perl/ch-1.pl
@@ -42,7 +42,7 @@ done_testing();
 ## 113 bytes total - 105 inside the curly braces..
 
 sub ft{pop=~s/(.+)(:..)\s*(.m|)/sprintf'%02d%s%s',
-($1%12||(12*!$3))+12*('pm'eq$3),$2,$3?'':$1%24<12?'am':'pm'/re}
+  ($1%12||(12*!$3))+12*('pm'eq$3),$2,$3?'':$1%24<12?'am':'pm'/re}
 
 ## This is more readable version with notes...
 sub fun_time {
-- 
cgit 


From ec12960f6bb688688f375626d9fd95669df7210f Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 22:32:25 +0000
Subject: solutions to this weeks problems

---
 challenge-103/james-smith/perl/ch-1.pl      | 20 ++++++++++++
 challenge-103/james-smith/perl/ch-2.pl      | 48 +++++++++++++++++++++++++++++
 challenge-103/james-smith/perl/filelist.csv |  7 +++++
 3 files changed, 75 insertions(+)
 create mode 100644 challenge-103/james-smith/perl/ch-1.pl
 create mode 100644 challenge-103/james-smith/perl/ch-2.pl
 create mode 100644 challenge-103/james-smith/perl/filelist.csv

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
new file mode 100644
index 0000000000..cf59635f31
--- /dev/null
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -0,0 +1,20 @@
+#!/usr/local/bin/perl
+
+use strict;
+
+use warnings;
+use feature qw(say);
+use Test::More;
+
+is( year_name( 2017 ), 'Yin Fire Rooster' );
+is( year_name( 1938 ), 'Yang Earth Tiger' );
+
+done_testing();
+
+sub year_name {
+  return join q( ),
+    qw(Yang Yin)[$_[0]%2],
+    qw(Metal Metal Water Water Wood Wood Fire Fire Earth Earth)[$_[0]%10],
+    qw(Monkey Rooster Dog Pig Rat Ox Tiger Rabbit Dragon Snake Horse Goat)[$_[0]%12],
+}
+
diff --git a/challenge-103/james-smith/perl/ch-2.pl b/challenge-103/james-smith/perl/ch-2.pl
new file mode 100644
index 0000000000..001e24e44a
--- /dev/null
+++ b/challenge-103/james-smith/perl/ch-2.pl
@@ -0,0 +1,48 @@
+#!/usr/local/bin/perl
+
+use strict;
+
+use warnings;
+use feature qw(say);
+use Test::More;
+use Data::Dumper qw(Dumper);
+
+is( position( 1606134123, 1614591276, 'filelist.csv'), 'Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23) - 00:10:24' );
+
+done_testing();
+
+sub position {
+  my ($start, $now, $filename ) =@_;
+
+  ## Get the durations and titles of episode..
+
+  open my $fh, q(<), $filename;
+  my @episodes = map { [split m{,?"}] } <$fh>;
+  close $fh;
+
+  ## Get the total duration of all the episodes
+  ## We need this to work out how far we have
+  ## wrapped around the time slots ....
+
+  my $tot_duration  = 0;
+     $tot_duration += $_->[0] foreach @episodes;
+
+  ## Get the position through the current cycle...
+
+  my $position =            1000 * ($now-$start) -
+       $tot_duration * int( 1000 * ($now-$start) / $tot_duration );
+
+  ## Now find which episode that is at that time...
+
+  my $episode_start = 0;
+  foreach( @episodes )  {
+    ## Return the output.... (in this case we add the duration through episode at the end of the episode name)
+    return sprintf '%s - %02d:%02d:%02d',
+      $_->[1],
+      int( ($position-$episode_start) / 3600000 )     ,
+      int( ($position-$episode_start) /   60000 ) % 60,
+      int( ($position-$episode_start) /    1000 ) % 60  if $episode_start + $_->[0] > $position;
+    $episode_start += $_->[0];
+  }
+}
+
diff --git a/challenge-103/james-smith/perl/filelist.csv b/challenge-103/james-smith/perl/filelist.csv
new file mode 100644
index 0000000000..9428b93004
--- /dev/null
+++ b/challenge-103/james-smith/perl/filelist.csv
@@ -0,0 +1,7 @@
+1709363,"Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+1723781,"Les Miserables Episode 2: Javert (broadcast date: 1937-07-30)"
+1723781,"Les Miserables Episode 3: The Trial (broadcast date: 1937-08-06)"
+1678356,"Les Miserables Episode 4: Cosette (broadcast date: 1937-08-13)"
+1646043,"Les Miserables Episode 5: The Grave (broadcast date: 1937-08-20)"
+1714640,"Les Miserables Episode 6: The Barricade (broadcast date: 1937-08-27)"
+1714640,"Les Miserables Episode 7: Conclusion (broadcast date: 1937-09-03)"
-- 
cgit 


From ec7586f81b7118ac8b17a017cfd089952b5c17f9 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 22:40:00 +0000
Subject: minor fix

---
 challenge-103/james-smith/perl/ch-2.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-103/james-smith/perl/ch-2.pl b/challenge-103/james-smith/perl/ch-2.pl
index 001e24e44a..1c662724fe 100644
--- a/challenge-103/james-smith/perl/ch-2.pl
+++ b/challenge-103/james-smith/perl/ch-2.pl
@@ -29,8 +29,7 @@ sub position {
 
   ## Get the position through the current cycle...
 
-  my $position =            1000 * ($now-$start) -
-       $tot_duration * int( 1000 * ($now-$start) / $tot_duration );
+  my $position =  1000 * ($now-$start) % $tot_duration;
 
   ## Now find which episode that is at that time...
 
-- 
cgit 


From 2fb98d85f3b55202fa7fc177258001a576d973d2 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 22:50:41 +0000
Subject: added documentation

---
 challenge-103/james-smith/perl/ch-2.pl | 37 +++++++++++++++++++---------------
 1 file changed, 21 insertions(+), 16 deletions(-)

diff --git a/challenge-103/james-smith/perl/ch-2.pl b/challenge-103/james-smith/perl/ch-2.pl
index 1c662724fe..d7a49cdea1 100644
--- a/challenge-103/james-smith/perl/ch-2.pl
+++ b/challenge-103/james-smith/perl/ch-2.pl
@@ -7,25 +7,24 @@ use feature qw(say);
 use Test::More;
 use Data::Dumper qw(Dumper);
 
-is( position( 1606134123, 1614591276, 'filelist.csv'), 'Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23) - 00:10:24' );
+is( position( 1606134123, 1614591276, 'filelist.csv'), 'Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23) @ 00:10:24' );
 
 done_testing();
 
 sub position {
   my ($start, $now, $filename ) =@_;
 
-  ## Get the durations and titles of episode..
+  ## Slurp in the durations and title's of the episodes,
+  ## and while doing this - computer the total length of
+  ## all the episodes
 
+  my $tot_duration  = 0;
   open my $fh, q(<), $filename;
-  my @episodes = map { [split m{,?"}] } <$fh>;
+  $tot_duration += $_->[0] foreach my @episodes = map { [split m{,?"}] } <$fh>;
   close $fh;
 
-  ## Get the total duration of all the episodes
-  ## We need this to work out how far we have
-  ## wrapped around the time slots ....
-
-  my $tot_duration  = 0;
-     $tot_duration += $_->[0] foreach @episodes;
+  ## We need the total duration of episodes to work out
+  ## how far we have wrapped around the time slots ....
 
   ## Get the position through the current cycle...
 
@@ -33,15 +32,21 @@ sub position {
 
   ## Now find which episode that is at that time...
 
-  my $episode_start = 0;
   foreach( @episodes )  {
-    ## Return the output.... (in this case we add the duration through episode at the end of the episode name)
-    return sprintf '%s - %02d:%02d:%02d',
+
+    ## If the $position variable is less than the length of the episode
+    ## then this is the one we want to return....
+    ## $position value is the time after the start we want to return...
+    return sprintf '%s @ %02d:%02d:%02d',
       $_->[1],
-      int( ($position-$episode_start) / 3600000 )     ,
-      int( ($position-$episode_start) /   60000 ) % 60,
-      int( ($position-$episode_start) /    1000 ) % 60  if $episode_start + $_->[0] > $position;
-    $episode_start += $_->[0];
+      int( $position / 3600000 )     ,
+      int( $position /   60000 ) % 60,
+      int( $position /    1000 ) % 60  if $position < $_->[0];
+
+    ## OK - so we now need to reduce position by the length of the
+    ## episode and try again....
+
+    $position -= $_->[0];
   }
 }
 
-- 
cgit 


From 97f2d6ee35c4fea1e282f42eb1979c7701317289 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 22:58:37 +0000
Subject: tidied up

---
 challenge-103/james-smith/perl/ch-1.pl | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
index cf59635f31..d5c564f14c 100644
--- a/challenge-103/james-smith/perl/ch-1.pl
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -6,15 +6,23 @@ use warnings;
 use feature qw(say);
 use Test::More;
 
+## Slight extension - include the Yin/Yang prefix...
+
 is( year_name( 2017 ), 'Yin Fire Rooster' );
 is( year_name( 1938 ), 'Yang Earth Tiger' );
 
 done_testing();
 
+## Choose the order based on what would happen in years "0"..."60" - "Yang Metal Monkey"
+## is the base year there then...
+
+## To save doing the int/2 we just
+
 sub year_name {
   return join q( ),
-    qw(Yang Yin)[$_[0]%2],
-    qw(Metal Metal Water Water Wood Wood Fire Fire Earth Earth)[$_[0]%10],
-    qw(Monkey Rooster Dog Pig Rat Ox Tiger Rabbit Dragon Snake Horse Goat)[$_[0]%12],
+    qw(Yang Yin                            )[  $_[0]    %2  ],
+    qw(Metal Water Wood Fire Earth         )[ ($_[0]/2) %5  ],
+    qw(Monkey Rooster Dog Pig Rat Ox
+       Tiger Rabbit Dragon Snake Horse Goat)[  $_[0]    %12 ],
 }
 
-- 
cgit 


From 80d51aec54ad926a37eaf6a902bb174c8d744739 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 23:00:08 +0000
Subject: whitspace

---
 challenge-103/james-smith/perl/ch-1.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
index d5c564f14c..ec8cbd6407 100644
--- a/challenge-103/james-smith/perl/ch-1.pl
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -20,9 +20,9 @@ done_testing();
 
 sub year_name {
   return join q( ),
-    qw(Yang Yin                            )[  $_[0]    %2  ],
-    qw(Metal Water Wood Fire Earth         )[ ($_[0]/2) %5  ],
-    qw(Monkey Rooster Dog Pig Rat Ox
-       Tiger Rabbit Dragon Snake Horse Goat)[  $_[0]    %12 ],
+    qw( Yang   Yin                             )[  $_[0]    %2  ],
+    qw( Metal  Water   Wood   Fire  Earth      )[ ($_[0]/2) %5  ],
+    qw( Monkey Rooster Dog    Pig   Rat   Ox
+        Tiger  Rabbit  Dragon Snake Horse Goat )[  $_[0]    %12 ],
 }
 
-- 
cgit 


From 351d3293a7d376135bd6ebe349568ab50fa590ea Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 23:00:51 +0000
Subject: whitspace

---
 challenge-103/james-smith/perl/ch-1.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
index ec8cbd6407..3d073f7e49 100644
--- a/challenge-103/james-smith/perl/ch-1.pl
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -20,9 +20,9 @@ done_testing();
 
 sub year_name {
   return join q( ),
-    qw( Yang   Yin                             )[  $_[0]    %2  ],
-    qw( Metal  Water   Wood   Fire  Earth      )[ ($_[0]/2) %5  ],
+    qw( Yang   Yin                             )[  $_[0]    %  2 ],
+    qw( Metal  Water   Wood   Fire  Earth      )[ ($_[0]/2) %  5 ],
     qw( Monkey Rooster Dog    Pig   Rat   Ox
-        Tiger  Rabbit  Dragon Snake Horse Goat )[  $_[0]    %12 ],
+        Tiger  Rabbit  Dragon Snake Horse Goat )[  $_[0]    % 12 ],
 }
 
-- 
cgit 


From 26aff8f2beedb210b287de1fcc654677c69fcf37 Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 8 Mar 2021 17:46:58 -0700
Subject: initial

---
 challenge-103/mark-anderson/raku/ch-1.raku    | 27 +++++++++++++++++++++++++++
 challenge-103/mark-anderson/raku/ch-2.raku    | 23 +++++++++++++++++++++++
 challenge-103/mark-anderson/raku/filelist.csv |  7 +++++++
 3 files changed, 57 insertions(+)
 create mode 100644 challenge-103/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-103/mark-anderson/raku/ch-2.raku
 create mode 100644 challenge-103/mark-anderson/raku/filelist.csv

diff --git a/challenge-103/mark-anderson/raku/ch-1.raku b/challenge-103/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..c5e6bb9628
--- /dev/null
+++ b/challenge-103/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,27 @@
+#!/usr/bin/env raku
+
+use Test;
+plan 11;
+
+is zodiac(1924), "Wood Rat";
+is zodiac(1938), "Earth Tiger";
+is zodiac(1942), "Water Horse";
+is zodiac(1966), "Fire Horse";
+is zodiac(1984), "Wood Rat";
+is zodiac(1999), "Earth Rabbit";
+is zodiac(2001), "Metal Snake";
+is zodiac(2012), "Water Dragon";
+is zodiac(2017), "Fire Rooster";
+is zodiac(2021), "Metal Ox";
+is zodiac(2025), "Wood Snake";
+
+sub zodiac(UInt $year is copy) 
+{
+    $year -= 1900;
+
+    my @elements = flat map { $_ xx 2 }, < Metal Water Wood Fire Earth >;
+
+    my @animals  = < Rat Ox Tiger Rabbit Dragon Snake Horse Goat Monkey Rooster Dog Pig >;
+
+    @elements[$year mod 10], @animals[$year mod 12] andthen .join(" ");
+}
diff --git a/challenge-103/mark-anderson/raku/ch-2.raku b/challenge-103/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..dacf41780e
--- /dev/null
+++ b/challenge-103/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+
+say what's-playing(1606134123, 1606134123+1708, "filelist.csv");
+say what's-playing(1606134123, 1606134123+1709, "filelist.csv");
+say what's-playing(1606134123, 1606134123+1710, "filelist.csv");
+say what's-playing(1606134123, 1606134123+1711, "filelist.csv");
+say what's-playing(1606134123, 1606134123+1712, "filelist.csv");
+
+sub what's-playing($start is copy, $current, $file)
+{
+    for $file.IO.lines -> $line 
+    {
+        my ($t, $f) = $line.split(",", 2);
+        $t /= 1000;
+        $start += $t;
+
+        if $start >= $current 
+        {
+           my $pos = $t - ($start - $current);
+           return $f ~ "\n" ~ DateTime.new(Instant.from-posix($pos)).hh-mm-ss;
+        }
+    }
+}
diff --git a/challenge-103/mark-anderson/raku/filelist.csv b/challenge-103/mark-anderson/raku/filelist.csv
new file mode 100644
index 0000000000..9428b93004
--- /dev/null
+++ b/challenge-103/mark-anderson/raku/filelist.csv
@@ -0,0 +1,7 @@
+1709363,"Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+1723781,"Les Miserables Episode 2: Javert (broadcast date: 1937-07-30)"
+1723781,"Les Miserables Episode 3: The Trial (broadcast date: 1937-08-06)"
+1678356,"Les Miserables Episode 4: Cosette (broadcast date: 1937-08-13)"
+1646043,"Les Miserables Episode 5: The Grave (broadcast date: 1937-08-20)"
+1714640,"Les Miserables Episode 6: The Barricade (broadcast date: 1937-08-27)"
+1714640,"Les Miserables Episode 7: Conclusion (broadcast date: 1937-09-03)"
-- 
cgit 


From 2e88508559d6abca463563b0d672d5f1ee617b83 Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 8 Mar 2021 18:48:47 -0700
Subject: initial

---
 challenge-103/mark-anderson/raku/ch-1.raku |  2 +-
 challenge-103/mark-anderson/raku/ch-2.raku | 14 ++++++++------
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/challenge-103/mark-anderson/raku/ch-1.raku b/challenge-103/mark-anderson/raku/ch-1.raku
index c5e6bb9628..7ee7b2a428 100644
--- a/challenge-103/mark-anderson/raku/ch-1.raku
+++ b/challenge-103/mark-anderson/raku/ch-1.raku
@@ -15,7 +15,7 @@ is zodiac(2017), "Fire Rooster";
 is zodiac(2021), "Metal Ox";
 is zodiac(2025), "Wood Snake";
 
-sub zodiac(UInt $year is copy) 
+sub zodiac($year is copy) 
 {
     $year -= 1900;
 
diff --git a/challenge-103/mark-anderson/raku/ch-2.raku b/challenge-103/mark-anderson/raku/ch-2.raku
index dacf41780e..5176af00df 100644
--- a/challenge-103/mark-anderson/raku/ch-2.raku
+++ b/challenge-103/mark-anderson/raku/ch-2.raku
@@ -1,10 +1,12 @@
 #!/usr/bin/env raku
 
-say what's-playing(1606134123, 1606134123+1708, "filelist.csv");
-say what's-playing(1606134123, 1606134123+1709, "filelist.csv");
-say what's-playing(1606134123, 1606134123+1710, "filelist.csv");
-say what's-playing(1606134123, 1606134123+1711, "filelist.csv");
-say what's-playing(1606134123, 1606134123+1712, "filelist.csv");
+my $start = 1606134123;
+
+say what's-playing($start, $start+1708, "filelist.csv");
+say what's-playing($start, $start+1709, "filelist.csv");
+say what's-playing($start, $start+1710, "filelist.csv");
+say what's-playing($start, $start+1711, "filelist.csv");
+say what's-playing($start, $start+1712, "filelist.csv");
 
 sub what's-playing($start is copy, $current, $file)
 {
@@ -17,7 +19,7 @@ sub what's-playing($start is copy, $current, $file)
         if $start >= $current 
         {
            my $pos = $t - ($start - $current);
-           return $f ~ "\n" ~ DateTime.new(Instant.from-posix($pos)).hh-mm-ss;
+           return $f ~ "\n" ~ DateTime.new($pos).hh-mm-ss;
         }
     }
 }
-- 
cgit 


From 75ce4e9ee0edfd4c3adbca1cc31a446e24181571 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Tue, 9 Mar 2021 09:01:41 +0000
Subject: added some extra comments are reformated the code to fit less wide
 text

---
 challenge-103/james-smith/perl/ch-1.pl |  7 +++--
 challenge-103/james-smith/perl/ch-2.pl | 56 ++++++++++++++++++++++++++--------
 2 files changed, 48 insertions(+), 15 deletions(-)

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
index 3d073f7e49..9edd3c31bc 100644
--- a/challenge-103/james-smith/perl/ch-1.pl
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -13,10 +13,11 @@ is( year_name( 1938 ), 'Yang Earth Tiger' );
 
 done_testing();
 
-## Choose the order based on what would happen in years "0"..."60" - "Yang Metal Monkey"
-## is the base year there then...
+## Choose the order based on what would happen in years "0","60" - this is "Yang Metal Monkey",
+## so we make them the first entry in the list - saves us doing a "shift" to get the right
+## modulus key....
 
-## To save doing the int/2 we just
+## We have added in the last "classifier" - Yang/Yin which split the element entry in two.
 
 sub year_name {
   return join q( ),
diff --git a/challenge-103/james-smith/perl/ch-2.pl b/challenge-103/james-smith/perl/ch-2.pl
index d7a49cdea1..f924ef1806 100644
--- a/challenge-103/james-smith/perl/ch-2.pl
+++ b/challenge-103/james-smith/perl/ch-2.pl
@@ -7,26 +7,45 @@ use feature qw(say);
 use Test::More;
 use Data::Dumper qw(Dumper);
 
-is( position( 1606134123, 1614591276, 'filelist.csv'), 'Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23) @ 00:10:24' );
+is( position( 1606134123, 1614591276, 'filelist.csv'),
+  'Les Miserables Episode 1: The Bishop (broadcast'.
+    ' date: 1937-07-23) @ 00:10:24' );
 
 done_testing();
 
 sub position {
-  my ($start, $now, $filename ) =@_;
+  my ($start, $now, $filename ) = @_;
 
   ## Slurp in the durations and title's of the episodes,
   ## and while doing this - computer the total length of
-  ## all the episodes
+  ## all the episodes.
+  ##
+  ## A neat feature of perl is that we can define
+  ## variables anywhere in the statement not just at the
+  ## beginning - so we can do the slurp in a single line
+  ##
+  ## Rather than using a full CSV library we split on ,"
+  ## as this works for the set of data that we have in
+  ## the problem but we could use Text::CSV for more
+  ## complex strings.
+  ##
+  ## Note values in @episodes are triples (the third is
+  ## any part of the string after the second " which
+  ## happens just to be "\n"
 
   my $tot_duration  = 0;
   open my $fh, q(<), $filename;
-  $tot_duration += $_->[0] foreach my @episodes = map { [split m{,?"}] } <$fh>;
+  $tot_duration += $_->[0]
+    foreach my @episodes = map { [split m{,?"}] } <$fh>;
   close $fh;
 
   ## We need the total duration of episodes to work out
   ## how far we have wrapped around the time slots ....
 
   ## Get the position through the current cycle...
+  ## Note we have to multiple the difference by 1000
+  ## as the as the tot_duration is in milliseconds and
+  ## now/start in seconds.
 
   my $position =  1000 * ($now-$start) % $tot_duration;
 
@@ -34,17 +53,30 @@ sub position {
 
   foreach( @episodes )  {
 
-    ## If the $position variable is less than the length of the episode
-    ## then this is the one we want to return....
-    ## $position value is the time after the start we want to return...
+    ## If the $position variable is less than the length
+    ## of the episode then this is the one we want to
+    ## return....
+    ##
+    ## $position value is the time after the start we
+    ## want to return... As it is milliseconds we don't
+    ## just divide by 60 & 3600 we have to multiply
+    ## these divisors by 1000
+    ##
+    ## Rather than return an array of two values name
+    ## and position - we return as a string - this is
+    ## to make the test call easier byt we could just
+    ## return [ $_->[0], $position ] which is the second
+    ## half of the sprintf '%02d:%02d:%02d', ....
+
     return sprintf '%s @ %02d:%02d:%02d',
       $_->[1],
-      int( $position / 3600000 )     ,
-      int( $position /   60000 ) % 60,
-      int( $position /    1000 ) % 60  if $position < $_->[0];
+      int( $position/3600000 )     ,
+      int( $position/  60000 ) % 60,
+      int( $position/   1000 ) % 60  if $position < $_->[0];
 
-    ## OK - so we now need to reduce position by the length of the
-    ## episode and try again....
+    ## OK - rather than "moving the start time" - we just
+    ## reduce position by the length of the episode and
+    ## try again....
 
     $position -= $_->[0];
   }
-- 
cgit 


From 1a2ae0c10cfa6ec2a8a750deb0efc0f6160cbb06 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Tue, 9 Mar 2021 09:02:58 +0000
Subject: tidied up layout

---
 challenge-103/james-smith/perl/ch-1.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
index 9edd3c31bc..0d0382811f 100644
--- a/challenge-103/james-smith/perl/ch-1.pl
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -13,11 +13,12 @@ is( year_name( 1938 ), 'Yang Earth Tiger' );
 
 done_testing();
 
-## Choose the order based on what would happen in years "0","60" - this is "Yang Metal Monkey",
-## so we make them the first entry in the list - saves us doing a "shift" to get the right
-## modulus key....
+## Choose the order based on what would happen in years "0","60" -
+## this is "Yang Metal Monkey", so we make them the first entry in
+## the list - saves us doing a "shift" to get the right modulus key.
 
-## We have added in the last "classifier" - Yang/Yin which split the element entry in two.
+## We have added in the last "classifier" - Yang/Yin which split the
+## element entry in two.
 
 sub year_name {
   return join q( ),
-- 
cgit 


From dc604bc6f136267d4bd276419295e47ddb5f595a Mon Sep 17 00:00:00 2001
From: Simon Green <mail@simon.green>
Date: Tue, 9 Mar 2021 23:11:47 +1000
Subject: sgreen solution to challenge 103

---
 challenge-103/sgreen/README.md    |  4 ++--
 challenge-103/sgreen/blog.txt     |  1 +
 challenge-103/sgreen/perl/ch-1.pl | 21 +++++++++++++++++++
 challenge-103/sgreen/perl/ch-2.pl | 44 +++++++++++++++++++++++++++++++++++++++
 4 files changed, 68 insertions(+), 2 deletions(-)
 create mode 100644 challenge-103/sgreen/blog.txt
 create mode 100755 challenge-103/sgreen/perl/ch-1.pl
 create mode 100755 challenge-103/sgreen/perl/ch-2.pl

diff --git a/challenge-103/sgreen/README.md b/challenge-103/sgreen/README.md
index 6fb5a4942c..96e32e9edb 100644
--- a/challenge-103/sgreen/README.md
+++ b/challenge-103/sgreen/README.md
@@ -1,3 +1,3 @@
-# The Weekly Challenge 102
+# The Weekly Challenge 103
 
-Solution by Simon Green. [Blog](https://dev.to/simongreennet/weekly-challenge-102-57jb)
+Solution by Simon Green. [Blog](https://dev.to/simongreennet/weekly-challenge-103-1hpm)
diff --git a/challenge-103/sgreen/blog.txt b/challenge-103/sgreen/blog.txt
new file mode 100644
index 0000000000..82182bff1e
--- /dev/null
+++ b/challenge-103/sgreen/blog.txt
@@ -0,0 +1 @@
+https://dev.to/simongreennet/weekly-challenge-103-1hpm
diff --git a/challenge-103/sgreen/perl/ch-1.pl b/challenge-103/sgreen/perl/ch-1.pl
new file mode 100755
index 0000000000..a6f11e382b
--- /dev/null
+++ b/challenge-103/sgreen/perl/ch-1.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+sub main {
+    my $year = shift;
+
+    # Sanity check
+    die "You must enter a year\n" if not defined $year;
+    die "The year does not look like a positive integer\n" unless $year =~ /^\d+$/;
+
+    my @zodiacs  = (qw(Monkey Rooster Dog Pig Rat Ox Tiger Rabbit Dragon Snake Horse Goat));
+    my @elements = (qw(Metal Water Wood Fire Earth));
+
+    # State the zodiac sign
+    say $elements[ int( $year / 2 ) % 5 ], ' ', $zodiacs[ $year % 12 ];
+}
+
+main(@ARGV);
diff --git a/challenge-103/sgreen/perl/ch-2.pl b/challenge-103/sgreen/perl/ch-2.pl
new file mode 100755
index 0000000000..0cac111e8e
--- /dev/null
+++ b/challenge-103/sgreen/perl/ch-2.pl
@@ -0,0 +1,44 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+use Text::CSV 'csv';
+use List::Util 'sum';
+
+sub main {
+    my ( $start, $now, $file ) = @_;
+
+    # Sanity check
+    die "You must enter the start time\n"                             unless $start;
+    die "You must enter the current time\n"                           unless $now;
+    die "You must enter the file name\n"                              unless $file;
+    die "The start time must be an integer (seconds since epoch)\n"   unless $start =~ /^\d+$/;
+    die "The current time must be an integer (seconds since epoch)\n" unless $now =~ /^\d+$/;
+    die "The current time cannot be earlier than the start time\n" if $now < $start;
+    die "The file '$file' does not exist (or is not a file)\n" unless -f $file;
+
+    # Read the CSV file, and find out the total length
+    my $tracks          = csv( { in => $file } );
+    my $playlist_length = sum( map { $_->[0] } @$tracks );
+
+    # Find out how far through the playlist we are
+    my $playlist_position = ( $now - $start ) * 1000 % $playlist_length;
+
+    # Work through the play list to see what song is playing
+    while ( my $row = shift @$tracks ) {
+        my ( $track_length, $track_name ) = @$row;
+        if ( $track_length <= $playlist_position ) {
+            $playlist_position -= $track_length;
+            next;
+        }
+
+        # We are playing this track. Get the number of seconds we are into the track and display this
+        my $secs = int( $playlist_position / 1000 );
+        say sprintf '%s %02d:%02d:%02d', $track_name, int( $secs / 3_600 ), int( $secs % 3_600 / 60 ), $secs % 60;
+        last;
+    }
+}
+
+main(@ARGV);
-- 
cgit 


From 9e2eb3e4ae058c514b13cd463b455238e0de6eef Mon Sep 17 00:00:00 2001
From: boblied <boblied@gmail.com>
Date: Tue, 9 Mar 2021 08:22:02 -0600
Subject: PWC 103, Task 1, Chinese Zodiac

---
 challenge-103/bob-lied/README       |  4 ++--
 challenge-103/bob-lied/perl/ch-1.pl | 41 +++++++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+), 2 deletions(-)
 create mode 100755 challenge-103/bob-lied/perl/ch-1.pl

diff --git a/challenge-103/bob-lied/README b/challenge-103/bob-lied/README
index 5d63db13d1..8417e3a7f7 100644
--- a/challenge-103/bob-lied/README
+++ b/challenge-103/bob-lied/README
@@ -1,3 +1,3 @@
-Solutions to weekly challenge 102 by Bob Lied.
+Solutions to weekly challenge 103 by Bob Lied.
 
-https://perlweeklychallenge.org/blog/perl-weekly-challenge-102/
+https://perlweeklychallenge.org/blog/perl-weekly-challenge-103/
diff --git a/challenge-103/bob-lied/perl/ch-1.pl b/challenge-103/bob-lied/perl/ch-1.pl
new file mode 100755
index 0000000000..80ea20934b
--- /dev/null
+++ b/challenge-103/bob-lied/perl/ch-1.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/env perl
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# ch-1.pl
+#=============================================================================
+# Copyright (c) 2021, Bob Lied
+#=============================================================================
+# Perl Weekly Challenge 103, TASK #1 › Chinese Zodiac
+#
+# You are given a year $year.
+# Write a script to determine the Chinese Zodiac for the given year $year.
+# Please check out wikipage for more information about it.
+#
+# The animal cycle: Rat, Ox, Tiger, Rabbit, Dragon, Snake, Horse, Goat, Monkey,
+# Rooster, Dog, Pig.
+# The element cycle: Wood, Fire, Earth, Metal, Water.
+#
+# Example 1: Input: 2017    Output: Fire Rooster
+# Example 2: Input: 1938    Output: Earth Tiger
+#=============================================================================
+
+use strict;
+use warnings;
+use 5.020;
+
+use experimental qw/signatures/;
+
+my @AnimalCycle = qw( Rat Ox Tiger Rabbit Dragon Snake Horse Goat Monkey Rooster Dog Pig );
+my @ElementCycle = qw( Wood Wood Fire Fire Earth Earth Metal Metal Water Water );
+
+my $BaseYear = 1924;
+
+my $year = shift;
+die "Usage: $0 YEAR\n" unless $year;
+
+my $relativeYear = $year - $BaseYear;
+
+my  $animal = $relativeYear % @AnimalCycle;
+my $element = $relativeYear % @ElementCycle;
+
+say "$ElementCycle[$element] $AnimalCycle[$animal]";
-- 
cgit 


From 3654bd7723a2df65ee7147eefbd2aad1f57e6d3d Mon Sep 17 00:00:00 2001
From: Yet Ebreo <yet.ebreo@gmail.com>
Date: Tue, 9 Mar 2021 23:53:12 +0800
Subject: Add perl solution ch#101-2

---
 challenge-101/yet-ebreo/perl/ch-2.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 challenge-101/yet-ebreo/perl/ch-2.pl

diff --git a/challenge-101/yet-ebreo/perl/ch-2.pl b/challenge-101/yet-ebreo/perl/ch-2.pl
new file mode 100644
index 0000000000..f02c526d06
--- /dev/null
+++ b/challenge-101/yet-ebreo/perl/ch-2.pl
@@ -0,0 +1,24 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use feature qw(say);
+
+my @points = (  [0,1],
+                [2,0],
+                [-6,0]
+             );
+
+sub is_origin_in {
+    my (@p,$x) = @{+pop};
+    my $m = $p[0][1] * $p[2][0] - $p[0][0] * $p[2][1];
+    my $n = $p[0][0] * $p[1][1] - $p[0][1] * $p[1][0];
+
+    return (($m < 0) != ($n < 0)) ?
+        0:
+        ( $x = $p[1][0] * $p[2][1] - $p[1][1] * $p[2][0] + $p[0][1] * ($p[2][0] - $p[1][0]) + $p[0][0] * ($p[1][1] - $p[2][1])) < 0 ? 
+            ($m <= 0 && $m + $n >= $x) :
+            ($m >= 0 && $m + $n <= $x);
+}
+
+say is_origin_in (\@points)
\ No newline at end of file
-- 
cgit 


From 6affdb8c6eeb9bbf7c241c17f7ad621c3d5d2e57 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 9 Mar 2021 19:22:33 +0000
Subject: - Added solutions by E. Choroba.

---
 stats/pwc-current.json                    |   75 +-
 stats/pwc-language-breakdown-summary.json |   32 +-
 stats/pwc-language-breakdown.json         | 1410 ++++++++++++++---------------
 stats/pwc-leaders.json                    |  342 +++----
 stats/pwc-summary-1-30.json               |   96 +-
 stats/pwc-summary-121-150.json            |   26 +-
 stats/pwc-summary-151-180.json            |   36 +-
 stats/pwc-summary-181-210.json            |   42 +-
 stats/pwc-summary-211-240.json            |   42 +-
 stats/pwc-summary-31-60.json              |   42 +-
 stats/pwc-summary-61-90.json              |   98 +-
 stats/pwc-summary-91-120.json             |   38 +-
 stats/pwc-summary.json                    |  486 +++++-----
 13 files changed, 1390 insertions(+), 1375 deletions(-)

diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 11c61a31a0..0bc694dcd8 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -2,7 +2,16 @@
    "drilldown" : {
       "series" : [
          {
-            "name" : "Luca Ferrari",
+            "name" : "E. Choroba",
+            "id" : "E. Choroba",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
             "data" : [
                [
                   "Raku",
@@ -13,19 +22,21 @@
                   2
                ]
             ],
-            "id" : "Luca Ferrari"
+            "id" : "Luca Ferrari",
+            "name" : "Luca Ferrari"
          },
          {
-            "name" : "Simon Proctor",
             "data" : [
                [
                   "Raku",
                   1
                ]
             ],
-            "id" : "Simon Proctor"
+            "id" : "Simon Proctor",
+            "name" : "Simon Proctor"
          },
          {
+            "id" : "Stuart Little",
             "data" : [
                [
                   "Perl",
@@ -36,11 +47,20 @@
                   2
                ]
             ],
-            "id" : "Stuart Little",
             "name" : "Stuart Little"
          }
       ]
    },
+   "tooltip" : {
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
+      "followPointer" : 1,
+      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
    "plotOptions" : {
       "series" : {
          "dataLabels" : {
@@ -50,52 +70,47 @@
          "borderWidth" : 0
       }
    },
-   "chart" : {
-      "type" : "column"
-   },
-   "legend" : {
-      "enabled" : 0
+   "subtitle" : {
+      "text" : "[Champions: 4] Last updated at 2021-03-09 19:22:17 GMT"
    },
    "xAxis" : {
       "type" : "category"
    },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 103"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 3] Last updated at 2021-03-08 15:04:53 GMT"
+   "legend" : {
+      "enabled" : 0
    },
    "series" : [
       {
+         "name" : "Perl Weekly Challenge - 103",
          "data" : [
             {
-               "drilldown" : "Luca Ferrari",
+               "y" : 2,
+               "drilldown" : "E. Choroba",
+               "name" : "E. Choroba"
+            },
+            {
                "y" : 4,
-               "name" : "Luca Ferrari"
+               "name" : "Luca Ferrari",
+               "drilldown" : "Luca Ferrari"
             },
             {
+               "drilldown" : "Simon Proctor",
                "name" : "Simon Proctor",
-               "y" : 1,
-               "drilldown" : "Simon Proctor"
+               "y" : 1
             },
             {
-               "name" : "Stuart Little",
                "y" : 4,
+               "name" : "Stuart Little",
                "drilldown" : "Stuart Little"
             }
          ],
-         "colorByPoint" : 1,
-         "name" : "Perl Weekly Challenge - 103"
+         "colorByPoint" : 1
       }
    ],
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
+   "chart" : {
+      "type" : "column"
    },
-   "tooltip" : {
-      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
-      "followPointer" : 1,
-      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
+   "title" : {
+      "text" : "Perl Weekly Challenge - 103"
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index f84e6fb2d4..2fc4f1776f 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -8,21 +8,24 @@
          "text" : null
       }
    },
+   "legend" : {
+      "enabled" : "false"
+   },
    "series" : [
       {
-         "name" : "Contributions",
          "dataLabels" : {
             "rotation" : -90,
-            "y" : 10,
             "style" : {
                "fontFamily" : "Verdana, sans-serif",
                "fontSize" : "13px"
             },
+            "y" : 10,
             "format" : "{point.y:.0f}",
             "enabled" : "true",
-            "align" : "right",
-            "color" : "#FFFFFF"
+            "color" : "#FFFFFF",
+            "align" : "right"
          },
+         "name" : "Contributions",
          "data" : [
             [
                "Blog",
@@ -30,7 +33,7 @@
             ],
             [
                "Perl",
-               4829
+               4831
             ],
             [
                "Raku",
@@ -39,25 +42,22 @@
          ]
       }
    ],
-   "subtitle" : {
-      "text" : "Last updated at 2021-03-08 15:04:53 GMT"
-   },
    "title" : {
       "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
    },
+   "chart" : {
+      "type" : "column"
+   },
+   "subtitle" : {
+      "text" : "Last updated at 2021-03-09 19:22:17 GMT"
+   },
    "xAxis" : {
       "labels" : {
          "style" : {
-            "fontSize" : "13px",
-            "fontFamily" : "Verdana, sans-serif"
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
          }
       },
       "type" : "category"
-   },
-   "legend" : {
-      "enabled" : "false"
-   },
-   "chart" : {
-      "type" : "column"
    }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 86fbbe3151..40394473e9 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,565 +1,17 @@
 {
    "tooltip" : {
+      "headerFormat" : "<span style=\"font-size:11px\"></span>",
       "followPointer" : "true",
-      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
-      "headerFormat" : "<span style=\"font-size:11px\"></span>"
+      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>"
    },
    "yAxis" : {
       "title" : {
          "text" : "Total Solutions"
       }
    },
-   "series" : [
-      {
-         "data" : [
-            {
-               "drilldown" : "001",
-               "y" : 159,
-               "name" : "#001"
-            },
-            {
-               "drilldown" : "002",
-               "y" : 123,
-               "name" : "#002"
-            },
-            {
-               "y" : 79,
-               "drilldown" : "003",
-               "name" : "#003"
-            },
-            {
-               "y" : 97,
-               "drilldown" : "004",
-               "name" : "#004"
-            },
-            {
-               "name" : "#005",
-               "drilldown" : "005",
-               "y" : 76
-            },
-            {
-               "drilldown" : "006",
-               "y" : 56,
-               "name" : "#006"
-            },
-            {
-               "drilldown" : "007",
-               "y" : 63,
-               "name" : "#007"
-            },
-            {
-               "name" : "#008",
-               "y" : 76,
-               "drilldown" : "008"
-            },
-            {
-               "drilldown" : "009",
-               "y" : 74,
-               "name" : "#009"
-            },
-            {
-