From 4d42c4dcace76e2674662bc863116ac638cc5b8e Mon Sep 17 00:00:00 2001
From: Dave Jacoby <jacoby.david@gmail.com>
Date: Mon, 9 Aug 2021 16:14:01 -0400
Subject: Trees && Triples

---
 challenge-125/dave-jacoby/blog.txt     |   1 +
 challenge-125/dave-jacoby/perl/ch-1.pl |  86 ++++++++++++++++
 challenge-125/dave-jacoby/perl/ch-2.pl | 174 +++++++++++++++++++++++++++++++++
 3 files changed, 261 insertions(+)
 create mode 100644 challenge-125/dave-jacoby/blog.txt
 create mode 100644 challenge-125/dave-jacoby/perl/ch-1.pl
 create mode 100644 challenge-125/dave-jacoby/perl/ch-2.pl

diff --git a/challenge-125/dave-jacoby/blog.txt b/challenge-125/dave-jacoby/blog.txt
new file mode 100644
index 0000000000..0a0ccddd87
--- /dev/null
+++ b/challenge-125/dave-jacoby/blog.txt
@@ -0,0 +1 @@
+https://jacoby.github.io/2021/08/09/trees-and-triples-the-perl-weekly-challenge-125.html
diff --git a/challenge-125/dave-jacoby/perl/ch-1.pl b/challenge-125/dave-jacoby/perl/ch-1.pl
new file mode 100644
index 0000000000..717d608a68
--- /dev/null
+++ b/challenge-125/dave-jacoby/perl/ch-1.pl
@@ -0,0 +1,86 @@
+#!/usr/bin/env perl
+
+use feature qw{say state signatures};
+use strict;
+use warnings;
+use utf8;
+no warnings qw{ experimental };
+
+use List::Util qw{ uniq };
+use JSON;
+use Carp;
+use Getopt::Long;
+my $json = JSON->new->canonical->space_after;
+
+my $n = 5;
+GetOptions( 'n=i' => \$n, );
+
+carp 'out of range' if $n <= 0;
+
+my $p = pythagorean_triples($n);
+say <<"END";
+
+    INPUT: $n
+    OUTPUT: $p
+
+END
+
+sub pythagorean_triples( $n ) {
+    my @output;
+    push @output, pt_a($n);
+    push @output, pt_c($n);
+    @output = sort grep { defined } @output;
+    return join ", ", @output if @output;
+    return -1;
+}
+
+sub pt_a ($n ) {
+    my @output;
+    my $n2 = $n**2;
+
+    for my $b1 ( 1 .. $n2 ) {
+        my $b2 = $b1**2;
+        my $c2 = $n2 + $b2;
+        my $c  = sqrt $c2;
+        next unless int $c == $c;
+        my @x = sort { $a <=> $b } map { int $_ } $n, $b1, $c;
+        push @output, $json->encode( \@x );
+    }
+    return uniq @output if @output;
+    return undef;
+}
+
+sub pt_c ($n ) {
+    my @output;
+    my $n2 = $n**2;
+
+    for my $b1 ( 1 .. $n2 ) {
+        my $b2 = $b1**2;
+        my $a2 = $n2 - $b2;
+        next unless $a2 > 0;
+        my $a1  = sqrt $a2;
+        next unless int $a1 == $a1;
+        my @x = sort { $a <=> $b } map { int $_ } $n, $b1, $a1;
+        push @output, $json->encode( \@x );
+    }
+    return uniq @output if @output;
+    return undef;
+
+    # my @output;
+    # my $n2 = $n**2;
+
+    # for my $a1 ( 1 .. $n2 ) {
+    #     my $a2 = $a1**2;
+    #     for my $b1 ( 1 .. $n2 ) {
+    #         my $b2 = $b1**2;
+    #         my $c2 = $a2 + $b2;
+    #         next if $c2 > $n2;
+    #         if ( $n2 == $c2 ) {
+    #             my @x = sort { $a <=> $b } map { int $_ } $a1, $b1, $n;
+    #             push @output, $json->encode( \@x );
+    #         }
+    #     }
+    # }
+    # return uniq @output if @output;
+    # return undef;
+}
diff --git a/challenge-125/dave-jacoby/perl/ch-2.pl b/challenge-125/dave-jacoby/perl/ch-2.pl
new file mode 100644
index 0000000000..b6e5e97817
--- /dev/null
+++ b/challenge-125/dave-jacoby/perl/ch-2.pl
@@ -0,0 +1,174 @@
+#!/usr/bin/env perl
+
+use feature qw{say state signatures};
+use strict;
+use warnings;
+use utf8;
+no warnings qw{ experimental };
+
+use List::Util qw{ max };
+use JSON;
+my $json = JSON->new->space_after->canonical;
+
+my %nodes;
+for my $n ( 1 .. 10 ) {
+    my $node = Node->new($n);
+    $nodes{$n} = $node;
+}
+
+$nodes{1}->left( $nodes{2} );
+$nodes{1}->right( $nodes{5} );
+$nodes{2}->left( $nodes{3} );
+$nodes{2}->right( $nodes{4} );
+$nodes{5}->left( $nodes{6} );
+$nodes{5}->right( $nodes{7} );
+$nodes{7}->left( $nodes{8} );
+$nodes{7}->right( $nodes{10} );
+$nodes{8}->left( $nodes{9} );
+
+my @diameters;
+for my $node ( sort values %nodes ) {
+    my $v = $node->value();
+    my $l = $node->is_leaf();
+    push @diameters, btd($node) if $l;
+}
+
+my $max = max map { scalar $_->@* } @diameters;
+my $done;
+
+@diameters =
+    grep {
+    my $s1 = join ' ', $_->@*;
+    my $s2 = join ' ', reverse $_->@*;
+    $done->{$s1}++;
+    $done->{$s2}++;
+    $done->{$s1} < 2;
+    }
+    grep { scalar $_->@* == $max }
+    sort { scalar $b->@* <=> scalar $a->@* } @diameters;
+
+say join "\n", map { join " ", ( scalar $_->@* ), ':', $_->@* }
+
+    @diameters;
+
+sub btd ( $node, $path = [] ) {
+    my @output;
+    my $v = $node->value();
+    push $path->@*, $v;
+
+    my @options;
+    if ( defined $node->parent() ) {
+        my $p  = $node->parent();
+        my $pv = $p->value();
+        my $is = grep /$pv/, $path->@* ? 1 : 0;
+        if ( !grep /$pv/, $path->@* ) {
+            push @options, 'parent';
+        }
+    }
+    if ( defined $node->left() ) {
+        my $p  = $node->left();
+        my $pv = $p->value();
+        my $is = grep /$pv/, $path->@* ? 1 : 0;
+        if ( !grep /$pv/, $path->@* ) {
+            push @options, 'left';
+        }
+    }
+    if ( defined $node->right() ) {
+        my $p  = $node->right();
+        my $pv = $p->value();
+        my $is = grep /$pv/, $path->@* ? 1 : 0;
+        if ( !grep /$pv/, $path->@* ) {
+            push @options, 'right';
+        }
+    }
+
+    if (@options) {
+        for my $option (@options) {
+            if ( $option eq 'parent' ) {
+                my $p = $node->parent();
+                my $path2->@* = map { int } $path->@*;
+                push @output, btd( $p, $path2 );
+            }
+            if ( $option eq 'left' ) {
+                my $p = $node->left();
+                my $path2->@* = map { int } $path->@*;
+                push @output, btd( $p, $path2 );
+            }
+            if ( $option eq 'right' ) {
+                my $p = $node->right();
+                my $path2->@* = map { int } $path->@*;
+                push @output, btd( $p, $path2 );
+            }
+        }
+    }
+    else {
+        push @output, [ map { int } $path->@* ];
+    }
+
+    return @output;
+}
+
+package Node;
+
+sub new ( $class, $value = 0 ) {
+    my $self = {};
+    $self->{value}      = $value;
+    $self->{left}       = undef;
+    $self->{right}      = undef;
+    $self->{horizontal} = undef;
+    $self->{parent}     = undef;
+    return bless $self, $class;
+}
+
+sub value ( $self, $value = undef ) {
+    if ( defined $value ) {
+        $self->{value} = $value;
+    }
+    else {
+        return $self->{value};
+    }
+}
+
+sub is_root ( $self ) {
+    return defined $self->{parent} ? 0 : 1;
+}
+
+sub is_leaf ( $self ) {
+    return ( !defined $self->{left} && !defined $self->{right} )
+        ? 1
+        : 0;
+}
+
+sub left ( $self, $node = undef ) {
+    if ( defined $node ) {
+        $self->{left}   = $node;
+        $node->{parent} = $self;
+    }
+    else {
+        return $self->{left};
+    }
+}
+
+sub right ( $self, $node = undef ) {
+    if ( defined $node ) {
+        $self->{right}  = $node;
+        $node->{parent} = $self;
+    }
+    else {
+        return $self->{right};
+    }
+}
+
+sub horizontal ( $self, $node = undef ) {
+    if ( defined $node ) {
+        $self->{horizontal} = $node;
+        $node->{parent}     = $self;
+    }
+    else {
+        return $self->{horizontal};
+    }
+}
+
+sub parent ($self ) {
+    return $self->{parent};
+}
-- 
cgit 


From 989dcde471a30935b8e51c557b971496963caffc Mon Sep 17 00:00:00 2001
From: Dave Jacoby <jacoby.david@gmail.com>
Date: Wed, 11 Aug 2021 16:19:43 -0400
Subject: Edges, Not Nodes

---
 challenge-125/dave-jacoby/perl/ch-1.pl | 18 ------------------
 challenge-125/dave-jacoby/perl/ch-2.pl |  4 +++-
 2 files changed, 3 insertions(+), 19 deletions(-)

diff --git a/challenge-125/dave-jacoby/perl/ch-1.pl b/challenge-125/dave-jacoby/perl/ch-1.pl
index 717d608a68..29f99b60d3 100644
--- a/challenge-125/dave-jacoby/perl/ch-1.pl
+++ b/challenge-125/dave-jacoby/perl/ch-1.pl
@@ -65,22 +65,4 @@ sub pt_c ($n ) {
     }
     return uniq @output if @output;
     return undef;
-
-    # my @output;
-    # my $n2 = $n**2;
-
-    # for my $a1 ( 1 .. $n2 ) {
-    #     my $a2 = $a1**2;
-    #     for my $b1 ( 1 .. $n2 ) {
-    #         my $b2 = $b1**2;
-    #         my $c2 = $a2 + $b2;
-    #         next if $c2 > $n2;
-    #         if ( $n2 == $c2 ) {
-    #             my @x = sort { $a <=> $b } map { int $_ } $a1, $b1, $n;
-    #             push @output, $json->encode( \@x );
-    #         }
-    #     }
-    # }
-    # return uniq @output if @output;
-    # return undef;
 }
diff --git a/challenge-125/dave-jacoby/perl/ch-2.pl b/challenge-125/dave-jacoby/perl/ch-2.pl
index b6e5e97817..8dd5fb4268 100644
--- a/challenge-125/dave-jacoby/perl/ch-2.pl
+++ b/challenge-125/dave-jacoby/perl/ch-2.pl
@@ -47,7 +47,9 @@ my $done;
     grep { scalar $_->@* == $max }
     sort { scalar $b->@* <=> scalar $a->@* } @diameters;
 
-say join "\n", map { join " ", ( scalar $_->@* ), ':', $_->@* }
+# DIAMETER refers to the edge count, not the node count, 
+# so the it's the node count minus one
+say join "\n", map { join " ", ( -1 + scalar $_->@* ), ':', $_->@* }
 
     @diameters;
 
-- 
cgit 


From cb0e414b14416937169d0d3d291d9d3ef4a656d8 Mon Sep 17 00:00:00 2001
From: Jared Martin <760765+jaredor@users.noreply.github.com>
Date: Sun, 15 Aug 2021 15:12:58 -0500
Subject: Comment out quiescent debugging module

---
 challenge-124/jaredor/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-124/jaredor/perl/ch-1.pl b/challenge-124/jaredor/perl/ch-1.pl
index 45b952d827..8301fb6763 100755
--- a/challenge-124/jaredor/perl/ch-1.pl
+++ b/challenge-124/jaredor/perl/ch-1.pl
@@ -10,7 +10,7 @@ use Pod::Usage;
 
 # For this challenge
 
-use Data::Dump qw(pp);
+# use Data::Dump qw(pp);
 
 # Validate Input
 
-- 
cgit 


From 4609aa731a7beb5547cbd4707041a6cad8c446a5 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 16 Aug 2021 20:21:14 -0400
Subject: 1st commit on 126_lua

---
 challenge-126/stuart-little/lua/ch-1.lua | 11 ++++++++
 challenge-126/stuart-little/lua/ch-2.lua | 43 ++++++++++++++++++++++++++++++++
 2 files changed, 54 insertions(+)
 create mode 100755 challenge-126/stuart-little/lua/ch-1.lua
 create mode 100755 challenge-126/stuart-little/lua/ch-2.lua

diff --git a/challenge-126/stuart-little/lua/ch-1.lua b/challenge-126/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..031196b56e
--- /dev/null
+++ b/challenge-126/stuart-little/lua/ch-1.lua
@@ -0,0 +1,11 @@
+#!/usr/bin/env lua
+
+-- run <script> <number>
+
+function no1(nr)
+   if (nr:len() == 0) then return 0 end
+   if (nr:sub(1,1) == '1') then return 9^(nr:len()-1) end
+   return (tonumber(nr:sub(0,1))-1) * 9^(nr:len()-1) + no1(nr:sub(2))
+end
+
+print((not arg[1]:find('1')) and math.floor(no1(arg[1])) or math.floor(no1(arg[1])-1))
diff --git a/challenge-126/stuart-little/lua/ch-2.lua b/challenge-126/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..bdbfdf1451
--- /dev/null
+++ b/challenge-126/stuart-little/lua/ch-2.lua
@@ -0,0 +1,43 @@
+#!/usr/bin/env lua
+
+-- run <script>
+
+function nbrs(mat,i,j)
+   local t={}
+   for _,x in ipairs({-1,0,1}) do
+      for _,y in ipairs({-1,0,1}) do
+	 if ((x ~= 0 or y ~= 0) and 1 <= i+x and i+x <= #mat and 1 <= j+y and j+y <= #(mat[1])) then table.insert(t,{i+x,j+y}) end	    
+      end
+   end
+   return t
+end
+
+local inptStr=[[x * * * x * x x x x
+* * * * * * * * * x
+* * * * x * x * x *
+* * * x x * * * * *
+x * * * x * * * * x
+]]
+
+local inpt={}
+for ln in inptStr:gmatch("([^\n]+)") do
+   local lnTab = {}
+   for chr in ln:gmatch("([^%s]+)") do table.insert(lnTab,chr) end
+   table.insert(inpt,lnTab)
+end
+
+for i=1,#inpt do
+   local ln=""
+   for j=1,#(inpt[1]) do
+      if inpt[i][j] == 'x' then
+	 ln = ln .. 'x' .. ' '
+      else
+	 local nr=0
+	 for _,v in ipairs(nbrs(inpt,i,j)) do
+	    if inpt[v[1]][v[2]] == 'x' then nr = nr + 1 end
+	 end
+	 ln = ln .. tostring(nr) .. " "
+      end
+   end
+   print(ln)
+end
-- 
cgit 


From ca19c82987c3cef338dd9f9ec06eadaba63902a8 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 16 Aug 2021 20:21:20 -0400
Subject: 1st commit on 126_haskell

---
 challenge-126/stuart-little/haskell/ch-1.hs | 18 ++++++++++++++++++
 challenge-126/stuart-little/haskell/ch-2.hs | 25 +++++++++++++++++++++++++
 2 files changed, 43 insertions(+)
 create mode 100755 challenge-126/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-126/stuart-little/haskell/ch-2.hs

diff --git a/challenge-126/stuart-little/haskell/ch-1.hs b/challenge-126/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..3ad9b0fed8
--- /dev/null
+++ b/challenge-126/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,18 @@
+#!/usr/bin/env runghc
+
+-- run <script> <number>
+
+import Data.Char (digitToInt)
+import System.Environment (getArgs)
+
+no1 :: String -> Integer
+no1 nr
+  |length nr == 0 = 0
+  |head nr == '1' = 9^(length nr -1)
+  |otherwise = ((toInteger $ digitToInt $ head nr) - 1) * 9^(length nr -1) + (no1 $ tail nr)
+
+adjNo1 :: String -> Integer
+adjNo1 nr = if (not $ elem '1' nr) then (no1 nr) else (no1 nr - 1)
+
+main :: IO ()
+main = getArgs >>= putStrLn.show.adjNo1.head
diff --git a/challenge-126/stuart-little/haskell/ch-2.hs b/challenge-126/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..115b56e33c
--- /dev/null
+++ b/challenge-126/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,25 @@
+#!/usr/bin/env runghc
+
+-- run <script>
+
+{-# LANGUAGE QuasiQuotes #-}
+
+import System.Environment (getArgs)
+import Text.RawString.QQ
+
+nbrs :: [[a]] -> Int -> Int -> [(Int,Int)]
+nbrs mat i j = filter (\p-> (fst p /= i || snd p /= j) && (0 <= fst p) && (fst p < length mat) && (0 <= snd p) && (snd p < length (head mat))) $ map (\[x,y]->(i+x,j+y)) $ sequence $ replicate 2 [-1..1]
+
+mines :: [[String]] -> [[String]]
+mines xs = map (map (\(p,q,r)-> if r == "x" then "x" else show $ length $ filter (\nbr-> (xs !! (fst nbr)) !! (snd nbr) == "x") $ nbrs xs p q)) indexed where
+  indexed = map (\(i,ar)-> map (\(j,x) -> (i,j,x)) $ zip [0..] ar) $ zip [0..] xs
+
+inptStr :: String
+inptStr=[r|x * * * x * x x x x
+* * * * * * * * * x
+* * * * x * x * x *
+* * * x x * * * * *
+x * * * x * * * * x|]
+
+main :: IO ()
+main = putStrLn $ unlines $ map unwords $ mines $ map words $ lines inptStr
-- 
cgit 


From 6b52ecb856e9320ffa344b5e8f9df57cc7f7a40b Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Tue, 17 Aug 2021 13:21:37 +0800
Subject: Week 126

---
 challenge-126/cheok-yin-fung/perl/ch-1.pl |   1 +
 challenge-126/cheok-yin-fung/perl/ch-2.pl | 194 ++++++++++++++++++++++++++++++
 2 files changed, 195 insertions(+)
 create mode 100644 challenge-126/cheok-yin-fung/perl/ch-1.pl
 create mode 100644 challenge-126/cheok-yin-fung/perl/ch-2.pl

diff --git a/challenge-126/cheok-yin-fung/perl/ch-1.pl b/challenge-126/cheok-yin-fung/perl/ch-1.pl
new file mode 100644
index 0000000000..03dabfdf82
--- /dev/null
+++ b/challenge-126/cheok-yin-fung/perl/ch-1.pl
@@ -0,0 +1 @@
+perl -E '$_ = [grep {$_ !~ /1/} (1..$ARGV[0])]; say scalar @{$_}, "\n", "@{$_}"' 126
diff --git a/challenge-126/cheok-yin-fung/perl/ch-2.pl b/challenge-126/cheok-yin-fung/perl/ch-2.pl
new file mode 100644
index 0000000000..2401585f9e
--- /dev/null
+++ b/challenge-126/cheok-yin-fung/perl/ch-2.pl
@@ -0,0 +1,194 @@
+#!/usr/bin/perl
+use List::Util qw/sum/;
+use Getopt::Long;
+use Data::Dumper;
+use IO::Prompter;    # for the game part
+use v5.12.0;
+use experimental;
+no warnings;
+# Usage: $ ch-2.pl --file filename_of_the_map
+
+my $num_of_mines = 0;
+my $map;
+my $filename;
+
+GetOptions('file=s' => \$filename,);
+
+open FILE, $filename or die "Usage: \$ ch-2.pl --file filename_of_the_map\n";
+
+while ($_ = <FILE>) {
+    chomp($_);
+    $map .= ($_."\n");
+}
+close FILE;
+
+$map =~ s/[ \t]//g;
+
+my @temp = split "\n", $map;
+my $width = length $temp[0];
+my $height = scalar @temp;
+
+push @temp, '*' x $width;
+unshift @temp, '*' x $width;
+
+$_ = '*'. $_ . '*' foreach @temp;
+
+my $m = \@temp;
+
+for my $row (1..$height) {
+    for my $col (1..$width) {
+        substr($m->[$row], $col, 1) = countx($row, $col);
+    }
+}
+
+sub countx {
+    my $row = $_[0];
+    my $col = $_[1];
+
+    if (substr($m->[$row], $col, 1 ) eq 'x') {
+        $num_of_mines++;
+        return 'x';
+    }
+    my $ans = 0;
+    for my $r (-1, 0, +1) {
+        for my $c (-1, 0, +1) {
+            $ans += int( substr($m->[$row+$r], $col+$c,1 ) eq 'x')
+               unless ($r == $c && $c == 0)
+        }
+    }
+    return $ans;
+}
+
+for my $row (1..$height) {
+    substr($m->[$row], 0, 1) = "";
+    substr($m->[$row], -1, 1) = "";
+}
+
+my $master_board;
+for my $i (0..$height-1) {
+    $master_board->[$i] = [split //, $m->[$i+1]];
+}
+
+# =============== BEGIN: game (can be removed) ============
+# Following Lubos Kolouch's suggestion on the facebook group,
+# write a playable interface.
+
+my %b35;
+$b35{$_} = $_ for (1..9);
+$b35{$_} = chr(ord("A")-10+$_) for (10..35);
+
+my %rb35;
+$rb35{$_} = $_ for (1..9);
+$rb35{$_} = ord($_)-ord("A")+10 for ("A".."Z");
+
+
+# initialization
+my $explosion = undef;
+my $num_of_op_pos = 0;
+my $num_of_flags = 0;
+my $num_of_digits = $width*$height-$num_of_mines;
+
+my $table;
+for my $i (0..$height-1) {
+    for my $j (0..$width-1) {
+        $table->[$i][$j] = ".";
+    }
+}
+
+
+# interactive game
+my @data = ("", "", "");
+while (   !$explosion 
+        && $data[2] ne "q" 
+        && $num_of_op_pos < $num_of_digits
+      ) 
+{
+    my ($i, $j);
+
+    print_table();
+    say 'action option: (o(open), f(flag/unflag), c(cancel) or q(quit))';
+    @data = (
+        prompt(' row  :'),
+        prompt(' col  :'),
+        prompt('action:'),
+    );
+
+    if ( $data[0] !~ /^[1-9A-Z]$/ || $data[1] !~ /^[1-9A-Z]$/ )  {
+         say "Cannot identify your input of row/col.";
+         next; 
+    }
+    else
+    {     
+        $i = $rb35{$data[0]} - 1;  
+        $j = $rb35{$data[1]} - 1;  
+    }
+
+    if ( 
+        ($i > $height-1 || $i < 0)    
+           ||
+        ($j > $width-1 || $j < 0)  
+       )
+    {
+         say "Cannot identify your input.";
+         next; 
+    }
+
+    my $act = $data[2];
+    if ($act eq "o" && $master_board->[$i][$j] eq "x") {
+        $explosion = 1;
+        last; 
+    }
+
+    given ($act) {
+        when ("o") {
+            $table->[$i][$j] = $master_board->[$i][$j];
+            $num_of_op_pos++;
+        }
+        when ("f") {
+            if ($table->[$i][$j] !~ /^\d$/) {
+                $table->[$i][$j] = $table->[$i][$j] eq "f" ? "." : "f";
+            }
+            else {
+                say "Grid already identified.";
+            }
+        }
+        when ("c") {say "Action cancelled.";}
+        default {say "Cannot identify your action.";}
+    }
+}
+print "\n" x 3;
+say "BOOOOOOOOOOOOOOOOOOOOOOOOOOOOMB!" if $explosion;
+say "Safe, my hero!"
+  if $num_of_op_pos == $num_of_digits;
+
+sub print_table {
+    say "number of bombs: " , $num_of_mines;
+    say "number of flags: " , $num_of_flags;
+    say "number of opened positions: " , $num_of_op_pos;
+    print " ";
+    print sprintf("%2s", $b35{$_}) for (1..$width);
+    print "\n";
+    for my $i (0..$height-1) {
+        print $b35{$i+1}," ";
+        for my $j (0..$width-1) {
+            print $table->[$i][$j], " ";
+        }
+        print "\n";
+    }
+    print "\n" x 3;
+}
+
+
+# ================= END: game ===========================
+
+print_mine();
+
+sub print_mine {
+    for my $i (0..$height-1) {
+        print "  ";
+        for my $j (0..$width-1) {
+            print " ",$master_board->[$i][$j];
+        }
+        print "\n";
+    }
+}
-- 
cgit 


From 3be55703b10aa58f12f965455e6609960968f00d Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Tue, 17 Aug 2021 13:24:42 +0800
Subject: Week 126

---
 challenge-126/cheok-yin-fung/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-126/cheok-yin-fung/perl/ch-2.pl b/challenge-126/cheok-yin-fung/perl/ch-2.pl
index 2401585f9e..76722e4d6e 100644
--- a/challenge-126/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-126/cheok-yin-fung/perl/ch-2.pl
@@ -18,7 +18,7 @@ open FILE, $filename or die "Usage: \$ ch-2.pl --file filename_of_the_map\n";
 
 while ($_ = <FILE>) {
     chomp($_);
-    $map .= ($_."\n");
+    $map .= ($_."\n") if $_;
 }
 close FILE;
 
-- 
cgit 


From 0819af3198a49489cc0b96e1e3469f998db47ffe Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 17 Aug 2021 07:20:41 +0100
Subject: - Added guest contributions by Eric Cheung.

---
 .../eric-cheung/excel-vba/Challenge_126.xlsm       | Bin 0 -> 35210 bytes
 challenge-126/eric-cheung/excel-vba/ch-1.bas       |  62 ++++++++
 challenge-126/eric-cheung/excel-vba/ch-2.bas       | 157 +++++++++++++++++++++
 3 files changed, 219 insertions(+)
 create mode 100644 challenge-126/eric-cheung/excel-vba/Challenge_126.xlsm
 create mode 100644 challenge-126/eric-cheung/excel-vba/ch-1.bas
 create mode 100644 challenge-126/eric-cheung/excel-vba/ch-2.bas

diff --git a/challenge-126/eric-cheung/excel-vba/Challenge_126.xlsm b/challenge-126/eric-cheung/excel-vba/Challenge_126.xlsm
new file mode 100644
index 0000000000..b870075d23
Binary files /dev/null and b/challenge-126/eric-cheung/excel-vba/Challenge_126.xlsm differ
diff --git a/challenge-126/eric-cheung/excel-vba/ch-1.bas b/challenge-126/eric-cheung/excel-vba/ch-1.bas
new file mode 100644
index 0000000000..0f3d5fdba1
--- /dev/null
+++ b/challenge-126/eric-cheung/excel-vba/ch-1.bas
@@ -0,0 +1,62 @@
+Attribute VB_Name = "ModTask_01"
+Option Explicit
+Option Base 1
+Public Const strMyTitle As String = "Eric Cheung"
+
+Function GetCountNum(nNum) As Long
+
+    Dim nLoop As Long, nCntItem As Long, nTenNum As Long, nResult As Long, nTemp As Long, nTenPower As Long
+    Dim nNumArr As Variant
+    
+    If nNum <= 1 Then
+        GetCountNum = 0
+        Exit Function
+    End If
+    
+    nCntItem = 9
+    nNumArr = Array(0, 2, 3, 4, 5, 6, 7, 8, 9)
+    
+    nTenNum = 0
+    nResult = 0
+    nTenPower = 1
+    
+    Do While True
+        For nLoop = 1 To nCntItem
+            nTemp = nTenNum * 10 + nNumArr(nLoop)
+            If nTemp = nNum Then
+                GetCountNum = nResult 'Exclude 0
+                Exit Function
+            ElseIf nTemp > nNum Then
+                GetCountNum = nResult - 1 'Exclude 0
+                Exit Function
+            End If
+            nResult = nResult + 1
+        Next nLoop
+        
+        If nTenNum Mod 10 = 0 Then ''E.g. nTenNum: 0, 20, 30, 40, ...
+            nTenNum = nTenNum + 2
+        ElseIf nTenNum = nTenPower * 10 - 1 Then ''E.g. nTenNum: 9, 99, 999, ...
+            nTenPower = nTenPower * 10
+            nTenNum = nTenNum + nTenPower + 1
+        Else
+            nTenNum = nTenNum + 1
+        End If
+    Loop
+    
+End Function
+
+Sub Task_01()
+
+    Dim varInputNum
+    Dim strMsg As String
+    
+    Do
+        varInputNum = InputBox("Please enter a positive number", strMyTitle, 15)
+        If varInputNum = "" Then Exit Sub
+    Loop Until varInputNum > 0
+
+    strMsg = "There are " & GetCountNum(varInputNum) & " numbers between 1 and " & varInputNum & " that don't contain digit 1"
+
+    MsgBox strMsg, vbOKOnly, strMyTitle
+    
+End Sub
diff --git a/challenge-126/eric-cheung/excel-vba/ch-2.bas b/challenge-126/eric-cheung/excel-vba/ch-2.bas
new file mode 100644
index 0000000000..1d75c8adba
--- /dev/null
+++ b/challenge-126/eric-cheung/excel-vba/ch-2.bas
@@ -0,0 +1,157 @@
+Attribute VB_Name = "ModTask_02"
+Option Explicit
+Option Base 1
+
+Function PrintArr(nMatrix, Optional bHide As Boolean = True) As String
+
+    Dim nRowLoop As Integer, nColLoop As Integer
+    
+    For nRowLoop = LBound(nMatrix, 1) To UBound(nMatrix, 1)
+        For nColLoop = LBound(nMatrix, 2) To UBound(nMatrix, 2)
+            If PrintArr <> "" Then
+                PrintArr = PrintArr & "  "
+            End If
+            
+            If bHide And nMatrix(nRowLoop, nColLoop) = 0 Then
+                PrintArr = PrintArr & "*"
+            ElseIf nMatrix(nRowLoop, nColLoop) = -1 Then
+                PrintArr = PrintArr & "x"
+            Else
+                PrintArr = PrintArr & nMatrix(nRowLoop, nColLoop)
+            End If
+        Next nColLoop
+        PrintArr = PrintArr & vbNewLine
+    Next nRowLoop
+
+End Function
+
+Function CountLandMineNearBy(ByRef nMatrix, nRowIndex As Integer, nColIndex As Integer) As Integer
+
+    Dim nRowSize As Integer, nColSize As Integer
+    
+    If nMatrix(nRowIndex, nColIndex) = -1 Then
+        CountLandMineNearBy = -1
+        Exit Function
+    End If
+    
+    nRowSize = UBound(nMatrix, 1) - LBound(nMatrix, 1) + 1
+    nColSize = UBound(nMatrix, 2) - LBound(nMatrix, 2) + 1
+    
+    If nRowIndex - 1 > 0 And nColIndex - 1 > 0 Then
+        If nMatrix(nRowIndex - 1, nColIndex - 1) = -1 Then
+            CountLandMineNearBy = CountLandMineNearBy + 1
+        End If
+    End If
+    
+    If nRowIndex - 1 > 0 Then
+        If nMatrix(nRowIndex - 1, nColIndex) = -1 Then
+            CountLandMineNearBy = CountLandMineNearBy + 1
+        End If
+    End If
+    
+    If nRowIndex - 1 > 0 And nColIndex < nColSize Then
+        If nMatrix(nRowIndex - 1, nColIndex + 1) = -1 Then
+            CountLandMineNearBy = CountLandMineNearBy + 1
+        End If
+    End If
+    
+    If nColIndex - 1 > 0 Then
+        If nMatrix(nRowIndex, nColIndex - 1) = -1 Then
+            CountLandMineNearBy = CountLandMineNearBy + 1
+        End If
+    End If
+    
+    If nColIndex < nColSize Then
+        If nMatrix(nRowIndex, nColIndex + 1) = -1 Then
+            CountLandMineNearBy = CountLandMineNearBy + 1
+        End If
+    End If
+    
+    If nRowIndex < nRowSize And nColIndex - 1 > 0 Then
+        If nMatrix(nRowIndex + 1, nColIndex - 1) = -1 Then
+            CountLandMineNearBy = CountLandMineNearBy + 1
+        End If
+    End If
+    
+    If nRowIndex < nRowSize Then
+        If nMatrix(nRowIndex + 1, nColIndex) = -1 Then
+            CountLandMineNearBy = CountLandMineNearBy + 1
+        End If
+    End If
+    
+    If nRowIndex < nRowSize And nColIndex < nColSize Then
+        If nMatrix(nRowIndex + 1, nColIndex + 1) = -1 Then
+            CountLandMineNearBy = CountLandMineNearBy + 1
+        End If
+    End If
+    
+End Function
+
+Sub CountLandMineNearByAll(ByRef nMatrix)
+    
+    Dim nRowLoop As Integer, nColLoop As Integer
+    
+    For nRowLoop = LBound(nMatrix, 1) To UBound(nMatrix, 1)
+        For nColLoop = LBound(nMatrix, 2) To UBound(nMatrix, 2)
+            If nMatrix(nRowLoop, nColLoop) > -1 Then
+                nMatrix(nRowLoop, nColLoop) = CountLandMineNearBy(nMatrix, nRowLoop, nColLoop)
+            End If
+        Next nColLoop
+    Next nRowLoop
+    
+End Sub
+
+Sub Task_02()
+    
+    Const nRowNum As Integer = 5
+    Const nColNum As Integer = 10
+    
+    Dim strMsg As String
+    
+    '' Define Rectangle
+    Dim nMineArr(1 To nRowNum, 1 To nColNum) As Integer
+    
+    '' ======== Land Mine ========
+    '' Initialize, -1 Represents Land Mine
+    nMineArr(1, 1) = -1
+    nMineArr(5, 1) = -1
+    
+    nMineArr(4, 4) = -1
+    
+    nMineArr(1, 5) = -1
+    nMineArr(3, 5) = -1
+    nMineArr(4, 5) = -1
+    nMineArr(5, 5) = -1
+    
+    nMineArr(1, 7) = -1
+    nMineArr(3, 7) = -1
+    
+    nMineArr(1, 8) = -1
+    
+    nMineArr(1, 9) = -1
+    nMineArr(3, 9) = -1
+    
+    nMineArr(1, 10) = -1
+    nMineArr(2, 10) = -1
+    nMineArr(5, 10) = -1
+    '' ======== Land Mine ========
+    
+    
+    '' ======== Print Original Array ========
+    ''strMsg = PrintArr(nMineArr)
+    '' ======== Print Original Array ========
+    
+    '' ======== Count ========
+    CountLandMineNearByAll nMineArr
+    '' ======== Count ========
+    
+    '' ======== Print Count Array ========
+    strMsg = PrintArr(nMineArr, False)
+    '' ======== Print Count Array ========
+    
+    '' ======== Output Result ========
+    MsgBox strMsg, vbOKOnly, strMyTitle
+    '' ======== Output Result ========
+    
+End Sub
+
-- 
cgit 


From f9c2901f6f712a83492e95b35e68c8becbc9e4d5 Mon Sep 17 00:00:00 2001
From: Andrew Shitov <andy@shitov.ru>
Date: Tue, 17 Aug 2021 09:36:59 +0200
Subject: use given/when

---
 challenge-126/ash/raku/ch-1.raku | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/challenge-126/ash/raku/ch-1.raku b/challenge-126/ash/raku/ch-1.raku
index d1c42c4796..08d68052e4 100644
--- a/challenge-126/ash/raku/ch-1.raku
+++ b/challenge-126/ash/raku/ch-1.raku
@@ -1,18 +1,18 @@
 sub count($n) {
     my @items = (2..$n).grep: * !~~ /1/;
-    if @items {
-        if @items.elems == 1 {
+    given @items.elems {
+        when 0 {
+            say "There are no numbers up to $n that contain no digit 1.";
+        }
+        when 1 {
             say "There is 1 number between 1 and $n that doesn't contain digit 1.";
         }
-        else {
+        default {
             say "There are {+@items} numbers between 1 and $n that don't contain digit 1.";
         }
-
-        say @items.join(', ') ~ '.';
-    }
-    else {
-        say "There are no numbers between 1 and $n that contain no digit 1.";
     }
+
+    say @items.join(', ') ~ '.' if @items;
 }
 
-.&count for 5, 15, 25;
+.&count for 1, 2, 5, 15, 25;
-- 
cgit 


From 8c9ede5b36bcca1030ec86cee0e0bb9c60381f1c Mon Sep 17 00:00:00 2001
From: corvettes13 <86648326+corvettes13@users.noreply.github.com>
Date: Tue, 17 Aug 2021 03:36:10 -0500
Subject: Create ch-1.pl

---
 challenge-126/paul-fajman/perl/ch-1.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 challenge-126/paul-fajman/perl/ch-1.pl

diff --git a/challenge-126/paul-fajman/perl/ch-1.pl b/challenge-126/paul-fajman/perl/ch-1.pl
new file mode 100644
index 0000000000..9970f0f991
--- /dev/null
+++ b/challenge-126/paul-fajman/perl/ch-1.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+# Weekly Challenge 126 Task #1
+# You are given a positive integer $N.
+# Write a script to print count of numbers from 1 to $N that don’t contain digit 1.
+
+use strict;
+use warnings;
+
+die "\nPlease provide positive integer for input\n" if (!@ARGV);
+my $number = $ARGV[0];
+my $i;
+
+my @nums = (2..$number); # Create array of numbers from 2 up to user input number.
+my @final = grep(!/1/, @nums); # Create new array not including numbers that have a 1.
+
+my $count = scalar @final; # Get length of new array.
+
+print "Input: \$N = $number\n";
+print "Output: $count\n\n";
+
+print "There are $count numbers between 1 and $number that don't contain the digit 1\n";
+print "@final\n";
-- 
cgit 


From dd281d7ca292a7928a82d468b099235bf8161a94 Mon Sep 17 00:00:00 2001
From: corvettes13 <86648326+corvettes13@users.noreply.github.com>
Date: Tue, 17 Aug 2021 03:38:04 -0500
Subject: Create ch-2.pl

---
 challenge-126/paul-fajman/perl/ch-2.pl | 139 +++++++++++++++++++++++++++++++++
 1 file changed, 139 insertions(+)
 create mode 100644 challenge-126/paul-fajman/perl/ch-2.pl

diff --git a/challenge-126/paul-fajman/perl/ch-2.pl b/challenge-126/paul-fajman/perl/ch-2.pl
new file mode 100644
index 0000000000..a4cf5814dd
--- /dev/null
+++ b/challenge-126/paul-fajman/perl/ch-2.pl
@@ -0,0 +1,139 @@
+#!/usr/bin/perl
+
+# Weekly Challenge 126 Task #2
+# You are given a rectangle with points marked with either x or *. Please consider the x as a land mine.
+# Write a script to print a rectangle with numbers and x as in the Minesweeper game.
+
+use strict;
+use warnings;
+use List::Util qw( shuffle);
+
+# Sample input to test code
+my @input=(['x','*','*','*','x','*','x','x','x','x'],
+          ['*','*','*','*','*','*','*','*','*','x'],
+          ['*','*','*','*','x','*','x','*','x','*'],
+          ['*','*','*','x','x','*','*','*','*','*'],
+          ['x','*','*','*','x','*','*','*','*','x']
+         );
+
+my $x=$#input+1; # max height
+my $y=@{$input[0]}; #max width
+my $mines=400; # Used to test input later. I limited code to 20x20, so max is 399
+my $max; # Used to test input mines
+
+print "Create random grid (y/n)? ";
+my $ans = <STDIN>;
+chomp ($ans);
+
+if (lc($ans) eq "y") { # User wants a random grid
+  $x=21;
+  $y=21;
+
+  while ($y > 20 || $y < 3) { # Arbitrary grid limits
+    print "Enter grid width (Values between 3 and 20): ";
+    $y = <STDIN>;
+    chomp($y);
+  }
+  while ($x > 20 || $x < 3) { # Arbitrary grid limts
+    print "Enter grid height (Values between 3 and 20): ";
+    $x = <STDIN>;
+    chomp($x);
+  }
+  while ($mines > $x*$y-1 || $mines <= 0) { # Need at least 1 square that's not a mine
+    $max = $x*$y-1;
+    print "Enter number of mines (Values must be between 1 and $max): ";
+    $mines = <STDIN>;
+    chomp($mines);
+  }
+
+  my @rands = shuffle 0..$max; # Generate random mine numbers up to maximum size of grid
+  my @mines = @rands[0 .. $mines-1]; # "Choose" where the mines go. By grabbing X elements
+                                     # of array where X is number of mines user wants
+  @input = create_grid(\@mines); # Create the random grid.
+}
+elsif ($ans ne "n") { # User can't answer a simple y or n question. 
+  die "Please only enter y or n. Terminating...\n\n";
+}
+
+my @output;
+my ($i,$j,$m,$n);
+my $count;
+
+# Loop over the multi-dimensional array to count mines
+for ($i=0;$i<$x;$i++) {
+  for ($j=0;$j<$y;$j++) {
+    if ($input[$i][$j] eq 'x') {
+      $count="x"; # Spot is a mine, no number should be displayed.
+    }
+    else {
+      $count=check_for_mines(); # Check for the number of mines the spot touches
+    }
+    $output[$i][$j] = $count; # Create the output grid.
+  }
+}
+
+# Used to dereference the arrays.
+my $df;
+my @df;
+
+# Print input grid
+print "Input: \n";
+foreach(@input) {
+  $df=$_;
+  @df=@$df;
+  print "@df\n";
+}
+
+# Print output grid
+print "\nOutput: \n";
+
+foreach(@output) {
+  $df=$_;
+  @df=@$df;
+  print "@df\n";
+}
+
+# Subroutine check_for_mines
+# Count the number of mines that a spot touches and return the value
+sub check_for_mines {
+  my $check1; my $check2;
+  my $Xs=0;
+  for ($m=-1;$m<2;$m++) {
+    for ($n=-1;$n<2;$n++) {
+
+      if ($i+$m == -1 || $i+$m == $x) {
+        # Grid spot doesn't exit, do nothing
+      }
+      elsif ($j+$n == -1 || $j+$n == $y) {
+        # Grid spot doesn't exist, do nothing
+      }
+      else {
+        $Xs++ if $input[$i+$m][$j+$n] eq "x";
+      }
+    }
+  }
+  return $Xs;
+}
+# End of subroutine check_for_mines;
+
+# Subroutine create_grid
+# Accept array input that specifies where the mines go;
+sub create_grid {
+  my $z=0; # Used to help determine if at a mine location;
+  my $refmines = $_[0]; # mine locations;
+  my @return_grid;
+
+  for ($i=0;$i<$x;$i++) {
+    for ($j=0;$j<$y;$j++) {
+      if ($z ~~ $refmines) { # If counter is in the mine array, it's a mine!
+        $return_grid[$i][$j] = 'x';
+      }
+      else {
+        $return_grid[$i][$j] = '*'; # Not a mine;
+      }
+      $z++;
+    }
+  }
+  return @return_grid; # Return the grid
+}
+# End of subroutine create_grid;
-- 
cgit 


From 34948e6c12ce05d8f27f28f9dff20e4cf1a97dd2 Mon Sep 17 00:00:00 2001
From: James Smith <js5@sanger.ac.uk>
Date: Tue, 17 Aug 2021 10:04:52 +0100
Subject: Tidied

---
 challenge-126/james-smith/README.md    | 16 +++++++++++++---
 challenge-126/james-smith/perl/ch-2.pl | 22 ++++++++++++++++++----
 2 files changed, 31 insertions(+), 7 deletions(-)

diff --git a/challenge-126/james-smith/README.md b/challenge-126/james-smith/README.md
index 6f2ffee2f8..9b9be88add 100644
--- a/challenge-126/james-smith/README.md
+++ b/challenge-126/james-smith/README.md
@@ -77,9 +77,19 @@ sub solve {
   foreach my $y ( 0 .. $h ) {
     push @res, join '', map {
       $g[$y][$_] ? 'x' :
-        ( $y    ? ( $_ ? $g[$y-1][$_-1] : 0 ) + $g[$y-1][$_] + ( $_<$w ? $g[$y-1][$_+1] : 0 ) : 0 ) +
-                  ( $_ ? $g[$y  ][$_-1] : 0 ) + $g[$y  ][$_] + ( $_<$w ? $g[$y  ][$_+1] : 0 )       +
-        ( $y<$h ? ( $_ ? $g[$y+1][$_-1] : 0 ) + $g[$y+1][$_] + ( $_<$w ? $g[$y+1][$_+1] : 0 ) : 0 )
+        ( $y    ? ( $_    ? $g[$y-1][$_-1] : 0 ) +
+                            $g[$y-1][$_  ]       +
+                  ( $_<$w ? $g[$y-1][$_+1] : 0 )
+                : 0 ) +
+                
+                  ( $_    ? $g[$y  ][$_-1] : 0 ) +
+                            $g[$y  ][$_  ]       +
+                  ( $_<$w ? $g[$y  ][$_+1] : 0 ) +
+
+        ( $y<$h ? ( $_    ? $g[$y+1][$_-1] : 0 ) +
+                            $g[$y+1][$_  ]       +
+                  ( $_<$w ? $g[$y+1][$_+1] : 0 )
+                : 0 )
      } 0 .. $w;
   }
   return join "\n", @res;
diff --git a/challenge-126/james-smith/perl/ch-2.pl b/challenge-126/james-smith/perl/ch-2.pl
index 195a1fbc6a..cf7701467d 100644
--- a/challenge-126/james-smith/perl/ch-2.pl
+++ b/challenge-126/james-smith/perl/ch-2.pl
@@ -8,7 +8,11 @@ use Test::More;
 use Benchmark qw(cmpthese timethis);
 use Data::Dumper qw(Dumper);
 
-my @grid = qw(x***x*xxxx *********x ****x*x*x* ***xx***** x***x****x);
+my @grid = qw(x***x*xxxx 
+              *********x 
+              ****x*x*x* 
+              ***xx***** 
+              x***x****x);
 
 say join "\n",'',@grid,'';
 say solve(@grid);
@@ -22,9 +26,19 @@ sub solve {
   foreach my $y ( 0 .. $h ) {
     push @res, join '', map {
       $g[$y][$_] ? 'x' :
-        ( $y    ? ( $_ ? $g[$y-1][$_-1] : 0 ) + $g[$y-1][$_] + ( $_<$w ? $g[$y-1][$_+1] : 0 ) : 0 ) +
-                  ( $_ ? $g[$y  ][$_-1] : 0 ) + $g[$y  ][$_] + ( $_<$w ? $g[$y  ][$_+1] : 0 )       +
-        ( $y<$h ? ( $_ ? $g[$y+1][$_-1] : 0 ) + $g[$y+1][$_] + ( $_<$w ? $g[$y+1][$_+1] : 0 ) : 0 )
+        ( $y    ? ( $_    ? $g[$y-1][$_-1] : 0 ) +
+                            $g[$y-1][$_  ]       +
+                  ( $_<$w ? $g[$y-1][$_+1] : 0 )
+                : 0 ) +
+                
+                  ( $_    ? $g[$y  ][$_-1] : 0 ) +
+                            $g[$y  ][$_  ]       +
+                  ( $_<$w ? $g[$y  ][$_+1] : 0 ) +
+
+        ( $y<$h ? ( $_    ? $g[$y+1][$_-1] : 0 ) +
+                            $g[$y+1][$_  ]       +
+                  ( $_<$w ? $g[$y+1][$_+1] : 0 )
+                : 0 )
      } 0 .. $w;
   }
   return join "\n", @res;
-- 
cgit 


From d5c6d496edc858aafe8fa6c6eb2a559fc5ba4e9b Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Tue, 17 Aug 2021 11:01:53 +0100
Subject: solution to #1 in cesil

---
 challenge-126/james-smith/cesil/ch1.ces | 42 +++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 challenge-126/james-smith/cesil/ch1.ces

diff --git a/challenge-126/james-smith/cesil/ch1.ces b/challenge-126/james-smith/cesil/ch1.ces
new file mode 100644
index 0000000000..2e060bf411
--- /dev/null
+++ b/challenge-126/james-smith/cesil/ch1.ces
@@ -0,0 +1,42 @@
+        LINE
+Next    LOAD 0
+        STORE count
+        LOAD 1
+        STORE mult9
+        IN
+        JINEG End
+        OUT
+        PRINT " - "
+Loop    STORE n
+        DIVIDE 10
+        STORE new_n
+        MULTIPLY -10
+        ADD n
+        JIZERO Skip
+        ADD -1
+        JIZERO is_one
+        JUMP not_1
+is_one  LOAD -1
+        ADD   mult9
+        STORE count
+        JUMP Skip
+not_1   MULTIPLY mult9
+        ADD count
+        STORE count
+Skip    LOAD mult9
+        MULTIPLY 9
+        STORE mult9
+        LOAD new_n
+        JIZERO Disp
+        JUMP Loop
+Disp    LOAD count
+        OUT
+        LINE
+        JUMP Next
+End     HALT
+        %
+        15
+        25
+        18446744073709551615
+        -1
+
-- 
cgit 


From 2bbb9d164d63c3fe67a8bd8bcdcefcde81955fda Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Tue, 17 Aug 2021 11:02:57 +0100
Subject: renamed cesil function

---
 challenge-126/james-smith/cesil/ch-1.ces | 42 ++++++++++++++++++++++++++++++++
 challenge-126/james-smith/cesil/ch1.ces  | 42 --------------------------------
 2 files changed, 42 insertions(+), 42 deletions(-)
 create mode 100644 challenge-126/james-smith/cesil/ch-1.ces
 delete mode 100644 challenge-126/james-smith/cesil/ch1.ces

diff --git a/challenge-126/james-smith/cesil/ch-1.ces b/challenge-126/james-smith/cesil/ch-1.ces
new file mode 100644
index 0000000000..2e060bf411
--- /dev/null
+++ b/challenge-126/james-smith/cesil/ch-1.ces
@@ -0,0 +1,42 @@
+        LINE
+Next    LOAD 0
+        STORE count
+        LOAD 1
+        STORE mult9
+        IN
+        JINEG End
+        OUT
+        PRINT " - "
+Loop    STORE n
+        DIVIDE 10
+        STORE new_n
+        MULTIPLY -10
+        ADD n
+        JIZERO Skip
+        ADD -1
+        JIZERO is_one
+        JUMP not_1
+is_one  LOAD -1
+        ADD   mult9
+        STORE count
+        JUMP Skip
+not_1   MULTIPLY mult9
+        ADD count
+        STORE count
+Skip    LOAD mult9
+        MULTIPLY 9
+        STORE mult9
+        LOAD new_n
+        JIZERO Disp
+        JUMP Loop
+Disp    LOAD count
+        OUT
+        LINE
+        JUMP Next
+End     HALT
+        %
+        15
+        25
+        18446744073709551615
+        -1
+
diff --git a/challenge-126/james-smith/cesil/ch1.ces b/challenge-126/james-smith/cesil/ch1.ces
deleted file mode 100644
index 2e060bf411..0000000000
--- a/challenge-126/james-smith/cesil/ch1.ces
+++ /dev/null
@@ -1,42 +0,0 @@
-        LINE
-Next    LOAD 0
-        STORE count
-        LOAD 1
-        STORE mult9
-        IN
-        JINEG End
-        OUT
-        PRINT " - "
-Loop    STORE n
-        DIVIDE 10
-        STORE new_n
-        MULTIPLY -10
-        ADD n
-        JIZERO Skip
-        ADD -1
-        JIZERO is_one
-        JUMP not_1
-is_one  LOAD -1
-        ADD   mult9
-        STORE count
-        JUMP Skip
-not_1   MULTIPLY mult9
-        ADD count
-        STORE count
-Skip    LOAD mult9
-        MULTIPLY 9
-        STORE mult9
-        LOAD new_n
-        JIZERO Disp
-        JUMP Loop
-Disp    LOAD count
-        OUT
-        LINE
-        JUMP Next
-End     HALT
-        %
-        15
-        25
-        18446744073709551615
-        -1
-
-- 
cgit 


From ae6deed0b25018ab443b3e9c15cdc91713c9be34 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 17 Aug 2021 12:33:06 +0100
Subject: - Added solutions by Paul Fajman.

---
 stats/pwc-current.json                    | 119 +++--
 stats/pwc-language-breakdown-summary.json |  74 +--
 stats/pwc-language-breakdown.json         | 788 +++++++++++++++---------------
 stats/pwc-leaders.json                    | 710 +++++++++++++--------------
 stats/pwc-summary-1-30.json               |  40 +-
 stats/pwc-summary-121-150.json            | 102 ++--
 stats/pwc-summary-151-180.json            |  92 ++--
 stats/pwc-summary-181-210.json            |  30 +-
 stats/pwc-summary-211-240.json            |  36 +-
 stats/pwc-summary-31-60.json              |  32 +-
 stats/pwc-summary-61-90.json              |  42 +-
 stats/pwc-summary-91-120.json             |  44 +-
 stats/pwc-summary.json                    | 512 +++++++++----------
 13 files changed, 1318 insertions(+), 1303 deletions(-)

diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 56c66ad4bb..f45620e74c 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,7 +1,4 @@
 {
-   "xAxis" : {
-      "type" : "category"
-   },
    "title" : {
       "text" : "The Weekly Challenge - 126"
    },
@@ -14,34 +11,39 @@
          "name" : "The Weekly Challenge - 126",
          "data" : [
             {
-               "name" : "Andrew Shitov",
                "drilldown" : "Andrew Shitov",
-               "y" : 1
+               "y" : 1,
+               "name" : "Andrew Shitov"
             },
             {
+               "name" : "Cristina Heredia",
                "y" : 1,
-               "drilldown" : "Cristina Heredia",
-               "name" : "Cristina Heredia"
+               "drilldown" : "Cristina Heredia"
             },
             {
-               "y" : 3,
                "drilldown" : "James Smith",
+               "y" : 3,
                "name" : "James Smith"
             },
             {
-               "name" : "Luca Ferrari",
                "y" : 4,
-               "drilldown" : "Luca Ferrari"
+               "drilldown" : "Luca Ferrari",
+               "name" : "Luca Ferrari"
             },
             {
-               "drilldown" : "Mark Anderson",
+               "name" : "Mark Anderson",
                "y" : 2,
-               "name" : "Mark Anderson"
+               "drilldown" : "Mark Anderson"
             },
             {
-               "y" : 1,
+               "name" : "Olivier Delouya",
                "drilldown" : "Olivier Delouya",
-               "name" : "Olivier Delouya"
+               "y" : 1
+            },
+            {
+               "name" : "Paul Fajman",
+               "drilldown" : "Paul Fajman",
+               "y" : 2
             },
             {
                "drilldown" : "Roger Bell_West",
@@ -49,62 +51,68 @@
                "name" : "Roger Bell_West"
             },
             {
-               "drilldown" : "Simon Green",
+               "name" : "Simon Green",
                "y" : 3,
-               "name" : "Simon Green"
+               "drilldown" : "Simon Green"
             },
             {
                "name" : "Simon Proctor",
-               "y" : 1,
-               "drilldown" : "Simon Proctor"
+               "drilldown" : "Simon Proctor",
+               "y" : 1
             },
             {
-               "name" : "Steven Wilson",
+               "drilldown" : "Steven Wilson",
                "y" : 1,
-               "drilldown" : "Steven Wilson"
+               "name" : "Steven Wilson"
             },
             {
+               "name" : "Stuart Little",
                "drilldown" : "Stuart Little",
-               "y" : 4,
-               "name" : "Stuart Little"
+               "y" : 4
             }
          ]
       }
    ],
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
    "legend" : {
       "enabled" : 0
    },
    "subtitle" : {
-      "text" : "[Champions: 11] Last updated at 2021-08-16 23:25:19 GMT"
+      "text" : "[Champions: 12] Last updated at 2021-08-17 11:32:05 GMT"
+   },
+   "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/>"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
    },
    "drilldown" : {
       "series" : [
          {
-            "name" : "Andrew Shitov",
             "data" : [
                [
                   "Raku",
                   1
                ]
             ],
-            "id" : "Andrew Shitov"
+            "id" : "Andrew Shitov",
+            "name" : "Andrew Shitov"
          },
          {
+            "id" : "Cristina Heredia",
             "data" : [
                [
                   "Perl",
                   1
                ]
             ],
-            "name" : "Cristina Heredia",
-            "id" : "Cristina Heredia"
+            "name" : "Cristina Heredia"
          },
          {
+            "id" : "James Smith",
             "data" : [
                [
                   "Perl",
@@ -115,11 +123,9 @@
                   1
                ]
             ],
-            "name" : "James Smith",
-            "id" : "James Smith"
+            "name" : "James Smith"
          },
          {
-            "id" : "Luca Ferrari",
             "name" : "Luca Ferrari",
             "data" : [
                [
@@ -130,28 +136,39 @@
                   "Blog",
                   2
                ]
-            ]
+            ],
+            "id" : "Luca Ferrari"
          },
          {
-            "name" : "Mark Anderson",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "id" : "Mark Anderson"
+            "id" : "Mark Anderson",
+            "name" : "Mark Anderson"
          },
          {
+            "name" : "Olivier Delouya",
             "data" : [
                [
                   "Perl",
                   1
                ]
             ],
-            "name" : "Olivier Delouya",
             "id" : "Olivier Delouya"
          },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "Paul Fajman",
+            "name" : "Paul Fajman"
+         },
          {
             "id" : "Roger Bell_West",
             "data" : [
@@ -181,27 +198,26 @@
             "id" : "Simon Green"
          },
          {
+            "name" : "Simon Proctor",
+            "id" : "Simon Proctor",
             "data" : [
                [
                   "Raku",
                   1
                ]
-            ],
-            "name" : "Simon Proctor",
-            "id" : "Simon Proctor"
+            ]
          },
          {
+            "id" : "Steven Wilson",
             "data" : [
                [
                   "Perl",
                   1
                ]
             ],
-            "name" : "Steven Wilson",
-            "id" : "Steven Wilson"
+            "name" : "Steven Wilson"
          },
          {
-            "id" : "Stuart Little",
             "data" : [
                [
                   "Perl",
@@ -212,22 +228,21 @@
                   2
                ]
             ],
+            "id" : "Stuart Little",
             "name" : "Stuart Little"
          }
       ]
    },
+   "xAxis" : {
+      "type" : "category"
+   },
    "plotOptions" : {
       "series" : {
          "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
+            "enabled" : 1,
+            "format" : "{point.y}"
          },
          "borderWidth" : 0
       }
-   },
-   "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/>"
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 08c192ee47..5cfe30a915 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,31 +1,12 @@
 {
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
-   },
-   "xAxis" : {
-      "labels" : {
-         "style" : {
-            "fontFamily" : "Verdana, sans-serif",
-            "fontSize" : "13px"
-         }
-      },
-      "type" : "category"
-   },
-   "title" : {
-      "text" : "The Weekly Challenge Contributions [2019 - 2021]"
-   },
-   "chart" : {
-      "type" : "column"
+   "subtitle" : {
+      "text" : "Last updated at 2021-08-17 11:32:05 GMT"
    },
-   "yAxis" : {
-      "min" : 0,
-      "title" : {
-         "text" : null
-      }
+   "legend" : {
+      "enabled" : "false"
    },
    "series" : [
       {
-         "name" : "Contributions",
          "data" : [
             [
                "Blog",
@@ -33,7 +14,7 @@
             ],
             [
                "Perl",
-               5996
+               5998
             ],
             [
                "Raku",
@@ -41,23 +22,42 @@
             ]
          ],
          "dataLabels" : {
-            "align" : "right",
-            "style" : {
-               "fontFamily" : "Verdana, sans-serif",
-               "fontSize" : "13px"
-            },
+            "format" : "{point.y:.0f}",
             "rotation" : -90,
-            "color" : "#FFFFFF",
+            "align" : "right",
             "y" : 10,
-            "format" : "{point.y:.0f}",
-            "enabled" : "true"
-         }
+            "color" : "#FFFFFF",
+            "enabled" : "true",
+            "style" : {
+               "fontSize" : "13px",
+               "fontFamily" : "Verdana, sans-serif"
+            }
+         },
+         "name" : "Contributions"
       }
    ],
-   "legend" : {
-      "enabled" : "false"
+   "chart" : {
+      "type" : "column"
    },
-   "subtitle" : {
-      "text" : "Last updated at 2021-08-16 23:25:19 GMT"
+   "title" : {
+      "text" : "The Weekly Challenge Contributions [2019 - 2021]"
+   },
+   "xAxis" : {
+      "labels" : {
+         "style" : {
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
+         }
+      },
+      "type" : "category"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : null
+      },
+      "min" : 0
+   },
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
    }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index d6b5555f62..e55760f26d 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,22 +1,7 @@
 {
-   "tooltip" : {
-      "headerFormat" : "<span style=\"font-size:11px\"></span>",
-      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
-      "followPointer" : "true"
-   },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         },
-         "borderWidth" : 0
-      }
-   },
    "drilldown" : {
       "series" : [
          {
-            "id" : "001",
             "name" : "001",
             "data" : [
                [
@@ -31,9 +16,11 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "id" : "001"
          },
          {
+            "id" : "002",
             "data" : [
                [
                   "Perl",
@@ -48,10 +35,11 @@
                   10
                ]
             ],
-            "name" : "002",
-            "id" : "002"
+            "name" : "002"
          },
          {
+            "name" : "003",
+            "id" : "003",
             "data" : [
                [
                   "Perl",
@@ -65,9 +53,7 @@
                   "Blog",
                   9
                ]
-            ],
-            "name" : "003",
-            "id" : "003"
+            ]
          },
          {
             "id" : "004",
@@ -88,6 +74,8 @@
             "name" : "004"
          },
          {
+            "name" : "005",
+            "id" : "005",
             "data" : [
                [
                   "Perl",
@@ -101,12 +89,10 @@
                   "Blog",
                   12
                ]
-            ],
-            "name" : "005",
-            "id" : "005"
+            ]
          },
          {
-            "id" : "006",
+            "name" : "006",
             "data" : [
                [
                   "Perl",
@@ -121,9 +107,10 @@
                   7
                ]
             ],
-            "name" : "006"
+            "id" : "006"
          },
          {
+            "name" : "007",
             "data" : [
                [
                   "Perl",
@@ -138,7 +125,6 @@
                   10
                ]
             ],
-            "name" : "007",
             "id" : "007"
          },
          {
@@ -160,6 +146,8 @@
             "name" : "008"
          },
          {
+            "name" : "009",
+            "id" : "009",
             "data" : [
                [
                   "Perl",
@@ -173,13 +161,11 @@
                   "Blog",
                   13
                ]
-            ],
-            "name" : "009",
-            "id" : "009"
+            ]
          },
          {
-            "id" : "010",
             "name" : "010",
+            "id" : "010",
             "data" : [
                [
                   "Perl",
@@ -196,6 +182,8 @@
             ]
          },
          {
+            "name" : "011",
+            "id" : "011",
             "data" : [
                [
                   "Perl",
@@ -209,13 +197,10 @@
                   "Blog",
                   10
                ]
-            ],
-            "name" : "011",
-            "id" : "011"
+            ]
          },
          {
             "id" : "012",
-            "name" : "012",
             "data" : [
                [
                   "Perl",
@@ -229,9 +214,12 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "name" : "012"
          },
          {
+            "name" : "013",
+            "id" : "013",
             "data" : [
                [
                   "Perl",
@@ -245,13 +233,11 @@
                   "Blog",
                   13
                ]
-            ],
-            "name" : "013",
-            "id" : "013"
+            ]
          },
          {
-            "id" : "014",
             "name" : "014",
+            "id" : "014",
             "data" : [
                [
                   "Perl",
@@ -268,7 +254,6 @@
             ]
          },
          {
-            "id" : "015",
             "name" : "015",
             "data" : [
                [
@@ -283,10 +268,12 @@
                   "Blog",
                   15
                ]
-            ]
+            ],
+            "id" : "015"
          },
          {
             "name" : "016",
+            "id" : "016",
             "data" : [
                [
                   "Perl",
@@ -300,10 +287,10 @@
                   "Blog",
                   12
                ]
-            ],
-            "id" : "016"
+            ]
          },
          {
+            "id" : "017",
             "data" : [
                [
                   "Perl",
@@ -318,10 +305,10 @@
                   12
                ]
             ],
-            "name" : "017",
-            "id" : "017"
+            "name" : "017"
          },
          {
+            "id" : "018",
             "data" : [
                [
                   "Perl",
@@ -336,8 +323,7 @@
                   14
                ]
             ],
-            "name" : "018",
-            "id" : "018"
+            "name" : "018"
          },
          {
             "data" : [
@@ -354,8 +340,8 @@
                   13
                ]
             ],
-            "name" : "019",
-            "id" : "019"
+            "id" : "019",
+            "name" : "019"
          },
          {
             "name" : "020",
@@ -394,6 +380,7 @@
             "id" : "021"
          },
          {
+            "name" : "022",
             "id" : "022",
             "data" : [
                [
@@ -408,8 +395,7 @@
                   "Blog",
                   10
                ]
-            ],
-            "name" : "022"
+            ]
          },
          {
             "name" : "023",
@@ -448,7 +434,7 @@
             "name" : "024"
          },
          {
-            "name" : "025",
+            "id" : "025",
             "data" : [
                [
                   "Perl",
@@ -463,9 +449,11 @@
                   12
                ]
             ],
-            "id" : "025"
+            "name" : "025"
          },
          {
+            "name" : "026",
+            "id" : "026",
             "data" : [
                [
                   "Perl",
@@ -479,9 +467,7 @@
                   "Blog",
                   10
                ]
-            ],
-            "name" : "026",
-            "id" : "026"
+            ]
          },
          {
             "id" : "027",
@@ -503,6 +489,7 @@
          },
          {
             "name" : "028",
+            "id" : "028",
             "data" : [
                [
                   "Perl",
@@ -516,10 +503,10 @@
                   "Blog",
                   9
                ]
-            ],
-            "id" : "028"
+            ]
          },
          {
+            "name" : "029",
             "data" : [
                [
                   "Perl",
@@ -534,11 +521,10 @@
                   12
                ]
             ],
-            "name" : "029",
             "id" : "029"
          },
          {
-            "id" : "030",
+            "name" : "030",
             "data" : [
                [
                   "Perl",
@@ -553,10 +539,9 @@
                   10
                ]
             ],
-            "name" : "030"
+            "id" : "030"
          },
          {
-            "name" : "031",
             "data" : [
                [
                   "Perl",
@@ -571,7 +556,8 @@
                   9
                ]
             ],
-            "id" : "031"
+            "id" : "031",
+            "name" : "031"
          },
          {
             "data" : [
@@ -588,12 +574,12 @@
                   10
                ]
             ],
-            "name" : "032",
-            "id" : "032"
+            "id" : "032",
+            "name" : "032"
          },
          {
-            "id" : "033",
             "name" : "033",
+            "id" : "033",
             "data" : [
                [
                   "Perl",
@@ -610,7 +596,7 @@
             ]
          },
          {
-            "id" : "034",
+            "name" : "034",
             "data" : [
                [
                   "Perl",
@@ -625,10 +611,11 @@
                   11
                ]
             ],
-            "name" : "034"
+            "id" : "034"
          },
          {
             "name" : "035",
+            "id" : "035",
             "data" : [
                [
                   "Perl",
@@ -642,12 +629,9 @@
                   "Blog",
                   9
                ]
-            ],
-            "id" : "035"
+            ]
          },
          {
-            "id" : "036",
-            "name" : "036",
             "data" : [
                [
                   "Perl",
@@ -661,10 +645,12 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "id" : "036",
+            "name" : "036"
          },
          {
-            "id" : "037",
+            "name" : "037",
             "data" : [
                [
                   "Perl",
@@ -679,7 +665,7 @@
                   9
                ]
             ],
-            "name" : "037"
+            "id" : "037"
          },
          {
             "data" : [
@@ -696,8 +682,8 @@
                   12
                ]
             ],
-            "name" : "038",
-            "id" : "038"
+            "id" : "038",
+            "name" : "038"
          },
          {
             "id" : "039",
@@ -718,6 +704,7 @@
             "name" : "039"
          },
          {
+            "id" : "040",
             "data" : [
                [
                   "Perl",
@@ -732,12 +719,10 @@
                   10
                ]
             ],
-            "name" : "040",
-            "id" : "040"
+            "name" : "040"
          },
          {
             "id" : "041",
-            "name" : "041",
             "data" : [
                [
                   "Perl",
@@ -751,11 +736,10 @@
                   "Blog",
                   9
                ]
-            ]
+            ],
+            "name" : "041"
          },
          {
-            "id" : "042",
-            "name" : "042",
             "data" : [
                [
                   "Perl",
@@ -769,11 +753,12 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "id" : "042",
+            "name" : "042"
          },
          {
             "id" : "043",
-            "name" : "043",
             "data" : [
                [
                   "Perl",
@@ -787,10 +772,12 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "name" : "043"
          },
          {
             "name" : "044",
+            "id" : "044",
             "data" : [
                [
                   "Perl",
@@ -804,8 +791,7 @@
                   "Blog",
                   11
                ]
-            ],
-            "id" : "044"
+            ]
          },
          {
             "name" : "045",
@@ -826,7 +812,7 @@
             "id" : "045"
          },
          {
-            "name" : "046",
+            "id" : "046",
             "data" : [
                [
                   "Perl",
@@ -841,7 +827,7 @@
                   10
                ]
             ],
-            "id" : "046"
+            "name" : "046"
          },
          {
             "name" : "047",
@@ -862,7 +848,7 @@
             "id" : "047"
          },
          {
-            "name" : "048",
+            "id" : "048",
             "data" : [
                [
                   "Perl",
@@ -877,10 +863,9 @@