- Added solutions by Ulrich Rieke.

17 files changed, 1435 insertions, 1184 deletions

diff --git a/challenge-086/ulrich-rieke/haskell/ch-1.hs b/challenge-086/ulrich-rieke/haskell/ch-1.hs
new file mode 100644
index 0000000000..8438585578
--- /dev/null
+++ b/challenge-086/ulrich-rieke/haskell/ch-1.hs
@@ -0,0 +1,12 @@
+module Challenge086
+  where
+import Data.List ( subsequences )
+
+solution :: [Int] -> Int -> Int
+solution list difference = if null difflist then 0 else 1
+  where
+    pairlist :: [[Int]]
+    pairlist = filter ((2 ==) . length ) $ subsequences list
+    difflist :: [[Int]]
+    difflist = filter (\li -> abs ( head li - last li ) == difference )
+    pairlist
diff --git a/challenge-086/ulrich-rieke/perl/ch-1.pl b/challenge-086/ulrich-rieke/perl/ch-1.pl
new file mode 100644
index 0000000000..8be0d1ee7c
--- /dev/null
+++ b/challenge-086/ulrich-rieke/perl/ch-1.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl ;
+use strict ;
+use warnings ;
+use feature 'say' ;
+use Algorithm::Combinatorics qw( combinations ) ;
+
+sub enterArray {
+  my @array ;
+  say "Enter positive numbers , -1 to end";
+  my $num = <STDIN> ;
+  chomp $num ;
+  while ( $num != -1 ) {
+      push @array , $num ;
+      $num = <STDIN> ;
+      chomp $num ;
+  }
+  return @array ;
+}
+
+my $A = $ARGV[ 0 ] ;
+my @array = enterArray( ) ;
+my @sorted = sort { $b <=> $a } @array ;
+my $output = 0 ;
+my $iter = combinations(\@sorted, 2 ) ;
+while ( my $p = $iter->next ) {
+  if ( $p->[0] - $p->[1] == $A ) {
+      $output = 1 ;
+      last ;
+  }
+}
+say $output ;
diff --git a/challenge-086/ulrich-rieke/perl/ch-2.pl b/challenge-086/ulrich-rieke/perl/ch-2.pl
new file mode 100644
index 0000000000..51b213142c
--- /dev/null
+++ b/challenge-086/ulrich-rieke/perl/ch-2.pl
@@ -0,0 +1,163 @@
+#!/usr/bin/perl ;
+use strict ;
+use warnings ;
+use feature 'say' ;
+use List::Util qw( all ) ;
+
+#in order to use the script for different sudokus I add this function
+#and do not add a __DATA__ block at the end of the code
+sub enterPuzzle {
+  my @puzzle ;
+  say "Enter numbers or underscores!" ;
+  for my $row (0..8 ) {
+      my $line = <STDIN> ;
+      chomp $line ;
+      while ( $line !~ /[_1-9]{9}/ ) {
+    say "Not a valid entry! Enter again!" ;
+    $line = <STDIN> ;
+    chomp $line ;
+      }
+      push @puzzle ,  $line ;
+  }
+  return @puzzle ;
+}
+
+#check if a row is valid ; count the occurrences of digits in a row
+sub isRowValid {
+  my $sudoku = shift ;
+  my $row = shift ;
+  my %rowFreq ;
+  for my $i ( 0 .. 8 ) {
+      my $val = substr( $sudoku->[ $row ] , $i , 1) ;
+      if ( $val =~ /\d/ ) {
+    $rowFreq{ $val }++ ;
+      }
+  }
+  return all { $_ == 1 } values %rowFreq ;
+}
+
+sub printArray {
+  my $array = shift ;
+  for my $i ( 0 .. 8 ) {
+      print "[ " ;
+      map { print "$_ " } split (// , $array->[ $i ] ) ;
+      print "]\n" ;
+  }
+}
+
+#check if colums is valid, count the occurrences of digits in a column
+sub isColumnValid {
+  my $sudoku = shift ;
+  my $column = shift ;
+  my %columnFreq ;
+  for my $i (0 .. 8 ) {
+      my $val = substr( $sudoku->[ $i ] , $column , 1 ) ;
+      if ( $val =~ /\d/ ) {
+    $columnFreq{ $val }++ ;
+      }
+  }
+  return all { $_ == 1 } values %columnFreq ;
+}
+
+#find the ranges of rows or columns in a 3 x 3 block
+sub findRange {
+  my $num = shift ;
+  my @numrange ;
+  if ( $num <= 2 ) {
+      @numrange = (0 , 1 , 2 ) ;
+  }
+  if ( $num > 2 and $num <= 5 ) {
+      @numrange = ( 3 , 4 , 5 ) ;
+  }
+  if ( $num > 5 ) {
+      @numrange = ( 6 , 7 , 8 ) ;
+  }
+  return @numrange ;
+}
+
+#for any given row and colums check if the number of occurrences of digits
+#in that block is 1
+sub isBlockValid {
+  my $sudoku = shift ;
+  my $row = shift ;
+  my $col = shift ;
+  my %numFreq ;
+  my @rowranges = findRange( $row ) ;
+  my @columnranges = findRange( $col ) ;
+  for my $r ( @rowranges ) {
+      for my $c ( @columnranges ) {
+    my $val = substr( $sudoku->[ $r ] , $c , 1 ) ;
+    if ( $val =~ /\d/ ) {
+        $numFreq{ $val }++ ;
+    }
+      }
+  }
+  return all { $_ == 1 } values %numFreq ;
+}
+
+sub conditionFulfilled {
+  my ( $sudoku, $row , $col ) = @_ ;
+  return (isRowValid( $sudoku , $row ) and isColumnValid( $sudoku, $col)
+    and isBlockValid( $sudoku, $row , $col )) ;
+}
+
+my @puzzle = enterPuzzle( ) ;
+printArray(\@puzzle ) ;
+say "Everything entered correctly ? (Yy)es or (Nn)o ?" ;
+my $answer = <STDIN> ;
+chomp $answer ;
+while ( $answer =~ /[nN]/ ) {
+  @puzzle = enterPuzzle( ) ;
+  printArray (\@puzzle) ;
+  say "Everything entered correctly ? (Yy)es or (Nn)o ?" ;
+  $answer = <STDIN> ;
+  chomp $answer ;
+}
+my @openpositions ; #finds the occurrences of all underscores in the sudoku
+for my $currentRow( 0..8 ) {
+  my $pos = -1 ;
+  while ( ( $pos = index( $puzzle[ $currentRow ] , '_' , $pos )) != -1 ) {
+      push @openpositions , [ $currentRow , $pos] ;
+      $pos++ ;
+  }
+}
+my $len = scalar @openpositions ;
+my $current = 0 ;
+#main part of the script: cycle through all the positions of underscores
+#keep adding 1 at a given position until the number is valid and fulfills
+#all conditions of sudoku. If this is not the case or adding 1 leads to
+#a number > 9 , enter '_' at this point and go back to the previous
+#underscore position. Keep adding 1 at this position until it's valid
+#again. Then go forward again. Repeat this again and again until a number
+#for the last underscore in @openpositions has been found
+#so this is a kind of brute force approach with backtracking!
+LOOP: while ( $current < $len ) {
+  my $theRow = $openpositions[ $current ]->[0] ;
+  my $theCol = $openpositions[ $current ]->[1] ;
+  my $char = substr($puzzle[$theRow] , $theCol , 1 ) ;
+  if ( $char =~ /\d/ ) {
+      $char++ ;
+      if ( $char > 9 ) {
+    substr( $puzzle[$theRow] , $theCol , 1 ) = '_' ;
+    $current-- ;
+    next LOOP ;
+      }
+  }
+  else {
+      $char = 1 ;
+  }
+  substr( $puzzle[$theRow] , $theCol , 1 ) = $char ;
+  while ( not ( conditionFulfilled (\@puzzle , $theRow , $theCol ) ) ) {
+      $char++ ;
+      if ( $char > 9 ) {
+    substr( $puzzle[$theRow] , $theCol , 1 ) = '_' ;
+    $current-- ;
+    next LOOP ;
+      }
+      else {
+    substr( $puzzle[$theRow] , $theCol , 1 ) = $char ;
+      }
+  }
+  $current++ ;
+}
+printArray (\@puzzle ) ;
diff --git a/challenge-086/ulrich-rieke/raku/ch-1.raku b/challenge-086/ulrich-rieke/raku/ch-1.raku
new file mode 100644
index 0000000000..812dfbaa5b
--- /dev/null
+++ b/challenge-086/ulrich-rieke/raku/ch-1.raku
@@ -0,0 +1,25 @@
+use v6 ;
+
+sub enterArray( ) {
+  my @array ;
+  say "Enter positive numbers, -1 to end!" ;
+  my $num = $*IN.get ;
+  while ( +$num != -1 ) {
+      @array.push( $num ) ;
+      $num = $*IN.get ;
+  }
+  return @array ;
+}
+
+sub MAIN( Int $A ) {
+  my $output = 0 ;
+  my @array = enterArray( ) ;
+  my @sorted = @array.sort( { $^b <=> $^a } ) ;
+  for @sorted.combinations( 2 ) -> $combi {
+      if ( $combi[ 0 ] - $combi[1] == $A ) {
+    $output = 1 ;
+    last ;
+      }
+  }
+  say $output ;
+}
diff --git a/members.json b/members.json
index 42c69d7dc7..b052d6aebd 100644
--- a/members.json
+++ b/members.json
@@ -175,6 +175,7 @@
     "steven-wilson"         : "Steven Wilson",
     "stuart-little"         : "Stuart Little",
     "svetlana-nesterova"    : "Svetlana Nesterova",
+    "swaggboi"              : "Daniel Bowling",
     "ted-leahy"             : "Ted Leahy",
     "testerR59"             : "Tester R59",
     "tiago-stock"           : "Tiago Stock",
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index d37a7fd6a5..4df59f4879 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,8 +1,159 @@
 {
+   "xAxis" : {
+      "type" : "category"
+   },
+   "tooltip" : {
+      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
+      "followPointer" : 1,
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         }
+      }
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "subtitle" : {
+      "text" : "[Champions: 22] Last updated at 2020-11-14 05:14:14 GMT"
+   },
+   "series" : [
+      {
+         "colorByPoint" : 1,
+         "name" : "Perl Weekly Challenge - 086",
+         "data" : [
+            {
+               "name" : "Abigail",
+               "y" : 3,
+               "drilldown" : "Abigail"
+            },
+            {
+               "name" : "Andrew Shitov",
+               "drilldown" : "Andrew Shitov",
+               "y" : 1
+            },
+            {
+               "name" : "Arne Sommer",
+               "drilldown" : "Arne Sommer",
+               "y" : 5
+            },
+            {
+               "y" : 1,
+               "drilldown" : "Cristina Heredia",
+               "name" : "Cristina Heredia"
+            },
+            {
+               "drilldown" : "Daniel Bowling",
+               "y" : 1,
+               "name" : "Daniel Bowling"
+            },
+            {
+               "name" : "Dave Jacoby",
+               "y" : 2,
+               "drilldown" : "Dave Jacoby"
+            },
+            {
+               "name" : "E. Choroba",
+               "y" : 2,
+               "drilldown" : "E. Choroba"
+            },
+            {
+               "name" : "Feng Chang",
+               "y" : 2,
+               "drilldown" : "Feng Chang"
+            },
+            {
+               "name" : "Flavio Poletti",
+               "y" : 4,
+               "drilldown" : "Flavio Poletti"
+            },
+            {
+               "name" : "Jorg Sommrey",
+               "y" : 2,
+               "drilldown" : "Jorg Sommrey"
+            },
+            {
+               "name" : "Julio de Castro",
+               "y" : 4,
+               "drilldown" : "Julio de Castro"
+            },
+            {
+               "name" : "Kang-min Liu",
+               "y" : 2,
+               "drilldown" : "Kang-min Liu"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Mark Anderson",
+               "name" : "Mark Anderson"
+            },
+            {
+               "y" : 1,
+               "drilldown" : "Myoungjin Jeon",
+               "name" : "Myoungjin Jeon"
+            },
+            {
+               "drilldown" : "Nuno Vieira",
+               "y" : 2,
+               "name" : "Nuno Vieira"
+            },
+            {
+               "name" : "Philip Hood",
+               "drilldown" : "Philip Hood",
+               "y" : 2
+            },
+            {
+               "name" : "Roger Bell_West",
+               "y" : 4,
+               "drilldown" : "Roger Bell_West"
+            },
+            {
+               "name" : "Simon Green",
+               "drilldown" : "Simon Green",
+               "y" : 2
+            },
+            {
+               "name" : "Simon Proctor",
+               "y" : 2,
+               "drilldown" : "Simon Proctor"
+            },
+            {
+               "name" : "Stuart Little",
+               "drilldown" : "Stuart Little",
+               "y" : 2
+            },
+            {
+               "name" : "Ulrich Rieke",
+               "y" : 3,
+               "drilldown" : "Ulrich Rieke"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Walt Mankowski",
+               "name" : "Walt Mankowski"
+            }
+         ]
+      }
+   ],
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "legend" : {
+      "enabled" : 0
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 086"
+   },
    "drilldown" : {
       "series" : [
          {
-            "id" : "Abigail",
             "name" : "Abigail",
             "data" : [
                [
@@ -13,21 +164,21 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Abigail"
          },
          {
-            "name" : "Andrew Shitov",
             "data" : [
                [
                   "Raku",
                   1
                ]
             ],
-            "id" : "Andrew Shitov"
+            "id" : "Andrew Shitov",
+            "name" : "Andrew Shitov"
          },
          {
             "id" : "Arne Sommer",
-            "name" : "Arne Sommer",
             "data" : [
                [
                   "Perl",
@@ -41,17 +192,18 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "Arne Sommer"
          },
          {
-            "name" : "Cristina Heredia",
             "data" : [
                [
                   "Perl",
                   1
                ]
             ],
-            "id" : "Cristina Heredia"
+            "id" : "Cristina Heredia",
+            "name" : "Cristina Heredia"
          },
          {
             "name" : "Daniel Bowling",
@@ -64,37 +216,37 @@
             "id" : "Daniel Bowling"
          },
          {
-            "name" : "Dave Jacoby",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "id" : "Dave Jacoby"
+            "id" : "Dave Jacoby",
+            "name" : "Dave Jacoby"
          },
          {
-            "id" : "E. Choroba",
-            "name" : "E. Choroba",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "name" : "E. Choroba",
+            "id" : "E. Choroba"
          },
          {
-            "id" : "Feng Chang",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "name" : "Feng Chang"
+            "name" : "Feng Chang",
+            "id" : "Feng Chang"
          },
          {
-            "name" : "Flavio Poletti",
+            "id" : "Flavio Poletti",
             "data" : [
                [
                   "Perl",
@@ -105,7 +257,7 @@
                   2
                ]
             ],
-            "id" : "Flavio Poletti"
+            "name" : "Flavio Poletti"
          },
          {
             "data" : [
@@ -114,8 +266,8 @@
                   2
                ]
             ],
-            "name" : "Jorg Sommrey",
-            "id" : "Jorg Sommrey"
+            "id" : "Jorg Sommrey",
+            "name" : "Jorg Sommrey"
          },
          {
             "name" : "Julio de Castro",
@@ -132,14 +284,14 @@
             "id" : "Julio de Castro"
          },
          {
-            "id" : "Kang-min Liu",
-            "name" : "Kang-min Liu",
             "data" : [
                [
                   "Raku",
                   2
                ]
-            ]
+            ],
+            "id" : "Kang-min Liu",
+            "name" : "Kang-min Liu"
          },
          {
             "data" : [
@@ -152,36 +304,37 @@
             "id" : "Mark Anderson"
          },
          {
-            "id" : "Myoungjin Jeon",
             "data" : [
                [
                   "Blog",
                   1
                ]
             ],
-            "name" : "Myoungjin Jeon"
+            "name" : "Myoungjin Jeon",
+            "id" : "Myoungjin Jeon"
          },
          {
-            "id" : "Nuno Vieira",
-            "name" : "Nuno Vieira",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "id" : "Nuno Vieira",
+            "name" : "Nuno Vieira"
          },
          {
-            "id" : "Philip Hood",
+            "name" : "Philip Hood",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "name" : "Philip Hood"
+            "id" : "Philip Hood"
          },
          {
+            "name" : "Roger Bell_West",
             "data" : [
                [
                   "Perl",
@@ -196,10 +349,10 @@
                   1
                ]
             ],
-            "name" : "Roger Bell_West",
             "id" : "Roger Bell_West"
          },
          {
+            "name" : "Simon Green",
             "data" : [
                [
                   "Perl",
@@ -210,186 +363,52 @@
                   1
                ]
             ],
-            "name" : "Simon Green",
             "id" : "Simon Green"
          },
          {
-            "name" : "Simon Proctor",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "id" : "Simon Proctor"
+            "id" : "Simon Proctor",
+            "name" : "Simon Proctor"
          },
          {
-            "id" : "Stuart Little",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
+            "id" : "Stuart Little",
             "name" : "Stuart Little"
          },
          {
-            "name" : "Walt Mankowski",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  1
+               ]
+            ],
+            "id" : "Ulrich Rieke",
+            "name" : "Ulrich Rieke"
+         },
+         {
+            "id" : "Walt Mankowski",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "id" : "Walt Mankowski"
+            "name" : "Walt Mankowski"
          }
       ]
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "tooltip" : {
-      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
-      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
-      "followPointer" : 1
-   },
-   "series" : [
-      {
-         "colorByPoint" : 1,
-         "data" : [
-            {
-               "name" : "Abigail",
-               "y" : 3,
-               "drilldown" : "Abigail"
-            },
-            {
-               "drilldown" : "Andrew Shitov",
-               "y" : 1,
-               "name" : "Andrew Shitov"
-            },
-            {
-               "drilldown" : "Arne Sommer",
-               "name" : "Arne Sommer",
-               "y" : 5
-            },
-            {
-               "drilldown" : "Cristina Heredia",
-               "name" : "Cristina Heredia",
-               "y" : 1
-            },
-            {
-               "drilldown" : "Daniel Bowling",
-               "y" : 1,
-               "name" : "Daniel Bowling"
-            },
-            {
-               "name" : "Dave Jacoby",
-               "y" : 2,
-               "drilldown" : "Dave Jacoby"
-            },
-            {
-               "y" : 2,
-               "name" : "E. Choroba",
-               "drilldown" : "E. Choroba"
-            },
-            {
-               "drilldown" : "Feng Chang",
-               "name" : "Feng Chang",
-               "y" : 2
-            },
-            {
-               "y" : 4,
-               "name" : "Flavio Poletti",
-               "drilldown" : "Flavio Poletti"
-            },
-            {
-               "y" : 2,
-               "name" : "Jorg Sommrey",
-               "drilldown" : "Jorg Sommrey"
-            },
-            {
-               "y" : 4,
-               "name" : "Julio de Castro",
-               "drilldown" : "Julio de Castro"
-            },
-            {
-               "name" : "Kang-min Liu",
-               "y" : 2,
-               "drilldown" : "Kang-min Liu"
-            },
-            {
-               "name" : "Mark Anderson",
-               "y" : 2,
-               "drilldown" : "Mark Anderson"
-            },
-            {
-               "drilldown" : "Myoungjin Jeon",
-               "y" : 1,
-               "name" : "Myoungjin Jeon"
-            },
-            {
-               "y" : 2,
-               "name" : "Nuno Vieira",
-               "drilldown" : "Nuno Vieira"
-            },
-            {
-               "drilldown" : "Philip Hood",
-               "y" : 2,
-               "name" : "Philip Hood"
-            },
-            {
-               "drilldown" : "Roger Bell_West",
-               "y" : 4,
-               "name" : "Roger Bell_West"
-            },
-            {
-               "name" : "Simon Green",
-               "y" : 2,
-               "drilldown" : "Simon Green"
-            },
-            {
-               "y" : 2,
-               "name" : "Simon Proctor",
-               "drilldown" : "Simon Proctor"
-            },
-            {
-               "y" : 2,
-               "name" : "Stuart Little",
-               "drilldown" : "Stuart Little"
-            },
-            {
-               "drilldown" : "Walt Mankowski",
-               "y" : 2,
-               "name" : "Walt Mankowski"
-            }
-         ],
-         "name" : "Perl Weekly Challenge - 086"
-      }
-   ],
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "enabled" : 1,
-            "format" : "{point.y}"
-         },
-         "borderWidth" : 0
-      }
-   },
-   "legend" : {
-      "enabled" : 0
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 086"
-   },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 21] Last updated at 2020-11-14 04:47:16 GMT"
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 6b70e1dd4c..d55685b736 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,30 +1,34 @@
 {
-   "chart" : {
-      "type" : "column"
+   "xAxis" : {
+      "type" : "category",
+      "labels" : {
+         "style" : {
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
+         }
+      }
    },
    "tooltip" : {
       "pointFormat" : "<b>{point.y:.0f}</b>"
    },
+   "chart" : {
+      "type" : "column"
+   },
+   "subtitle" : {
+      "text" : "Last updated at 2020-11-14 05:14:14 GMT"
+   },
    "yAxis" : {
       "title" : {
          "text" : null
       },
       "min" : 0
    },
+   "legend" : {
+      "enabled" : "false"
+   },
    "series" : [
       {
-         "dataLabels" : {
-            "format" : "{point.y:.0f}",
-            "enabled" : "true",
-            "rotation" : -90,
-            "color" : "#FFFFFF",
-            "style" : {
-               "fontSize" : "13px",
-               "fontFamily" : "Verdana, sans-serif"
-            },
-            "y" : 10,
-            "align" : "right"
-         },
+         "name" : "Contributions",
          "data" : [
             [
                "Blog",
@@ -32,31 +36,27 @@
             ],
             [
                "Perl",
-               3811
+               3813
             ],
             [
                "Raku",
-               2457
+               2458
             ]
          ],
-         "name" : "Contributions"
-      }
-   ],
-   "legend" : {
-      "enabled" : "false"
-   },
-   "xAxis" : {
-      "type" : "category",
-      "labels" : {
-         "style" : {
-            "fontSize" : "13px",
-            "fontFamily" : "Verdana, sans-serif"
+         "dataLabels" : {
+            "y" : 10,
+            "format" : "{point.y:.0f}",
+            "align" : "right",
+            "rotation" : -90,
+            "color" : "#FFFFFF",
+            "enabled" : "true",
+            "style" : {
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
+            }
          }
       }
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2020-11-14 04:47:16 GMT"
-   },
+   ],
    "title" : {
       "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
    }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 19abfeb59a..2b833118fd 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,7 +1,14 @@
 {
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2020-11-14 05:14:14 GMT"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
    "series" : [
       {
          "colorByPoint" : "true",
+         "name" : "Perl Weekly Challenge Languages",
          "data" : [
             {
                "drilldown" : "001",
@@ -9,18 +16,18 @@
                "name" : "#001"
             },
             {
-               "drilldown" : "002",
                "name" : "#002",
+               "drilldown" : "002",
                "y" : 114
             },
             {
                "drilldown" : "003",
-               "name" : "#003",
-               "y" : 71
+               "y" : 71,
+               "name" : "#003"
             },
             {
-               "drilldown" : "004",
                "name" : "#004",
+               "drilldown" : "004",
                "y" : 91
             },
             {
@@ -29,14 +36,14 @@
                "drilldown" : "005"
             },
             {
+               "name" : "#006",
                "drilldown" : "006",
-               "y" : 52,
-               "name" : "#006"
+               "y" : 52
             },
             {
+               "drilldown" : "007",
                "y" : 59,
-               "name" : "#007",
-               "drilldown" : "007"
+               "name" : "#007"
             },
             {
                "name" : "#008",
@@ -44,24 +51,24 @@
                "drilldown" : "008"
             },
             {
-               "y" : 70,
                "name" : "#009",
-               "drilldown" : "009"
+               "drilldown" : "009",
+               "y" : 70
             },
             {
-               "name" : "#010",
+               "drilldown" : "010",
                "y" : 60,
-               "drilldown" : "010"
+               "name" : "#010"
             },
             {
-               "drilldown" : "011",
                "name" : "#011",
+               "drilldown" : "011",
                "y" : 79
             },
             {
-               "name" : "#012",
+               "drilldown" : "012",
                "y" : 83,
-               "drilldown" : "012"
+               "name" : "#012"
             },
             {
                "drilldown" : "013",
@@ -70,13 +77,13 @@
             },
             {
                "name" : "#014",
-               "y" : 96,
-               "drilldown" : "014"
+               "drilldown" : "014",
+               "y" : 96
             },
             {
+               "drilldown" : "015",
                "y" : 93,
-               "name" : "#015",
-               "drilldown" : "015"
+               "name" : "#015"
             },
             {
                "name" : "#016",
@@ -90,18 +97,18 @@
             },
             {
                "drilldown" : "018",
-               "name" : "#01