- Added solutions by Colin Crain.

17 files changed, 1666 insertions, 1262 deletions

diff --git a/challenge-099/colin-crain/perl/ch-1.pl b/challenge-099/colin-crain/perl/ch-1.pl
new file mode 100644
index 0000000000..78e12a239f
--- /dev/null
+++ b/challenge-099/colin-crain/perl/ch-1.pl
@@ -0,0 +1,108 @@
+#! /opt/local/bin/perl

+#

+#       wildcard_wonderland.pl

+#

+#         TASK #1 › Pattern Match

+#         Submitted by: Mohammad S Anwar

+#         You are given a string $S and a pattern $P.

+# 

+#         Write a script to check if given pattern validate the entire string.

+#         Print 1 if pass otherwise 0.

+# 

+#         The patterns can also have the following characters:

+# 

+#         ? - Match any single character.

+#         * - Match any sequence of characters.

+#         

+#         Example 1:

+#             Input: $S = "abcde" $P = "a*e"

+#             Output: 1

+#             

+#         Example 2:

+#             Input: $S = "abcde" $P = "a*d"

+#             Output: 0

+#             

+#         Example 3:

+#             Input: $S = "abcde" $P = "?b*d"

+#             Output: 0

+#             

+#         Example 4:

+#             Input: $S = "abcde" $P = "a*c?e"

+#             Output: 1

+#

+#         method:

+#             Seeing as we already have a better-than-good pattern match engine

+#             available to us in the Perl language, it seems like tha path of

+#             least resistance is to transform our toy matching language into a

+#             full blown regular expression and see it matches.

+#             

+#             It appears that the wildcard characters in our given language

+#             differ slightly from their more familiar counterparts, in that

+#             they match a positive number of characters only, disallowing the

+#             absence of a match. That is to say, a asterisk mark matches any

+#             *sequence* of characters, meaning one of more, rather than any

+#             number including 0. Hinging on the common defintion of the word

+#             'any', the idea of 'none' is not included and exists in

+#             opposition. Hence 'none' < 'any' < 'all'.

+# 

+#             In any case that's what we're going to go with today.

+# 

+#             To this end we only need to substitute one set of character

+#             classes and modifiers for the other, and, as we are asked to

+#             validate the entire string, anchor the ends of our expression to

+#             front and back to the input.

+# 

+#             To do the transmutation we'll use substitution operator, which

+#             seems quite fitting.

+# 

+            

+            

+        

+        

+        

+#       © 2021 colin crain

+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##

+

+

+

+use warnings;

+use strict;

+use feature ":5.26";

+use feature qw(say signatures);

+no warnings 'experimental::signatures';

+

+

+my ($str, $exp) = @_;

+if (defined $str and defined $exp) {

+    say validate($str, $exp);

+}

+

+sub validate ($str, $exp) {

+    $exp =~ s/\?/./g;

+    $exp =~ s/\*/.+/g;

+

+    return $str =~ m/^$exp$/ ?  1

+                             :  0;

+}

+               

+            

+use Test::More;

+

+is validate("abcde", "a*e"),    1, 'ex-1';

+is validate("abcde", "a*d"),    0, 'ex-2';

+is validate("abcde", "?b*d"),   0, 'ex-3';

+is validate("abcde", "a*c?e"),  1, 'ex-4';

+

+is validate("abcde", "bc?e"),   0, 'no head';

+is validate("abcde", "ab*c?e"), 0, '* cannot be empty';

+is validate("abcde", "a*c???"), 0, '? cannot be empty';

+is validate("abcde", "a*c?"),   0, 'no tail';

+

+is validate("a??cde", "a*c*"),  1, '? in input';

+is validate("a***c*", "a*c?"),  1, '* in input';

+

+is validate("?*??*??***?*", "????????????"),   1, 'line noise';

+is validate("************", "*"),              1, 'password';

+

+

+done_testing();

diff --git a/challenge-099/colin-crain/perl/ch-2.pl b/challenge-099/colin-crain/perl/ch-2.pl
new file mode 100644
index 0000000000..c542a35a96
--- /dev/null
+++ b/challenge-099/colin-crain/perl/ch-2.pl
@@ -0,0 +1,75 @@
+#! /opt/local/bin/perl

+#

+#       diffraction_grating.pl

+#

+#         TASK #2 › Unique Subsequence

+#         Submitted by: Mohammad S Anwar

+#         You are given two strings $S and $T.

+# 

+#         Write a script to find out count of different unique subsequences

+#         matching $T without changing the position of characters.

+# 

+#         UPDATE: 2021-02-08 09:00AM (UK TIME) suggested by Jonas Berlin,

+#         missing entry [5].

+#         

+#         Example 1:

+#             Input: $S = "littleit', $T = 'lit'

+#             Output: 5

+# 

+#                 1: [lit] tleit

+#                 2: [li] t [t] leit

+#                 3: [li] ttlei [t]

+#                 4: litt [l] e [it]

+#                 5: [l] ittle [it]

+#                 

+#         Example 2:

+#             Input: $S = "london', $T = 'lon'

+#             Output: 3

+# 

+#                 1: [lon] don

+#                 2: [lo] ndo [n]

+#                 3: [l] ond [on]

+#

+#       © 2021 colin crain

+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##

+

+

+

+use warnings;

+use strict;

+use feature ":5.26";

+use feature qw(say signatures);

+no warnings 'experimental::signatures';

+

+

+sub descend ($str, $target) {  

+        my $count = 0;

+        return 0 unless length $str > 0 and length $target > 0;

+    

+        my $t   = substr( $target, 0, 1 );

+        my $idx = index $str, $t;

+        

+        if ($idx > -1) {

+            $count++ if length $target == 1;

+            $count += descend( substr($str, $idx+1), $target);

+            $count += descend( substr($str, $idx+1), substr( $target, 1 ));

+        }

+        

+        return $count;

+}

+

+

+

+use Test::More;

+

+is descend( 'london', 'lon'), 3, 'ex-2';

+is descend( 'littleit', 'lit'), 5, 'ex-1';

+is descend( 'abcabc', 'abc'), 4, 'abcs';

+is descend( 'aabbaa', 'aba'), 8, 'repeated letters';

+is descend( 'aaaa', 'aa'), 6, 'only one letter';

+is descend( 'bookkeeping', 'boke'), 8, 'bookkeeping';

+

+

+

+done_testing();

+

diff --git a/challenge-099/colin-crain/raku/ch-1.raku b/challenge-099/colin-crain/raku/ch-1.raku
new file mode 100644
index 0000000000..35250491c5
--- /dev/null
+++ b/challenge-099/colin-crain/raku/ch-1.raku
@@ -0,0 +1,104 @@
+#!/usr/bin/env perl6
+#
+#       wildcard_wonderland.raku
+#
+#         TASK #1 › Pattern Match
+#         Submitted by: Mohammad S Anwar
+#         You are given a string $S and a pattern $P.
+# 
+#         Write a script to check if given pattern validate the entire string.
+#         Print 1 if pass otherwise 0.
+# 
+#         The patterns can also have the following characters:
+# 
+#         ? - Match any single character.
+#         * - Match any sequence of characters.
+#         
+#         Example 1:
+#             Input: $S = "abcde" $P = "a*e"
+#             Output: 1
+#             
+#         Example 2:
+#             Input: $S = "abcde" $P = "a*d"
+#             Output: 0
+#             
+#         Example 3:
+#             Input: $S = "abcde" $P = "?b*d"
+#             Output: 0
+#             
+#         Example 4:
+#             Input: $S = "abcde" $P = "a*c?e"
+#             Output: 1
+#
+#
+#
+#       © 2021 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+sub validate( Str $str, Str $exp is copy ) {
+    $exp ~~ s:g/\?/./;
+    $exp ~~ s:g/\*/.+/;
+        
+    return $str ~~ m/^<$exp>$/ ?? 1 
+                               !! 0
+}
+
+multi sub MAIN ( Str $str, Str $exp ) {
+    say validate( $str, $exp );
+}
+
+multi sub MAIN ( ) {
+
+    use Test;
+    plan 12;
+
+    is validate("abcde", "a*e"),    1, 'ex-1';
+    is validate("abcde", "a*d"),    0, 'ex-2';
+    is validate("abcde", "?b*d"),   0, 'ex-3';
+    is validate("abcde", "a*c?e"),  1, 'ex-4';
+
+    is validate("abcde", "bc?e"),   0, 'no head';
+    is validate("abcde", "ab*c?e"), 0, '* cannot be empty';
+    is validate("abcde", "a*c???"), 0, '? cannot be empty';
+    is validate("abcde", "a*c?"),   0, 'no tail';
+
+    is validate("a??cde", "a*c*"),  1, '? in input';
+    is validate("a***c*", "a*c?"),  1, '* in input';
+
+    is validate("?*??*??***?*", "????????????"),   1, 'line noise';
+    is validate("************", "*"),              1, 'password';
+
+}
+
+
+
+    
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# my ($str, $exp) = @_;
+# if (defined $str and defined $exp) {
+#     say validate($str, $exp);
+# }
+# 
+# sub validate ($str, $exp) {
+#     $exp =~ s/\?/./g;
+#     $exp =~ s/\*/.+/g;
+# 
+#     return $str =~ m/^$exp$/ ?  1
+#                              :  0;
+# }
diff --git a/challenge-099/colin-crain/raku/ch-2.raku b/challenge-099/colin-crain/raku/ch-2.raku
new file mode 100644
index 0000000000..5ab4f1aaeb
--- /dev/null
+++ b/challenge-099/colin-crain/raku/ch-2.raku
@@ -0,0 +1,109 @@
+#!/usr/bin/env perl6
+#
+#
+#       diffraction_grating.raku
+#
+#         TASK #2 › Unique Subsequence
+#         Submitted by: Mohammad S Anwar
+#         You are given two strings $S and $T.
+# 
+#         Write a script to find out count of different unique subsequences
+#         matching $T without changing the position of characters.
+# 
+#         UPDATE: 2021-02-08 09:00AM (UK TIME) suggested by Jonas Berlin,
+#         missing entry [5].
+#         
+#         Example 1:
+#             Input: $S = "littleit', $T = 'lit'
+#             Output: 5
+# 
+#                 1: [lit] tleit
+#                 2: [li] t [t] leit
+#                 3: [li] ttlei [t]
+#                 4: litt [l] e [it]
+#                 5: [l] ittle [it]
+#                 
+#         Example 2:
+#             Input: $S = "london', $T = 'lon'
+#             Output: 3
+# 
+#                 1: [lon] don
+#                 2: [lo] ndo [n]
+#                 3: [l] ond [on]
+# 
+#
+#
+#       © 2021 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+unit sub MAIN () ;
+
+use Test;
+
+plan 6;
+
+is descend( 'london', 'lon'), 3, 'ex-2';
+is descend( 'littleit', 'lit'), 5, 'ex-1';
+is descend( 'abcabc', 'abc'), 4, 'abcs';
+is descend( 'aabbaa', 'aba'), 8, 'repeated letters';
+is descend( 'aaaa', 'aa'), 6, 'only one letter';
+is descend( 'bookkeeping', 'boke'), 8, 'bookkeeping';
+
+sub descend (Str $str, Str $target) {
+    my $count = 0;
+    return 0 unless all($str.chars, $target.chars) > 0;
+    
+    my $t   = $target.substr(0,1);
+    my $idx = $str.index($t);
+    
+    if $idx.defined {
+        $count++ if $target.chars == 1;
+        $count += descend( $str.substr($idx+1), $target);
+        $count += descend( $str.substr($idx+1), $target.substr(1) );    
+    }
+
+    return $count;
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# sub descend ($str, $target) {  
+#         my $count = 0;
+#         return 0 unless length $str > 0 and length $target > 0;
+#     
+#         my $t   = substr( $target, 0, 1 );
+#         my $idx = index $str, $t;
+#         
+#         if ($idx > -1) {
+#             $count++ if length $target == 1;
+#             $count += descend( substr($str, $idx+1), $target);
+#             $count += descend( substr($str, $idx+1), substr( $target, 1 ));
+#         }
+#         
+#         return $count;
+# }
+# 
+# 
+# 
+# use Test::More;
+# 
+# is descend( 'london', 'lon'), 3, 'ex-2';
+# is descend( 'littleit', 'lit'), 5, 'ex-1';
+# is descend( 'abcabc', 'abc'), 4, 'abcs';
+# is descend( 'aabbaa', 'aba'), 8, 'repeated letters';
+# is descend( 'aaaa', 'aa'), 6, 'only one letter';
+# is descend( 'bookkeeping', 'boke'), 8, 'bookkeeping';
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index de07e55f8f..040928485f 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,9 +1,184 @@
 {
+   "subtitle" : {
+      "text" : "[Champions: 30] Last updated at 2021-02-14 20:10:32 GMT"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 099"
+   },
+   "legend" : {
+      "enabled" : 0
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "series" : [
+      {
+         "colorByPoint" : 1,
+         "name" : "Perl Weekly Challenge - 099",
+         "data" : [
+            {
+               "name" : "Aaron Smith",
+               "drilldown" : "Aaron Smith",
+               "y" : 3
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Alexander Pankoff",
+               "name" : "Alexander Pankoff"
+            },
+            {
+               "y" : 5,
+               "drilldown" : "Arne Sommer",
+               "name" : "Arne Sommer"
+            },
+            {
+               "name" : "Athanasius",
+               "y" : 4,
+               "drilldown" : "Athanasius"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Cheok-Yin Fung",
+               "name" : "Cheok-Yin Fung"
+            },
+            {
+               "name" : "Colin Crain",
+               "y" : 5,
+               "drilldown" : "Colin Crain"
+            },
+            {
+               "y" : 1,
+               "drilldown" : "Cristina Heredia",
+               "name" : "Cristina Heredia"
+            },
+            {
+               "y" : 3,
+               "drilldown" : "Dave Jacoby",
+               "name" : "Dave Jacoby"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "E. Choroba",
+               "name" : "E. Choroba"
+            },
+            {
+               "drilldown" : "Flavio Poletti",
+               "y" : 4,
+               "name" : "Flavio Poletti"
+            },
+            {
+               "name" : "Gustavo Chaves",
+               "drilldown" : "Gustavo Chaves",
+               "y" : 2
+            },
+            {
+               "name" : "James Smith",
+               "drilldown" : "James Smith",
+               "y" : 3
+            },
+            {
+               "name" : "Jan Krnavek",
+               "drilldown" : "Jan Krnavek",
+               "y" : 2
+            },
+            {
+               "drilldown" : "Joan Mimosinnet",
+               "y" : 2,
+               "name" : "Joan Mimosinnet"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Jorg Sommrey",
+               "name" : "Jorg Sommrey"
+            },
+            {
+               "name" : "Laurent Rosenfeld",
+               "y" : 5,
+               "drilldown" : "Laurent Rosenfeld"
+            },
+            {
+               "name" : "Lubos Kolouch",
+               "drilldown" : "Lubos Kolouch",
+               "y" : 2
+            },
+            {
+               "name" : "Luca Ferrari",
+               "y" : 4,
+               "drilldown" : "Luca Ferrari"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Mark Anderson",
+               "name" : "Mark Anderson"
+            },
+            {
+               "name" : "Niels van Dijke",
+               "drilldown" : "Niels van Dijke",
+               "y" : 2
+            },
+            {
+               "drilldown" : "Nuno Vieira",
+               "y" : 2,
+               "name" : "Nuno Vieira"
+            },
+            {
+               "name" : "Paulo Custodio",
+               "y" : 2,
+               "drilldown" : "Paulo Custodio"
+            },
+            {
+               "name" : "Pete Houston",
+               "drilldown" : "Pete Houston",
+               "y" : 2
+            },
+            {
+               "name" : "Roger Bell_West",
+               "y" : 5,
+               "drilldown" : "Roger Bell_West"
+            },
+            {
+               "name" : "Simon Green",
+               "y" : 3,
+               "drilldown" : "Simon Green"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Simon Proctor",
+               "name" : "Simon Proctor"
+            },
+            {
+               "y" : 4,
+               "drilldown" : "Stuart Little",
+               "name" : "Stuart Little"
+            },
+            {
+               "name" : "Ulrich Rieke",
+               "y" : 2,
+               "drilldown" : "Ulrich Rieke"
+            },
+            {
+               "name" : "W. Luis Mochan",
+               "drilldown" : "W. Luis Mochan",
+               "y" : 3
+            },
+            {
+               "drilldown" : "Wanderdoc",
+               "y" : 2,
+               "name" : "Wanderdoc"
+            }
+         ]
+      }
+   ],
    "drilldown" : {
       "series" : [
          {
-            "name" : "Aaron Smith",
             "id" : "Aaron Smith",
+            "name" : "Aaron Smith",
             "data" : [
                [
                   "Raku",
@@ -16,17 +191,16 @@
             ]
          },
          {
-            "name" : "Alexander Pankoff",
+            "id" : "Alexander Pankoff",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "id" : "Alexander Pankoff"
+            "name" : "Alexander Pankoff"
          },
          {
-            "name" : "Arne Sommer",
             "id" : "Arne Sommer",
             "data" : [
                [
@@ -41,10 +215,11 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "Arne Sommer"
          },
          {
-            "id" : "Athanasius",
+            "name" : "Athanasius",
             "data" : [
                [
                   "Perl",
@@ -55,41 +230,49 @@
                   2
                ]
             ],
-            "name" : "Athanasius"
+            "id" : "Athanasius"
          },
          {
             "id" : "Cheok-Yin Fung",
+            "name" : "Cheok-Yin Fung",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ],
-            "name" : "Cheok-Yin Fung"
+            ]
          },
          {
-            "name" : "Colin Crain",
             "data" : [
                [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
                   "Blog",
                   1
                ]
             ],
+            "name" : "Colin Crain",
             "id" : "Colin Crain"
          },
          {
+            "name" : "Cristina Heredia",
             "data" : [
                [
                   "Perl",
                   1
                ]
             ],
-            "id" : "Cristina Heredia",
-            "name" : "Cristina Heredia"
+            "id" : "Cristina Heredia"
          },
          {
-            "name" : "Dave Jacoby",
             "id" : "Dave Jacoby",
+            "name" : "Dave Jacoby",
             "data" : [
                [
                   "Perl",
@@ -102,16 +285,17 @@
             ]
          },
          {
+            "id" : "E. Choroba",
             "name" : "E. Choroba",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ],
-            "id" : "E. Choroba"
+            ]
          },
          {
+            "id" : "Flavio Poletti",
             "name" : "Flavio Poletti",
             "data" : [
                [
@@ -122,22 +306,20 @@
                   "Blog",
                   2
                ]
-            ],
-            "id" : "Flavio Poletti"
+            ]
          },
          {
+            "id" : "Gustavo Chaves",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "id" : "Gustavo Chaves",
             "name" : "Gustavo Chaves"
          },
          {
             "name" : "James Smith",
-            "id" : "James Smith",
             "data" : [
                [
                   "Perl",
@@ -147,7 +329,8 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "James Smith"
          },
          {
             "id" : "Jan Krnavek",
@@ -166,8 +349,8 @@
                   2
                ]
             ],
-            "id" : "Joan Mimosinnet",
-            "name" : "Joan Mimosinnet"
+            "name" : "Joan Mimosinnet",
+            "id" : "Joan Mimosinnet"
          },
          {
             "id" : "Jorg Sommrey",
@@ -222,54 +405,54 @@
             "id" : "Luca Ferrari"
          },
          {
+            "id" : "Mark Anderson",
             "name" : "Mark Anderson",
             "data" : [
                [
                   "Raku",
                   2
                ]
-            ],
-            "id" : "Mark Anderson"
+            ]
          },
          {
-            "id" : "Niels van Dijke",
+            "name" : "Niels van Dijke",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "name" : "Niels van Dijke"
+            "id" : "Niels van Dijke"
          },
          {
-            "id" : "Nuno Vieira",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "name" : "Nuno Vieira"
+            "name" : "Nuno Vieira",
+            "id" : "Nuno Vieira"
          },
          {
-            "id" : "Paulo Custodio",
+            "name" : "Paulo Custodio",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "name" : "Paulo Custodio"
+            "id" : "Paulo Custodio"
          },
          {
-            "id" : "Pete Houston",
+            "name" : "Pete Houston",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "name" : "Pete Houston"
+            "id" : "Pete Houston"
          },
          {
             "data" : [
@@ -286,12 +469,11 @@
                   1
                ]
             ],
-            "id" : "Roger Bell_West",
-            "name" : "Roger Bell_West"
+            "name" : "Roger Bell_West",
+            "id" : "Roger Bell_West"
          },
          {
             "name" : "Simon Green",
-            "id" : "Simon Green",
             "data" : [
                [
                   "Perl",
@@ -301,20 +483,21 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Simon Green"
          },
          {
-            "name" : "Simon Proctor",
             "id" : "Simon Proctor",
             "data" : [
                [
                   "Raku",
                   2
                ]
-            ]
+            ],
+            "name" : "Simon Proctor"
          },
          {
-            "id" : "Stuart Little",
+            "name" : "Stuart Little",
             "data" : [
                [
                   "Perl",
@@ -325,7 +508,7 @@
                   2
                ]
             ],
-            "name" : "Stuart Little"
+            "id" : "Stuart Little"
          },
          {
             "name" : "Ulrich Rieke",
@@ -352,8 +535,8 @@
             "name" : "W. Luis Mochan"
          },
          {
-            "name" : "Wanderdoc",
             "id" : "Wanderdoc",
+            "name" : "Wanderdoc",
             "data" : [
                [
                   "Perl",
@@ -366,174 +549,10 @@
    "chart" : {
       "type" : "column"
    },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "series" : [
-      {
-         "name" : "Perl Weekly Challenge - 099",
-         "colorByPoint" : 1,
-         "data" : [
-            {
-               "y" : 3,
-               "name" : "Aaron Smith",
-               "drilldown" : "Aaron Smith"
-            },
-            {
-               "name" : "Alexander Pankoff",
-               "y" : 2,
-               "drilldown" : "Alexander Pankoff"
-            },
-            {
-               "drilldown" : "Arne Sommer",
-               "name" : "Arne Sommer",
-               "y" : 5
-            },
-            {
-               "name" : "Athanasius",
-               "y" : 4,
-               "drilldown" : "Athanasius"
-            },
-            {
-               "name" : "Cheok-Yin Fung",
-               "y" : 2,
-               "drilldown" : "Cheok-Yin Fung"
-            },
-            {
-               "drilldown" : "Colin Crain",
-               "name" : "Colin Crain",
-               "y" : 1
-            },
-            {
-               "drilldown" : "Cristina Heredia",
-               "y" : 1,
-               "name" : "Cristina Heredia"
-            },
-            {
-               "drilldown" : "Dave Jacoby",
-               "y" : 3,
-               "name" : "Dave Jacoby"
-            },
-            {
-               "name" : "E. Choroba",
-               "y" : 2,
-               "drilldown" : "E. Choroba"
-            },
-            {
-               "drilldown" : "Flavio Poletti",
-               "y" : 4,
-               "name" : "Flavio Poletti"
-            },
-            {
-               "drilldown" : "Gustavo Chaves",
-               "name" : "Gustavo Chaves",
-               "y" : 2
-            },
-            {
-               "drilldown" : "James Smith",
-               "name" : "James Smith",
-               "y" : 3
-            },
-            {
-               "y" : 2,
-               "name" : "Jan Krnavek",
-               "drilldown" : "Jan Krnavek"
-            },
-            {
-               "name" : "Joan Mimosinnet",
-               "y" : 2,
-               "drilldown" : "Joan Mimosinnet"
-            },
-            {
-               "drilldown" : "Jorg Sommrey",
-               "name" : "Jorg Sommrey",
-               "y" : 2
-            },
-            {
-               "drilldown" : "Laurent Rosenfeld",
-               "name" : "Laurent Rosenfeld",
-               "y" : 5
-            },
-            {
-               "name" : "Lubos Kolouch",
-               "y" : 2,
-               "drilldown" : "Lubos Kolouch"
-            },
-            {
-               "drilldown" : "Luca Ferrari",
-               "y" : 4,
-               "name" : "Luca Ferrari"
-            },
-            {
-               "y" : 2,
-               "name" : "Mark Anderson",
-               "drilldown" : "Mark Anderson"
-            },
-            {
-               "drilldown" : "Niels van Dijke",
-               "y" : 2,
-               "name" : "Niels van Dijke"
-            },
-            {
-               "y" : 2,
-               "name" : "Nuno Vieira",
-               "drilldown" : "Nuno Vieira"
-            },
-            {
-               "drilldown" : "Paulo Custodio",
-               "y" : 2,
-               "name" : "Paulo Custodio"
-            },
-            {
-               "drilldown" : "Pete Houston",
-               "name" : "Pete Houston",
-               "y" : 2
-            },
-            {
-               "name" : "Roger Bell_West",
-               "y" : 5,
-               "drilldown" : "Roger Bell_West"
-            },
-            {
-               "y" : 3,
-               "name" : "Simon Green",
-               "drilldown" : "Simon Green"
-            },
-            {
-               "drilldown" : "Simon Proctor",
-               "y" : 2,
-               "name" : "Simon Proctor"
-            },
-            {
-               "drilldown" : "Stuart Little",
-               "y" : 4,
-               "name" : "Stuart Little"
-            },
-            {
-               "y" : 2,
-               "name" : "Ulrich Rieke",
-               "drilldown" : "Ulrich Rieke"
-            },
-            {
-               "y" : 3,
-               "n