- Added solutions by Eric Cheung.

- Added solutions by Ulrich Rieke.
- Added solutions by Reinier Maliepaard.
- Added solutions by Mark Anderson.
- Added solutions by Steven Wilson.
- Added solutions by E. Choroba.
- Added solutions by David Ferrone.
- Added solutions by Peter Meszaros.
- Added solutions by Peter Campbell Smith.
- Added solutions by W. Luis Mochan.
- Added solutions by PokGoPun.
- Added solutions by Feng Chang.
- Added solutions by Roger Bell_West.
- Added solutions by Bob Lied.
- Added solutions by Matthew Neleigh.
- Added solutions by Dave Jacoby.

32 files changed, 2950 insertions, 2250 deletions

diff --git a/challenge-267/eric-cheung/python/ch-1.py b/challenge-267/eric-cheung/python/ch-1.py
new file mode 100755
index 0000000000..c3f56490de
--- /dev/null
+++ b/challenge-267/eric-cheung/python/ch-1.py
@@ -0,0 +1,8 @@
+

+## arrInt = [-1, -2, -3, -4, 3, 2, 1]  ## Example 1

+## arrInt = [1, 2, 0, -2, -1]  ## Example 2

+arrInt = [-1, -1, 1, -1, 2]  ## Example 3

+

+arrNegCount = [nLoop for nLoop in arrInt if nLoop < 0]

+

+print (0 if 0 in arrInt else 1 if len(arrNegCount) % 2 == 0 else -1)

diff --git a/challenge-267/eric-cheung/python/ch-2.py b/challenge-267/eric-cheung/python/ch-2.py
new file mode 100755
index 0000000000..813851dabb
--- /dev/null
+++ b/challenge-267/eric-cheung/python/ch-2.py
@@ -0,0 +1,29 @@
+

+## Example 1

+## strInput = "abcdefghijklmnopqrstuvwxyz"

+## arrCharWidth = [10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10]

+

+## Example 2

+strInput = "bbbcccdddaaa"

+arrCharWidth = [4, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10]

+

+

+nMaxUnitPerLine = 100

+

+arrLineOutput = []

+nLineUnitCount = 0

+strLineAppend = ""

+

+for charLoop in strInput:

+    nIndx = ord(charLoop) - ord("a")

+    if nLineUnitCount + arrCharWidth[nIndx] > nMaxUnitPerLine:

+        arrLineOutput.append(strLineAppend)

+        nLineUnitCount = 0

+        strLineAppend = ""

+

+    strLineAppend = strLineAppend + charLoop

+    nLineUnitCount = nLineUnitCount + arrCharWidth[nIndx]

+

+arrLineOutput.append(strLineAppend)

+

+print ([len(arrLineOutput), nLineUnitCount])

diff --git a/challenge-267/reinier-maliepaard/blog.txt b/challenge-267/reinier-maliepaard/blog.txt
new file mode 100644
index 0000000000..47655e0982
--- /dev/null
+++ b/challenge-267/reinier-maliepaard/blog.txt
@@ -0,0 +1 @@
+https://reiniermaliepaard.nl/perl/pwc/index.php?id=pwc267
diff --git a/challenge-267/reinier-maliepaard/perl/ch-1.pl b/challenge-267/reinier-maliepaard/perl/ch-1.pl
new file mode 100644
index 0000000000..5ae511cf51
--- /dev/null
+++ b/challenge-267/reinier-maliepaard/perl/ch-1.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+#-------------------------------------------
+sub product_sign {
+
+    foreach (@_) {
+
+        return 0 if grep(($_ == 0), @_);
+        return -1 if ( (my $n = grep {$_ < 0} @_) % 2 != 0);
+
+    }
+    return 1;
+}
+
+# TESTS
+
+my @ints = ();
+
+# Example 1
+@ints = (-1, -2, -3, -4, 3, 2, 1);
+print(product_sign(@ints), "\n"); # Output: 1
+
+# Example 2
+@ints = (1, 2, 0, -2, -1);
+print(product_sign(@ints), "\n"); # Output: 0
+
+# Example 3
+@ints = (-1, -1, 1, -1, 2);
+print(product_sign(@ints), "\n"); # Output: -1
diff --git a/challenge-267/reinier-maliepaard/perl/ch-2.pl b/challenge-267/reinier-maliepaard/perl/ch-2.pl
new file mode 100644
index 0000000000..224f5f5e73
--- /dev/null
+++ b/challenge-267/reinier-maliepaard/perl/ch-2.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+#-------------------------------------------
+sub line_counts {
+
+    my ($str, @widths) = @_;
+    my ($max_width_line, $width_line, $no_lines) = (100, 0, 1);
+
+    # process each character in the given string $str
+    foreach ( split(//, $str) ) {
+
+        # increment $width_line with the width value of the current character $char: see above
+        if ( ($width_line + $widths[(ord($_) - 97)]) <= $max_width_line) {
+
+            $width_line += $widths[(ord($_) - 97)];
+
+        }
+        else {
+            # a new line
+            $no_lines++;
+            # starting with the width value of the current character
+            $width_line = $widths[(ord($_) - 97)];
+        }
+    }
+    print("($no_lines, $width_line)\n");
+}
+
+# TESTS
+
+my $str;
+my @widths = ();
+
+# Example 1
+$str = "abcdefghijklmnopqrstuvwxyz";
+@widths = (10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10);
+line_counts($str, @widths); # Output: (3, 60)
+
+# Example 2
+$str = "bbbcccdddaaa";
+@widths = (4,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10);
+line_counts($str, @widths); # Output: (2, 4)
diff --git a/challenge-267/ulrich-rieke/cpp/ch-1.cpp b/challenge-267/ulrich-rieke/cpp/ch-1.cpp
new file mode 100755
index 0000000000..e710c6a498
--- /dev/null
+++ b/challenge-267/ulrich-rieke/cpp/ch-1.cpp
@@ -0,0 +1,22 @@
+#include <iostream>

+#include <iterator>

+#include <vector>

+#include <numeric>

+

+int main( ) {

+   std::cout << "Enter some integers, separated by blanks!" ;

+   std::cout << " Enter e to end entry!\n" ;

+   std::vector<int> numbers { std::istream_iterator<int>{ std::cin } , 

+      std::istream_iterator<int>{} } ;

+   int prod = std::accumulate( numbers.begin( ) , numbers.end( ) , 1 , 

+	 std::multiplies<int>( ) ) ;

+   int result = 0 ;

+   if ( prod < 0 ) 

+      result = -1 ;

+   if ( prod == 0 ) 

+      result = 0 ;

+   if ( prod > 0 )

+      result = 1 ;

+   std::cout << result << '\n' ;

+   return 0 ;

+}

diff --git a/challenge-267/ulrich-rieke/cpp/ch-2.cpp b/challenge-267/ulrich-rieke/cpp/ch-2.cpp
new file mode 100755
index 0000000000..20f60e9c42
--- /dev/null
+++ b/challenge-267/ulrich-rieke/cpp/ch-2.cpp
@@ -0,0 +1,51 @@
+#include <iostream>

+#include <string>

+#include <vector>

+#include <ranges>

+#include <string_view>

+#include <algorithm> 

+#include <map> 

+

+int main( ) {

+   std::cout << "Enter a string!\n" ;

+   std::string line ;

+   std::getline( std::cin , line ) ;

+   std::cout << "Enter 26 character widths, separated by ',' !\n" ;

+   std::string widths ;

+   std::getline( std::cin, widths ) ;

+   std::string characters { "abcdefghijklmnopqrstuvwxyz" } ;

+   std::vector<std::string> widthstrings ;

+   char delimiter = ',' ;

+   auto split = widths | std::views::split( delimiter ) ;

+   for ( const auto & subrange : split ) {

+      std::string wistring( &*subrange.begin( ) , std::ranges::distance( 

+	       subrange ) ) ;

+      widthstrings.push_back( wistring ) ;

+   }

+   std::vector<int> charWidths ;

+   for ( auto s : widthstrings ) 

+      charWidths.push_back( std::stoi( s ) ) ;

+   std::map<std::string , int> letterwidths ;

+   for ( int i = 0 ; i < 26 ; i++ ) {

+      letterwidths[ characters.substr( i , 1 ) ] = charWidths[ i ] ;

+   }

+   int sum = 0 ;

+   int pixels = 0 ;

+   int linenumber = 1 ;

+   for ( int i = 0 ; i < line.length( ) ; i++ )  {

+      sum += letterwidths.at( line.substr( i , 1 ) ) ;

+      if ( sum > 100 ) {

+	 linenumber++ ;

+	 sum = letterwidths.at( line.substr( i , 1 ) ) ;

+      }

+      if ( sum == 100 ) {

+	 linenumber++ ;

+	 sum = 0 ;

+      }

+   }

+   if ( sum == 0 ) 

+      linenumber-- ;

+   pixels = sum ;

+   std::cout << '(' << linenumber << ',' << pixels << ")\n" ;

+   return 0 ;

+}

diff --git a/challenge-267/ulrich-rieke/haskell/ch-1.hs b/challenge-267/ulrich-rieke/haskell/ch-1.hs
new file mode 100755
index 0000000000..b35116f8e7
--- /dev/null
+++ b/challenge-267/ulrich-rieke/haskell/ch-1.hs
@@ -0,0 +1,17 @@
+module Challenge267

+   where

+

+solution :: [Int] -> Int

+solution list

+   |prod > 0 = 1

+   |prod == 0 = 0

+   |otherwise = -1

+   where 

+    prod :: Int

+    prod = product list

+

+main :: IO ( )

+main = do

+   putStrLn "Enter some integers, separated by blanks!"

+   numberstrings <- getLine

+   print $ solution $ map read $ words numberstrings

diff --git a/challenge-267/ulrich-rieke/haskell/ch-2.hs b/challenge-267/ulrich-rieke/haskell/ch-2.hs
new file mode 100755
index 0000000000..7f7d1a248c
--- /dev/null
+++ b/challenge-267/ulrich-rieke/haskell/ch-2.hs
@@ -0,0 +1,41 @@
+module Challenge267_2

+   where

+import Data.Maybe ( fromJust )

+import Data.List ( maximumBy , (\\) , inits )

+import Data.List.Split ( splitOn )

+import Data.Function ( on )   

+

+characters :: String

+characters = "abcdefghijklmnopqrstuvwxyz"

+

+createWidths :: String -> [(Char , Int)] -> [Int]

+createWidths str lettermappings =  map (\c -> fromJust

+ $ lookup c lettermappings ) str 

+

+findSublists :: ([Int] -> Bool ) -> [Int] -> [[Int]]

+findSublists _ [] = []

+findSublists f list = [firstList] ++ findSublists f ( list \\ firstList )  

+ where

+  firstList :: [Int]

+  firstList = maximumBy ( compare `on` length ) $ filter f $ inits list

+

+linesAndPixels :: [Int] -> (Int , Int)

+linesAndPixels list = 

+   let sublists = findSublists myCondition list   

+       len      = length sublists   

+       pixels = sum $ last sublists

+   in ( len , pixels )

+

+myCondition :: [Int] -> Bool

+myCondition someList = if not $ null someList then ( sum someList ) <= 100 

+ else True 

+

+main :: IO ( )

+main = do

+   putStrLn "Enter a string!" 

+   string <- getLine

+   putStrLn "Enter 26 integers for the character widths, separated by ',' !"

+   charwidths <- getLine

+   let lettermappings = zip characters ( map read $ splitOn "," charwidths )

+       letterplaces = createWidths string lettermappings

+   print $ linesAndPixels letterplaces    

diff --git a/challenge-267/ulrich-rieke/perl/ch-1.pl b/challenge-267/ulrich-rieke/perl/ch-1.pl
new file mode 100755
index 0000000000..359034a3c9
--- /dev/null
+++ b/challenge-267/ulrich-rieke/perl/ch-1.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl ;

+use strict ;

+use warnings ;

+use feature 'say' ;

+use List::Util qw ( product ) ;

+

+say "Enter some integers, separated by ',' !" ;

+my $line = <STDIN> ;

+chomp $line ;

+my @numbers = split( ',' , $line ) ;

+my $prod = product( @numbers ) ;

+my $result ;

+if ( $prod < 0 ) {

+   $result = -1 ;

+}

+elsif ( $prod == 0 ) {

+   $result = 0 ;

+}

+else {

+   $result = 1 ;

+}

+say $result ;

diff --git a/challenge-267/ulrich-rieke/perl/ch-2.pl b/challenge-267/ulrich-rieke/perl/ch-2.pl
new file mode 100755
index 0000000000..f6159340e5
--- /dev/null
+++ b/challenge-267/ulrich-rieke/perl/ch-2.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/perl ;

+use strict ;

+use warnings ;

+use feature 'say' ;

+

+say "Enter a string!" ;

+my $string = <STDIN> ;

+chomp $string ;

+say "Enter 26 character widths, separated by ',' !" ;

+my $widths = <STDIN> ;

+chomp $widths ;

+my $characters = "abcdefghijklmnopqrstuvwxyz" ;

+my @chars = split( // , $characters ) ;

+my %charwidths ;

+my @cwidths = split( ',' , $widths ) ;

+for my $pos ( 0..25) {

+   $charwidths{ $chars[ $pos ] } = $cwidths[ $pos ] ;

+}

+my $sum = 0 ;

+my $lineno = 1 ;

+my $pixels = 0 ;

+for my $letter ( split( // , $string ) ) {

+   $sum += $charwidths{ $letter } ;

+   if ( $sum > 100 ) {

+      $lineno++ ;

+      $sum = $charwidths{ $letter } ;

+   }

+   if ( $sum == 100 ) {

+      $lineno++ ;

+      $sum = 0 ;

+   }

+}

+if ( $sum == 0 ) {

+   $lineno-- ;

+}

+$pixels = $sum ;

+say "($lineno , $pixels)" ;

diff --git a/challenge-267/ulrich-rieke/raku/ch-1.raku b/challenge-267/ulrich-rieke/raku/ch-1.raku
new file mode 100755
index 0000000000..554de36800
--- /dev/null
+++ b/challenge-267/ulrich-rieke/raku/ch-1.raku
@@ -0,0 +1,17 @@
+use v6 ;

+

+say "Enter some integers, separated by ',' !" ;

+my $line = $*IN.get ;

+my @numbers = $line.split( ',').map( {.Int} ) ;

+my $prod = [*] @numbers ;

+my $result ;

+if ( $prod > 0 ) {

+   $result = 1 ;

+}

+elsif ( $prod == 0 ) {

+   $result = 0 ;

+}

+else {

+   $result = -1 ;

+}

+say $result ;

diff --git a/challenge-267/ulrich-rieke/raku/ch-2.raku b/challenge-267/ulrich-rieke/raku/ch-2.raku
new file mode 100755
index 0000000000..0aa30351c9
--- /dev/null
+++ b/challenge-267/ulrich-rieke/raku/ch-2.raku
@@ -0,0 +1,33 @@
+use v6 ;

+

+say "Enter a string!" ;

+my $string = $*IN.get ;

+say "Enter 26 character widths, separated by ','!" ;

+my $widths = $*IN.get ;

+my $characters = "abcdefghijklmnopqrstuvwxyz" ;

+my @chars = $characters.comb ;

+my @charlengths = $widths.split( ',' ).map( {.Int} ) ;

+my $lineno = 1 ;

+my $sum = 0 ;

+my %letterwidths ;

+for (0..25) -> $pos {

+   %letterwidths{ @chars[ $pos ] } = @charlengths[ $pos ] ;

+}

+my $pixels = 0 ;

+for ( $string.comb ) -> $char {

+   $sum += %letterwidths{ $char } ;

+   if ( $sum > 100 ) {

+      $lineno++ ;

+      $sum = %letterwidths{ $char } ;

+   }

+   if ( $sum == 100 ) {

+      $lineno++ ;

+      $sum = 0 ;

+   }

+}

+if ( $sum == 0 ) {

+   $lineno-- ;

+}

+$pixels = $sum ;

+say "($lineno , $pixels)" ;

+

diff --git a/challenge-267/ulrich-rieke/rust/ch-1.rs b/challenge-267/ulrich-rieke/rust/ch-1.rs
new file mode 100755
index 0000000000..313dca7a2e
--- /dev/null
+++ b/challenge-267/ulrich-rieke/rust/ch-1.rs
@@ -0,0 +1,17 @@
+use std::io ;
+
+fn main() {
+    println!("Enter some integers,separated by ',' !");
+    let mut inline : String = String::new( ) ;
+    io::stdin( ).read_line( &mut inline ).unwrap( ) ;
+    let entered_line : &str = &*inline ;
+    let numbers : Vec<i32> = entered_line.trim( ).split( ',' ).map( | s |
+	  s.parse::<i32>( ).unwrap( )).collect( ) ;
+    let prod : i32 = numbers.into_iter( ).product( ) ;
+    let sign : i8 = match prod {
+       value if value < 0 => -1 ,
+       value if value == 0 => 0 ,
+       _                   => 1 
+    } ;
+    println!("{}" , sign ) ;
+}
diff --git a/challenge-267/ulrich-rieke/rust/ch-2.rs b/challenge-267/ulrich-rieke/rust/ch-2.rs
new file mode 100755
index 0000000000..7135bd21be
--- /dev/null
+++ b/challenge-267/ulrich-rieke/rust/ch-2.rs
@@ -0,0 +1,43 @@
+use std::io ;
+use std::collections::HashMap ;
+use std::collections::hash_map::Entry ;
+
+fn main() {
+    println!("Enter a string!");
+    let mut inline : String = String::new( ) ;
+    io::stdin( ).read_line( &mut inline ).unwrap( ) ;
+    let entered_line : &str = &*inline ;
+    println!("Enter 26 positive numbers, denoting the widths!") ;
+    let mut sec_line : String = String::new( ) ;
+    io::stdin( ).read_line( &mut sec_line ).unwrap( ) ;
+    let width_line : &str = &*sec_line ;
+    let characters : &str = "abcdefghijklmnopqrstuvwxyz" ;
+    let widths : Vec<usize> = width_line.split(',' ).map( | s | 
+	  s.trim( ).parse::<usize>( ).unwrap( ) ).collect( ) ;
+    let mut sum : usize = 0 ;
+    let mut char_widths : HashMap<char, usize> = HashMap::new( ) ;
+    characters.chars( ).zip( widths.iter( )).for_each( | x | {
+	  if let Entry::Vacant( o ) = char_widths.entry( x.0 ) {
+	    o.insert( *x.1 ) ;
+	  }
+	  }) ; 
+    let trimmed : &str = entered_line.trim( ) ;
+    let mut linesum : usize = 1 ;
+    let pixels : usize ;
+    for ch in trimmed.chars( ) {
+       sum += char_widths.get( &ch ).unwrap( ) ;
+       if sum > 100 {
+	  linesum += 1 ;
+	  sum = *char_widths.get( &ch ).unwrap( ) ;
+       }
+       if sum == 100 {
+	  linesum += 1 ;
+	  sum = 0 ;
+       }
+    }
+    if sum == 0 { //no remaining pixels, we must reduce line number
+       linesum -= 1 ;
+    }
+    pixels = sum ;
+    println!("({} , {})" , linesum , pixels ) ;
+}
diff --git a/stats/pwc-challenge-266.json b/stats/pwc-challenge-266.json
new file mode 100644
index 0000000000..d293a8ab96
--- /dev/null
+++ b/stats/pwc-challenge-266.json
@@ -0,0 +1,672 @@
+{
+   "legend" : {
+      "enabled" : 0
+   },
+   "subtitle" : {
+      "text" : "[Champions: 36] Last updated at 2024-04-30 22:44:19 GMT"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "title" : {
+      "text" : "The Weekly Challenge - 266"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         }
+      }
+   },
+   "drilldown" : {
+      "series" : [
+         {
+            "id" : "Ali Moradi",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "name" : "Ali Moradi"
+         },
+         {
+            "name" : "Arne Sommer",
+            "id" : "Arne Sommer",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
+         },
+         {
+            "id" : "Athanasius",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "name" : "Athanasius"
+         },
+         {
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "BarrOff",
+            "name" : "BarrOff"
+         },
+         {
+            "name" : "Bob Lied",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "Bob Lied"
+         },
+         {
+            "name" : "Bruce Gray",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Bruce Gray"
+         },
+         {
+            "name" : "Cheok-Yin Fung",
+            "id" : "Cheok-Yin Fung",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "Dave Jacoby",
+            "name" : "Dave Jacoby"
+         },
+         {
+            "id" : "David Ferrone",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "name" : "David Ferrone"
+         },
+         {
+            "name" : "E. Choroba",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "E. Choroba"
+         },
+         {
+            "id" : "Feng Chang",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "name" : "Feng Chang"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "id" : "Jaldhar H. Vyas",
+            "name" : "Jaldhar H. Vyas"
+         },
+         {
+            "name" : "James Smith",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "James Smith"
+         },
+         {
+            "name" : "Jan Krnavek",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Jan Krnavek"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "id" : "Jorg Sommrey",
+            "name" : "Jorg Sommrey"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  1
+               ]
+            ],
+            "id" : "Lance Wicks",
+            "name" : "Lance Wicks"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  2
+               ]
+            ],
+            "id" : "Laurent Rosenfeld",
+            "name" : "Laurent Rosenfeld"
+         },
+         {
+            "id" : "Lubos Kolouch",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "name" : "Lubos Kolouch"
+         },
+         {
+            "name" : "Luca Ferrari",
+            "id" : "Luca Ferrari",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  9
+               ]
+            ]
+         },
+         {
+            "name" : "Mark Anderson",
+            "id" : "Mark Anderson",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "Matthew Neleigh",
+            "name" : "Matthew Neleigh"
+         },
+         {
+            "id" : "Matthias Muth",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "name" : "Matthias Muth"
+         },
+         {
+            "id" : "Nelo Tovar",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "name" : "Nelo Tovar"
+         },
+         {
+            "id" : "Niels van Dijke",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "name" : "Niels van Dijke"
+         },
+         {
+            "name" : "Packy Anderson",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "id" : "Packy Anderson"
+         },
+         {
+            "name" : "Peter Campbell Smith",
+            "id" : "Peter Campbell Smith",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "Peter Meszaros",
+            "name" : "Peter Meszaros"
+         },
+         {
+            "id" : "Reinier Maliepaard",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "name" : "Reinier Maliepaard"
+         },
+         {
+            "id" : "Robbie Hatley",
+