From c81724b6cb3ec4a583ef80d2376a08e92be208fd Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 1 Feb 2021 09:58:18 +0100
Subject: Task1 and 2 done.

---
 challenge-098/luca-ferrari/raku/ch-1.p6 | 14 ++++++++++++++
 challenge-098/luca-ferrari/raku/ch-2.p6 | 27 +++++++++++++++++++++++++++
 2 files changed, 41 insertions(+)
 create mode 100644 challenge-098/luca-ferrari/raku/ch-1.p6
 create mode 100644 challenge-098/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-098/luca-ferrari/raku/ch-1.p6 b/challenge-098/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..9835075cef
--- /dev/null
+++ b/challenge-098/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,14 @@
+#!raku
+
+
+sub readN( Str $file-name, Int $how-many-chars where { $how-many-chars >= 1 } ) {
+    state %handles = ();
+    %handles{ $file-name } //= $file-name.IO.open;
+    return %handles{ $file-name }.readchars: $how-many-chars;
+}
+
+sub MAIN( Str $file-name ) {
+    say readN( $file-name, 4 );
+    say readN( $file-name, 4 );
+    say readN( '/home/luca/.zshrc', 10 );
+}
diff --git a/challenge-098/luca-ferrari/raku/ch-2.p6 b/challenge-098/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..dc9bbdd1dd
--- /dev/null
+++ b/challenge-098/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,27 @@
+#!raku
+
+
+sub MAIN( ) {
+    my @N = 1,2,3,4, 7;
+    my $N = 6;
+    say "Array { @N } searching for $N";
+
+    # get the index if the element is there
+    given @N.grep: $N, :k { .say && exit if $_ }
+
+    # if here the element is not there
+    # for @N.List.kv -> $k, $v {
+    #     if ( $v > $N ) {
+    #         @N = |@N[ 0 .. $k - 1 ], $N, |@N[ $k .. * ];
+    #         "Insert value $N at index $k".say;
+    #     }
+    # }
+
+
+    given @N.grep: { $_ > $N }, :k {
+        @N = |@N[ 0 .. $_ - 1 ], $N, |@N[ $_ .. * ];
+        "Insert value $N at index $_".say;
+        exit;
+    }
+
+}
-- 
cgit 


From c1bbef5b5c58f150588b2939b4177f030af4f0a3 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 1 Feb 2021 09:18:45 +0000
Subject: first pass at code - with annotations

---
 challenge-098/james-smith/perl/bob.txt   |  1 +
 challenge-098/james-smith/perl/ch-1.pl   | 62 ++++++++++++++++++++++++++++++++
 challenge-098/james-smith/perl/ch-2.pl   | 32 +++++++++++++++++
 challenge-098/james-smith/perl/input.txt |  1 +
 4 files changed, 96 insertions(+)
 create mode 100644 challenge-098/james-smith/perl/bob.txt
 create mode 100644 challenge-098/james-smith/perl/ch-1.pl
 create mode 100644 challenge-098/james-smith/perl/ch-2.pl
 create mode 100644 challenge-098/james-smith/perl/input.txt

diff --git a/challenge-098/james-smith/perl/bob.txt b/challenge-098/james-smith/perl/bob.txt
new file mode 100644
index 0000000000..70e6a83d8d
--- /dev/null
+++ b/challenge-098/james-smith/perl/bob.txt
@@ -0,0 +1 @@
+abcdefghijklmnop
\ No newline at end of file
diff --git a/challenge-098/james-smith/perl/ch-1.pl b/challenge-098/james-smith/perl/ch-1.pl
new file mode 100644
index 0000000000..2d12b507cc
--- /dev/null
+++ b/challenge-098/james-smith/perl/ch-1.pl
@@ -0,0 +1,62 @@
+#!/usr/local/bin/perl
+
+use strict;
+
+use warnings;
+use feature qw(say);
+use Test::More;
+
+my %handles;
+
+is( readN( 'bob.txt',   4 ), 'abcd' );
+is( readN( 'input.txt', 4 ), '1234' );
+is( readN( 'bob.txt',   4 ), 'efgh' );
+is( readN( 'input.txt', 4 ), '5678' );
+is( readN( 'bob.txt',   4 ), 'ijkl' );
+is( readN( 'bob.txt',   4 ), 'mnop' );
+is( readN( 'input.txt', 4 ), '90'   );
+is( readN( 'bob.txt',   4 ), ''     );
+is( readN( 'input.txt', 4 ), ''     );
+is( readN( 'bob.txt',   4 ), ''     );
+is( readN( 'bob.txt',   4 ), ''     );
+
+## Ignore this bit checking clean up works!
+done_testing();
+                    print "Open @{[ show_open() ]}\n";
+my $t = $handles{'bob.txt'};
+cleanup('fred.txt');
+cleanup('bob.txt'); print "Open @{[ show_open() ]}\n";
+<$t>; ## This will warn - prove that file handle has been closed
+cleanup();          print "Open @{[ show_open() ]}\n";
+## End of bit to ignore..
+
+sub readN {
+  my( $fn, $bytes ) = @_;
+
+  ## Create a file handle if we don't already have one
+  unless( exists $handles{$fn} ) {
+    open $handles{$fn}, '<', $fn;
+  }
+
+  ## Create a buffer for the return value
+  my $t = '';
+
+  ## Use "read" to read the $bytes bytes - these are put into 2nd parameter
+  ## If read returns undef it means it has reached the end of the file...
+  warn "Reached end of file $fn\n" unless read ${$handles{$fn}}, $t, $bytes;
+
+  ## Return string
+  return $t;
+}
+
+sub cleanup {
+  ## For neatness close all handles
+  ## delete returns the value of the has deleted
+  ## if filenames are passed then only those are cleaned up
+  close delete $handles{$_} foreach @_ ? grep { exists $handles{$_} } @_ : keys %handles;
+}
+
+sub show_open {
+  ## Return a list of open filenames
+  return keys %handles;
+}
diff --git a/challenge-098/james-smith/perl/ch-2.pl b/challenge-098/james-smith/perl/ch-2.pl
new file mode 100644
index 0000000000..072cc04d3c
--- /dev/null
+++ b/challenge-098/james-smith/perl/ch-2.pl
@@ -0,0 +1,32 @@
+#!/usr/local/bin/perl
+
+use strict;
+
+use warnings;
+use feature qw(say);
+use Test::More;
+
+is( insert_pos( [qw( 1  2  3  4)],  3), 2 );
+is( insert_pos( [qw( 1  3  5  7)],  6), 3 );
+is( insert_pos( [qw(12 14 16 18)], 10), 0 );
+is( insert_pos( [qw(11 13 15 17)], 19), 4 );
+
+done_testing();
+
+sub insert_pos {
+  my( $t, $l, $val ) = (0,@_);
+
+  ## Repeat unless we have got to end of list or the new entry is greater than val
+  $t++ while ($t < @{$l}) && ($l->[$t] < $val);
+
+  ## If we are after the end of the list (to avoid warning) OR
+  ## If we haven't found the entry then we use splice to insert it
+  splice @{$l},$t,0,$val if $t == @{$l} || $l->[$t] != $val;
+
+    ## Warn to show splice has worked...
+    warn ">> $t ( @{$l} )\n"; ## Demonstrate splice
+
+  ## Return the index of the number!
+  return $t;
+}
+
diff --git a/challenge-098/james-smith/perl/input.txt b/challenge-098/james-smith/perl/input.txt
new file mode 100644
index 0000000000..6a537b5b36
--- /dev/null
+++ b/challenge-098/james-smith/perl/input.txt
@@ -0,0 +1 @@
+1234567890
\ No newline at end of file
-- 
cgit 


From f409a7d8397e21e4d31b4132e22ed8881d925eb0 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 1 Feb 2021 10:10:05 +0100
Subject: Task 2 done right.

---
 challenge-098/luca-ferrari/raku/ch-2.p6 | 33 +++++++++++++++------------------
 1 file changed, 15 insertions(+), 18 deletions(-)

diff --git a/challenge-098/luca-ferrari/raku/ch-2.p6 b/challenge-098/luca-ferrari/raku/ch-2.p6
index dc9bbdd1dd..e0a24eddc5 100644
--- a/challenge-098/luca-ferrari/raku/ch-2.p6
+++ b/challenge-098/luca-ferrari/raku/ch-2.p6
@@ -1,27 +1,24 @@
 #!raku
 
-
-sub MAIN( ) {
-    my @N = 1,2,3,4, 7;
-    my $N = 6;
-    say "Array { @N } searching for $N";
+# Get an array of integers, the last value is the need to search for
+# while all the other values are the array to search into.
+# For example:
+# ch-2.p6 1 2 3 7 8 9 5
+# means
+# @N = 1,2,3,7,8,9
+# $N = 5
+sub MAIN( *@values where { @values.grep: * ~~ Int } ) {
+    my @N = @values[0 .. *-2 ];
+    my $N = @values[ *-1 ];
+#    say "Array { @N } searching for $N";
 
     # get the index if the element is there
-    given @N.grep: $N, :k { .say && exit if $_ }
-
-    # if here the element is not there
-    # for @N.List.kv -> $k, $v {
-    #     if ( $v > $N ) {
-    #         @N = |@N[ 0 .. $k - 1 ], $N, |@N[ $k .. * ];
-    #         "Insert value $N at index $k".say;
-    #     }
-    # }
-
+    given @N.grep( $N, :k ).first { .say && exit if $_ }
 
-    given @N.grep: { $_ > $N }, :k {
+    # if here the key is not there, let's see where to insert
+    given @N.grep( { $_ >= $N }, :k ).first {
         @N = |@N[ 0 .. $_ - 1 ], $N, |@N[ $_ .. * ];
-        "Insert value $N at index $_".say;
-        exit;
+        .say && exit;
     }
 
 }
-- 
cgit 


From 8ec4565fe8979eebefd0e3932d4b2e2c73b87dda Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 1 Feb 2021 09:33:29 +0000
Subject: remove unneeded parantheses

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

diff --git a/challenge-098/james-smith/perl/ch-2.pl b/challenge-098/james-smith/perl/ch-2.pl
index 072cc04d3c..7e2867ade6 100644
--- a/challenge-098/james-smith/perl/ch-2.pl
+++ b/challenge-098/james-smith/perl/ch-2.pl
@@ -17,7 +17,7 @@ sub insert_pos {
   my( $t, $l, $val ) = (0,@_);
 
   ## Repeat unless we have got to end of list or the new entry is greater than val
-  $t++ while ($t < @{$l}) && ($l->[$t] < $val);
+  $t++ while $t < @{$l} && $l->[$t] < $val;
 
   ## If we are after the end of the list (to avoid warning) OR
   ## If we haven't found the entry then we use splice to insert it
-- 
cgit 


From 16b6fa1d65e6e81d54dcbbd56e0fbbd1baffab38 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 1 Feb 2021 10:33:48 +0100
Subject: Blog references

---
 challenge-098/luca-ferrari/blog-1.txt | 1 +
 challenge-098/luca-ferrari/blog-2.txt | 1 +
 2 files changed, 2 insertions(+)
 create mode 100644 challenge-098/luca-ferrari/blog-1.txt
 create mode 100644 challenge-098/luca-ferrari/blog-2.txt

diff --git a/challenge-098/luca-ferrari/blog-1.txt b/challenge-098/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..ea83d9e18e
--- /dev/null
+++ b/challenge-098/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/02/01/PerlWeeklyChallenge98.html#task1
diff --git a/challenge-098/luca-ferrari/blog-2.txt b/challenge-098/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..2510cdb1cc
--- /dev/null
+++ b/challenge-098/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/02/01/PerlWeeklyChallenge98.html#task2
-- 
cgit 


From 903d7f9729a3debf23370afa22edcbfd92c25789 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 1 Feb 2021 02:54:55 -0700
Subject: Challenge 98 Solutions (Raku)

---
 challenge-098/mark-anderson/raku/ch-1.raku | 17 +++++++++++++++++
 challenge-098/mark-anderson/raku/ch-2.raku | 13 +++++++++++++
 challenge-098/mark-anderson/raku/input.txt |  1 +
 3 files changed, 31 insertions(+)
 create mode 100644 challenge-098/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-098/mark-anderson/raku/ch-2.raku
 create mode 100644 challenge-098/mark-anderson/raku/input.txt

diff --git a/challenge-098/mark-anderson/raku/ch-1.raku b/challenge-098/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..91c9b769b5
--- /dev/null
+++ b/challenge-098/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+use Test;
+plan 3;
+
+is readN("input.txt", 4), "1234";
+is readN("input.txt", 4), "5678";
+is readN("input.txt", 4), "90";
+
+sub readN($FILE, $number) 
+{
+    my $fh = open $FILE, :r;
+    my $head = $fh.readchars: $number;
+    my $tail = $fh.slurp;
+    $fh.close;
+    $FILE.IO.spurt: $tail;
+    return $head;
+}
diff --git a/challenge-098/mark-anderson/raku/ch-2.raku b/challenge-098/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..12bf7ec466
--- /dev/null
+++ b/challenge-098/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,13 @@
+#!/usr/bin/env raku
+use Test;
+plan 4;
+
+is position(3,  (1, 2, 3, 4)),     2;
+is position(6,  (1, 3, 5, 7)),     3;
+is position(10, (12, 14, 16, 18)), 0;
+is position(19, (11, 13, 15, 17)), 4;
+
+multi position($N, @N) 
+{ 
+    (first * >= $N, :k, @N) // +@N; 
+}
diff --git a/challenge-098/mark-anderson/raku/input.txt b/challenge-098/mark-anderson/raku/input.txt
new file mode 100644
index 0000000000..6a537b5b36
--- /dev/null
+++ b/challenge-098/mark-anderson/raku/input.txt
@@ -0,0 +1 @@
+1234567890
\ No newline at end of file
-- 
cgit 


From 1e3200d445f9dfed501541e9b52f6d8985af06f1 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 1 Feb 2021 03:05:39 -0700
Subject: Challenge 98 Solutions (Raku)

---
 challenge-098/mark-anderson/raku/ch-2.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-098/mark-anderson/raku/ch-2.raku b/challenge-098/mark-anderson/raku/ch-2.raku
index 12bf7ec466..0840d339bd 100644
--- a/challenge-098/mark-anderson/raku/ch-2.raku
+++ b/challenge-098/mark-anderson/raku/ch-2.raku
@@ -7,7 +7,7 @@ is position(6,  (1, 3, 5, 7)),     3;
 is position(10, (12, 14, 16, 18)), 0;
 is position(19, (11, 13, 15, 17)), 4;
 
-multi position($N, @N) 
+sub position($N, @N) 
 { 
     (first * >= $N, :k, @N) // +@N; 
 }
-- 
cgit 


From 87f34df3cbddc3c530c7984f31b2d442ffe2f184 Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zoopla.co.uk>
Date: Mon, 1 Feb 2021 12:01:57 +0000
Subject: Doing part 2 first this week. Will look at the seek stuff in a bit.

---
 challenge-098/simon-proctor/raku/ch-2.raku | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 challenge-098/simon-proctor/raku/ch-2.raku

diff --git a/challenge-098/simon-proctor/raku/ch-2.raku b/challenge-098/simon-proctor/raku/ch-2.raku
new file mode 100644
index 0000000000..092b3fe86f
--- /dev/null
+++ b/challenge-098/simon-proctor/raku/ch-2.raku
@@ -0,0 +1,27 @@
+#!/usr/bin/env raku
+
+use v6;
+
+#| Given an int and a sorted list of ints output the index the first valus has (or should have) in the list
+multi sub MAIN ( Int $N, #= Integer to check the location of
+           *@N where @N.sort ~~ @N #= Sorted list of integers
+         ) {
+    say find-in-list($N,@N);
+}
+
+multi sub MAIN( "test" ) is hidden-from-USAGE {
+    use Test;
+    is( find-in-list( 3, [1,2,3,4] ), 2 );
+    is( find-in-list( 6, [1,3,5,7] ), 3 );
+    is( find-in-list( 10, [12,14,16,18] ), 0 );
+    is( find-in-list( 19, [11,13,15,17] ), 4 );
+    done-testing;
+}
+
+sub find-in-list( Int $n, @n ) {
+    for @n.kv -> $i, $v {
+        return $i if $v ~~ $n;
+        return $i if $v > $n;
+    }
+    return @n.elems;
+}
-- 
cgit 


From 086638477ac9b5d3847507e6275d8e5342767893 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 1 Feb 2021 07:04:20 -0500
Subject: 1st commit on 098_raku

---
 challenge-098/stuart-little/raku/ch-1.p6 | 6 ++++++
 challenge-098/stuart-little/raku/ch-2.p6 | 7 +++++++
 2 files changed, 13 insertions(+)
 create mode 100755 challenge-098/stuart-little/raku/ch-1.p6
 create mode 100755 challenge-098/stuart-little/raku/ch-2.p6

diff --git a/challenge-098/stuart-little/raku/ch-1.p6 b/challenge-098/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..0add37ddb7
--- /dev/null
+++ b/challenge-098/stuart-little/raku/ch-1.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script> <path-to-file> <number>
+
+say @*ARGS[0].IO.slurp.substr(0,@*ARGS[1].Int)
diff --git a/challenge-098/stuart-little/raku/ch-2.p6 b/challenge-098/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..a84b1e1a23
--- /dev/null
+++ b/challenge-098/stuart-little/raku/ch-2.p6
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script> <target> <space-separated array entries>
+
+my @nrs = @*ARGS.map(*.Int);
+say @nrs[1..*].grep(* < @nrs[0]).elems
-- 
cgit 


From e6ca31db9e78b036b689498efb3441f84c4cb8e2 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 1 Feb 2021 07:04:56 -0500
Subject: 1st commit on 098_perl

---
 challenge-098/stuart-little/perl/ch-1.pl | 13 +++++++++++++
 challenge-098/stuart-little/perl/ch-2.pl | 10 ++++++++++
 2 files changed, 23 insertions(+)
 create mode 100755 challenge-098/stuart-little/perl/ch-1.pl
 create mode 100755 challenge-098/stuart-little/perl/ch-2.pl

diff --git a/challenge-098/stuart-little/perl/ch-1.pl b/challenge-098/stuart-little/perl/ch-1.pl
new file mode 100755
index 0000000000..2a464bdf46
--- /dev/null
+++ b/challenge-098/stuart-little/perl/ch-1.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script> <path-to-file> <number>
+
+use feature qw(signatures);
+no warnings qw(experimental::signatures);
+
+open my $fh, "<", $ARGV[0];
+read $fh, my $txt, $ARGV[1];
+say $txt;
+    
diff --git a/challenge-098/stuart-little/perl/ch-2.pl b/challenge-098/stuart-little/perl/ch-2.pl
new file mode 100755
index 0000000000..c1c50de86f
--- /dev/null
+++ b/challenge-098/stuart-little/perl/ch-2.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script> <target> <space-separated array entries>
+
+use feature qw(signatures);
+no warnings qw(experimental::signatures);
+
+say scalar(grep {$_ < $ARGV[0]} @ARGV[1..$#ARGV]);
-- 
cgit 


From 53dee3c83e7d037a86acb667852192847f700e0b Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 1 Feb 2021 07:38:48 -0500
Subject: 1st commit on 098_haskell

---
 challenge-098/stuart-little/haskell/ch-1.hs | 10 ++++++++++
 challenge-098/stuart-little/haskell/ch-2.hs |  9 +++++++++
 2 files changed, 19 insertions(+)
 create mode 100755 challenge-098/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-098/stuart-little/haskell/ch-2.hs

diff --git a/challenge-098/stuart-little/haskell/ch-1.hs b/challenge-098/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..d14d005e54
--- /dev/null
+++ b/challenge-098/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,10 @@
+#!/usr/bin/env runghc
+
+-- run <script> <path-to-file> <number>
+
+import System.Environment (getArgs)
+
+main = do
+  (path:nr:_) <- getArgs
+  txt <- readFile path
+  putStrLn $ take (read nr::Int) txt
diff --git a/challenge-098/stuart-little/haskell/ch-2.hs b/challenge-098/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..2108eeb2d7
--- /dev/null
+++ b/challenge-098/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,9 @@
+#!/usr/bin/env runghc
+
+-- run <script> <target> <space-separated array entries>
+
+import System.Environment (getArgs)
+
+main = do
+  (tgt:arr) <- getArgs >>= return . map (read::String->Int)
+  putStrLn $ show $ length $ filter (< tgt) arr
-- 
cgit 


From d9b6efeea7a9664ac3d651fa651f772087ca6e9f Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zoopla.co.uk>
Date: Mon, 1 Feb 2021 13:09:30 +0000
Subject: Self reading script that demonstrates file pointer positioning in
 Raku

---
 challenge-098/simon-proctor/raku/ch-1.raku | 44 ++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 challenge-098/simon-proctor/raku/ch-1.raku

diff --git a/challenge-098/simon-proctor/raku/ch-1.raku b/challenge-098/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..e015d35687
--- /dev/null
+++ b/challenge-098/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,44 @@
+#!/usr/bin/env raku
+
+# Switch the langauge version to general v6.
+# This generally helps in case you run a Raku script with Perl
+use v6;
+
+# This whole script is the main sub.
+unit sub MAIN();
+
+# This script will read and print out itself by the number of characters
+# that you tell it to until it's stopped or runs out of text.
+
+# Note that characters include Uncide ones like £€æßðđŋŧ¶«»¢“”ŋŧ←ħ
+# This is cool.
+
+# Get out filehandle
+my $handle = $?FILE.IO.open( :r );
+
+# Give some opening sprawl
+say "Self referential code is fun right?";
+
+# While we have a truthy input
+while ( my $val = prompt( "How many characters should I print? " ) ) {
+    my $rval = $val.Int();
+    if ( $rval ~~ $val ) {
+        if ( $rval < 0 ) {
+            if ( $handle.tell() >= $rval.abs ) {
+                $handle.seek($rval, SeekFromCurrent );
+            } else {
+                $handle.seek(0, SeekFromBeginning );
+            }
+        }
+        my $res = $handle.readchars($rval.abs);
+        say $res;
+        if $res.codes != $rval.abs {
+            say "That's all folks";
+            last;
+        }
+    } else {
+        say "Please enter an integer. Thanks.";
+    }
+}
+
+say "Bye";
-- 
cgit 


From 9d5b485fe19209fa05b3a70a607ecc589387a86e Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zoopla.co.uk>
Date: Mon, 1 Feb 2021 13:11:25 +0000
Subject: Handle non integer characters. Catching the Failure

---
 challenge-098/simon-proctor/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-098/simon-proctor/raku/ch-1.raku b/challenge-098/simon-proctor/raku/ch-1.raku
index e015d35687..098a789083 100644
--- a/challenge-098/simon-proctor/raku/ch-1.raku
+++ b/challenge-098/simon-proctor/raku/ch-1.raku
@@ -22,7 +22,7 @@ say "Self referential code is fun right?";
 # While we have a truthy input
 while ( my $val = prompt( "How many characters should I print? " ) ) {
     my $rval = $val.Int();
-    if ( $rval ~~ $val ) {
+    if ( $rval && $rval ~~ $val ) {
         if ( $rval < 0 ) {
             if ( $handle.tell() >= $rval.abs ) {
                 $handle.seek($rval, SeekFromCurrent );
-- 
cgit 


From 60d0ec8c7160cd8b06163b8ea50c59b1df50ce35 Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zoopla.co.uk>
Date: Mon, 1 Feb 2021 13:16:50 +0000
Subject: Added comments.

---
 challenge-098/simon-proctor/raku/ch-1.raku | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/challenge-098/simon-proctor/raku/ch-1.raku b/challenge-098/simon-proctor/raku/ch-1.raku
index 098a789083..6ae13767ff 100644
--- a/challenge-098/simon-proctor/raku/ch-1.raku
+++ b/challenge-098/simon-proctor/raku/ch-1.raku
@@ -22,8 +22,12 @@ say "Self referential code is fun right?";
 # While we have a truthy input
 while ( my $val = prompt( "How many characters should I print? " ) ) {
     my $rval = $val.Int();
+    # If $rval couldn't be cast to an Int it's a Failure which is Boolean false
+    # If it was a number then we check it matches the value (to catch floating points).
     if ( $rval && $rval ~~ $val ) {
+        # Allow for negative read back.
         if ( $rval < 0 ) {
+            # If we would read back to beyond the start just reset it.
             if ( $handle.tell() >= $rval.abs ) {
                 $handle.seek($rval, SeekFromCurrent );
             } else {
@@ -31,7 +35,11 @@ while ( my $val = prompt( "How many characters should I print? " ) ) {
             }
         }
         my $res = $handle.readchars($rval.abs);
+        # I thought about reading back displaying backwards but... not instead it
+        # pulls the pointer back and rereads
         say $res;
+        # If we got back less code points than we asked for (note not bytes)
+        # we are done.
         if $res.codes != $rval.abs {
             say "That's all folks";
             last;
@@ -41,4 +49,5 @@ while ( my $val = prompt( "How many characters should I print? " ) ) {
     }
 }
 
+# All over. Say goodbye.
 say "Bye";
-- 
cgit 


From ebe894828aade717f372f58c8de4af65869786cf Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zoopla.co.uk>
Date: Mon, 1 Feb 2021 13:17:50 +0000
Subject: Added comments.

---
 challenge-098/simon-proctor/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-098/simon-proctor/raku/ch-1.raku b/challenge-098/simon-proctor/raku/ch-1.raku
index 6ae13767ff..db223dc415 100644
--- a/challenge-098/simon-proctor/raku/ch-1.raku
+++ b/challenge-098/simon-proctor/raku/ch-1.raku
@@ -13,7 +13,7 @@ unit sub MAIN();
 # Note that characters include Uncide ones like £€æßðđŋŧ¶«»¢“”ŋŧ←ħ
 # This is cool.
 
-# Get out filehandle
+# Get our filehandle. $?FILE is the current file so we open a read only handle to it.
 my $handle = $?FILE.IO.open( :r );
 
 # Give some opening sprawl
-- 
cgit 


From 92d4c70e103ea48c23b30703ce19cce5e018da1b Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zoopla.co.uk>
Date: Mon, 1 Feb 2021 14:27:11 +0000
Subject: Updates based on Markus's valid point

---
 challenge-098/simon-proctor/raku/ch-1.raku | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/challenge-098/simon-proctor/raku/ch-1.raku b/challenge-098/simon-proctor/raku/ch-1.raku
index db223dc415..d3aa7b60f6 100644
--- a/challenge-098/simon-proctor/raku/ch-1.raku
+++ b/challenge-098/simon-proctor/raku/ch-1.raku
@@ -21,26 +21,23 @@ say "Self referential code is fun right?";
 
 # While we have a truthy input
 while ( my $val = prompt( "How many characters should I print? " ) ) {
-    my $rval = $val.Int();
-    # If $rval couldn't be cast to an Int it's a Failure which is Boolean false
-    # If it was a number then we check it matches the value (to catch floating points).
-    if ( $rval && $rval ~~ $val ) {
+    if ( $val ~~ Int ) {
         # Allow for negative read back.
-        if ( $rval < 0 ) {
+        if ( $val < 0 ) {
             # If we would read back to beyond the start just reset it.
-            if ( $handle.tell() >= $rval.abs ) {
-                $handle.seek($rval, SeekFromCurrent );
+            if ( $handle.tell() >= $val.abs ) {
+                $handle.seek($val, SeekFromCurrent );
             } else {
                 $handle.seek(0, SeekFromBeginning );
             }
         }
-        my $res = $handle.readchars($rval.abs);
+        my $res = $handle.readchars($val.abs);
         # I thought about reading back displaying backwards but... not instead it
         # pulls the pointer back and rereads
         say $res;
         # If we got back less code points than we asked for (note not bytes)
         # we are done.
-        if $res.codes != $rval.abs {
+        if $res.codes != $val.abs {
             say "That's all folks";
             last;
         }
-- 
cgit 


From 302f3442330edcc259523f113c44681501849454 Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zoopla.co.uk>
Date: Mon, 1 Feb 2021 15:22:27 +0000
Subject: Spelling

---
 challenge-098/simon-proctor/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-098/simon-proctor/raku/ch-1.raku b/challenge-098/simon-proctor/raku/ch-1.raku
index d3aa7b60f6..3fadb9ffef 100644
--- a/challenge-098/simon-proctor/raku/ch-1.raku
+++ b/challenge-098/simon-proctor/raku/ch-1.raku
@@ -10,7 +10,7 @@ unit sub MAIN();
 # This script will read and print out itself by the number of characters
 # that you tell it to until it's stopped or runs out of text.
 
-# Note that characters include Uncide ones like £€æßðđŋŧ¶«»¢“”ŋŧ←ħ
+# Note that characters include Unicode ones like £€æßðđŋŧ¶«»¢“”ŋŧ←ħ
 # This is cool.
 
 # Get our filehandle. $?FILE is the current file so we open a read only handle to it.
-- 
cgit 


From d990590ad3e57aebfaf119f17b0f3b989355ad39 Mon Sep 17 00:00:00 2001
From: Dave Cross <dave@dave.org.uk>
Date: Mon, 1 Feb 2021 16:06:18 +0000
Subject: Week #98

---
 challenge-098/dave-cross/perl/ch-1.pl   | 21 +++++++++++++++++
 challenge-098/dave-cross/perl/ch-2.pl   | 42 +++++++++++++++++++++++++++++++++
 challenge-098/dave-cross/perl/input.txt |  1 +
 3 files changed, 64 insertions(+)
 create mode 100644 challenge-098/dave-cross/perl/ch-1.pl
 create mode 100644 challenge-098/dave-cross/perl/ch-2.pl
 create mode 100644 challenge-098/dave-cross/perl/input.txt

diff --git a/challenge-098/dave-cross/perl/ch-1.pl b/challenge-098/dave-cross/perl/ch-1.pl
new file mode 100644
index 0000000000..b5dc6933da
--- /dev/null
+++ b/challenge-098/dave-cross/perl/ch-1.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature qw[signatures say state];
+no warnings 'experimental::signatures';
+
+say readN('input.txt', 4) for 1 .. 3;
+
+sub readN ($filename, $n) {
+  state %fh;
+
+  unless ($fh{$filename}) {
+    open $fh{$filename}, '<', $filename
+      or die "Cannot open '$filename': $!\n";
+  }
+
+  read $fh{$filename}, my ($buf), $n;
+
+  return $buf;
+}
diff --git a/challenge-098/dave-cross/perl/ch-2.pl b/challenge-098/dave-cross/perl/ch-2.pl
new file mode 100644
index 0000000000..2848332d15
--- /dev/null
+++ b/challenge-098/dave-cross/perl/ch-2.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature qw[say signatures];
+no warnings 'experimental::signatures';
+
+use Test::More;
+
+my @tests = ({
+  array => [1, 2, 3, 4],
+  n     => 3,
+  exp   => 2,
+}, {
+  array => [1, 3, 5, 7],
+  n     => 6,
+  exp   => 3,
+}, {
+  array => [12, 14, 16, 18],
+  n     => 10,
+  exp   => 0,
+}, {
+  array => [11, 13, 15, 17],
+  n     => 19,
+  exp   => 4,
+});
+
+for (@tests) {
+  is get_index($_->{array}, $_->{n}), $_->{exp};
+}
+
+done_testing;
+
+sub get_index {
+  my ($arr, $n) = @_;
+
+  for (0 .. $#$arr) {
+    return $_ if $arr->[$_] >= $n;
+  }
+
+  return scalar @$arr;
+}
diff --git a/challenge-098/dave-cross/perl/input.txt b/challenge-098/dave-cross/perl/input.txt
new file mode 100644
index 0000000000..a32a4347a4
--- /dev/null
+++ b/challenge-098/dave-cross/perl/input.txt
@@ -0,0 +1 @@
+1234567890
-- 
cgit 


From 3fa86e7eb1946c9a51fc70c2a5585f8bf9e449bb Mon Sep 17 00:00:00 2001
From: Alexander Pankoff <ccntrq@screenri.de>
Date: Mon, 1 Feb 2021 17:33:34 +0100
Subject: add perl solution for wk-098 ch-1.pl

---
 challenge-098/alexander-pankoff/perl/ch-1.pl | 33 ++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 challenge-098/alexander-pankoff/perl/ch-1.pl

diff --git a/challenge-098/alexander-pankoff/perl/ch-1.pl b/challenge-098/alexander-pankoff/perl/ch-1.pl
new file mode 100755
index 0000000000..19294205aa
--- /dev/null
+++ b/challenge-098/alexander-pankoff/perl/ch-1.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/env perl
+use v5.20;
+use utf8;
+use strict;
+use warnings;
+use feature qw(say signatures);
+no warnings 'experimental::signatures';
+
+{
+    my ( $FILE, @numbers ) = @ARGV;
+    say readN( $FILE, $_ ) for @numbers;
+}
+
+sub readN ( $file, $chars ) {
+    state $filehandles = {};
+
+    my $fh;
+    if ( $filehandles->{$file} ) {
+        $fh = $filehandles->{$file};
+    }
+    else {
+        open( $fh, '<', $file );
+        $fh->binmode( ':utf8' );
+        $filehandles->{$file} = $fh;
+    }
+
+    my $out;
+    while ( $chars-- && !$fh->eof ) {
+        $out .= $fh->getc;
+    }
+
+    return $out;
+}
-- 
cgit 


From aea3f33677516ffdaba7eb305e97d666d4ad759a Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Mon, 1 Feb 2021 12:47:12 -0600
Subject: Solutions to challenge 98

---
 challenge-098/wlmb/blog.txt     |  1 +
 challenge-098/wlmb/perl/ch-1.pl | 54 +++++++++++++++++++++++++++++++++++++++++
 challenge-098/wlmb/perl/ch-2.pl | 15 ++++++++++++
 3 files changed, 70 insertions(+)
 create mode 100644 challenge-098/wlmb/blog.txt
 create mode 100755 challenge-098/wlmb/perl/ch-1.pl
 create mode 100755 challenge-098/wlmb/perl/ch-2.pl

diff --git a/challenge-098/wlmb/blog.txt b/challenge-098/wlmb/blog.txt
new file mode 100644
index 0000000000..6a08f68483
--- /dev/null
+++ b/challenge-098/wlmb/blog.txt
@@ -0,0 +1 @@
+https://wlmb.github.io/2021/02/01/PWC098/
diff --git a/challenge-098/wlmb/perl/ch-1.pl b/challenge-098/wlmb/perl/ch-1.pl
new file mode 100755
index 0000000000..58a2463887
--- /dev/null
+++ b/challenge-098/wlmb/perl/ch-1.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 097
+# Task 1: Read N characters
+#
+# See https:/wlmb.github.io/2021/02/01/PWC098/#task-1-read-n-characters
+use warnings;
+use strict;
+use v5.12;
+use Scalar::Util qw(looks_like_number);
+use List::Util qw(all);
+
+sub readN { # find and call the appropriate reader with the appropriate argument
+    my $filename=shift;
+    my $number=shift;
+    return reader($filename)->($number); #get the appropriate reader to read
+}
+
+
+sub reader { #returns a reader, maybe creating it.
+    state %reader; #hash of readers, one per seen filename
+    my $filename=shift;
+    $reader{$filename} //=new_reader($filename);
+}
+
+sub new_reader {#create a new reader
+    my $filename=shift;
+    open my $fh, "<", $filename or die "Couldn't open $filename: $!";
+    my $line=""; #plays the role of a buffer
+    my $reader= sub { #This is the actual reader routine
+	my $number=shift;
+	while($number>length($line)){ #get enough characters
+	    my $nextline=<$fh>;
+	    last unless $nextline;
+	    #I remove newlines. If not desired, comment the next line
+	    chomp($nextline);
+	    $line .= $nextline;
+	}
+	my $result=substr $line,0,$number;
+	(substr $line,0,$number)='';
+	return $result;
+    }
+}
+
+usage() unless @ARGV%2==0;
+usage() unless all {looks_like_number($ARGV[$_]) && $ARGV[$_]>=1}, map {2*$_+1} 0..(@ARGV-1)/2;
+my $res; # Don't print empty lines after file is consumed
+say $res while(@ARGV and $res=readN(shift @ARGV, shift @ARGV));
+sub usage {
+    say <<'END';
+    ./ch-1.pl file1 N1 file2 N2 ...
+    Reads N1 chars from file1, N2 from file2 and so on.
+    Filenames may repeat
+END
+}
diff --git a/challenge-098/wlmb/perl/ch-2.pl b/challenge-098/wlmb/perl/ch-2.pl
new file mode 100755
index 0000000000..1da3ea4401
--- /dev/null
+++ b/challenge-098/wlmb/perl/ch-2.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 098
+# Task 2: Search Insert Position
+#
+# See https:/wlmb.github.io/2021/02/01/PWC098/#task-2-search-insert-position
+use warnings;
+use strict;
+use v5.12;
+use List::Util qw(uniq);
+use List::MoreUtils qw(first_index);
+
+my ($N, @N)=@ARGV;
+say "Input: \@N=(", join(", ", @N), ") and \$N=$N\n",
+    "Output: ",
+    first_index {$_==$N} sort {$a<=>$b} uniq (@N, $N);
-- 
cgit 


From cb5b0b9f3520ea8d0c5da1db466196d0c40d1b38 Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Mon, 1 Feb 2021 13:08:15 -0600
Subject: Change number of challenge

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

diff --git a/challenge-098/wlmb/perl/ch-1.pl b/challenge-098/wlmb/perl/ch-1.pl
index 58a2463887..0f7dd8dc13 100755
--- a/challenge-098/wlmb/perl/ch-1.pl
+++ b/challenge-098/wlmb/perl/ch-1.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# Perl weekly challenge 097
+# Perl weekly challenge 098
 # Task 1: Read N characters
 #
 # See https:/wlmb.github.io/2021/02/01/PWC098/#task-1-read-n-characters
-- 
cgit 


From f06be0c25270b9a07a7c6d9b81fbc86007ea9b2f Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 1 Feb 2021 18:50:47 -0500
Subject: 1st commit on 062_haskell

---
 challenge-062/stuart-little/haskell/ch-1.hs | 27 +++++++++++++++++++++++
 challenge-062/stuart-little/haskell/ch-2.hs | 34 +++++++++++++++++++++++++++++
 2 files changed, 61 insertions(+)
 create mode 100755 challenge-062/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-062/stuart-little/haskell/ch-2.hs

diff --git a/challenge-062/stuart-little/haskell/ch-1.hs b/challenge-062/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..bf57550078
--- /dev/null
+++ b/challenge-062/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,27 @@
+#!/usr/bin/env runghc
+
+-- run <script> <optional '-u' flag> <space-separated list of file paths>
+
+import Data.Char (toLower)
+import Data.List (sortOn)
+import Data.List.Extra (nubSortOn)
+import Data.List.Split (splitOn)
+import System.Environment (getArgs)
+
+normEmail :: String -> (String,String)
+normEmail em = (map toLower dom, base) where
+  (base,dom) = (\(x:xs)-> (x,concat xs)) $ splitOn "@" em
+
+sortEmails :: Bool -> [String] -> [String]
+sortEmails flag = srt normEmail where
+  srt = if (flag == True)
+        then nubSortOn
+        else sortOn
+
+main = do
+  args <- getArgs
+  let (flag,paths) = if (head args == "-u")
+                     then (True,tail args)
+                     else (False,args)
+  addresses <- (mapM readFile paths) >>= return . concat . (map lines)
+  mapM_ putStrLn $ sortEmails flag addresses
diff --git a/challenge-062/stuart-little/haskell/ch-2.hs b/challenge-062/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..0dbdddc11c
--- /dev/null
+++ b/challenge-062/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,34 @@
+#!/usr/bin/env runghc
+
+{-
+run <script> <size N of N x N x N board, or nothing to default to N=2>
+
+Returns a list of three-coordinate positions for the queens, and is very slow for boards 4 x 4 x 4 or larger.
+-}
+
+import Data.List (group)
+import Data.Tree (Tree,unfoldTree,levels)
+import Safe (headDef)
+import System.Environment (getArgs)
+
+type Poss = [[Int]]
+
+board :: Int -> Int -> [[Int]]
+board dm n = sequence $ replicate dm [0..n-1]
+
+attacks :: (Eq a, Num a) => [a] -> [a] -> Bool
+attacks xs ys = (<=1) . length . group . filter (/=0) $ ls where
+  ls = abs <$> (zipWith (-) xs ys)
+
+elimAttacks :: (Eq a, Num a) => [[a]] -> [[a]] -> [[a]]
+elimAttacks xss yss = filter (\ys -> all (not . attacks ys) xss) yss
+
+nextNonAtt :: Poss -> Poss -> (Poss, [Poss])
+nextNonAtt brd poss = (poss, map (:poss) $ elimAttacks poss brd)
+
+quTree :: Int -> Int -> Tree Poss
+quTree dm n = unfoldTree (nextNonAtt $ board dm n) []
+
+main = do
+  n <- getArgs >>= return . (read::String->Int) . headDef "2"
+  print $ head $ last $ levels $ quTree 3 n
-- 
cgit 


From 288e680102c2a81f7d014409010e3f196638bdb7 Mon Sep 17 00:00:00 2001
From: Dave Jacoby <jacoby.david@gmail.com>
Date: Mon, 1 Feb 2021 19:31:40 -0500
Subject: Did it!

---
 challenge-098/dave-jacoby/blog.txt      |  1 +
 challenge-098/dave-jacoby/perl/ch-1a.pl | 49 +++++++++++++++++++++++++++++++++
 challenge-098/dave-jacoby/perl/ch-1b.pl | 45 ++++++++++++++++++++++++++++++
 challenge-098/dave-jacoby/perl/ch-2.pl  | 31 +++++++++++++++++++++
 4 files changed, 126 insertions(+)
 create mode 100644 challenge-098/dave-jacoby/blog.txt
 create mode 100644 challenge-098/dave-jacoby/perl/ch-1a.pl
 create mode 100644 challenge-098/dave-jacoby/perl/ch-1b.pl
 create mode 100644 challenge-098/dave-jacoby/perl/ch-2.pl

diff --git a/challenge-098/dave-jacoby/blog.txt b/challenge-098/dave-jacoby/blog.txt
new file mode 100644
index 0000000000..832237b620
--- /dev/null
+++ b/challenge-098/dave-jacoby/blog.txt
@@ -0,0 +1 @@
+https://jacoby.github.io/2021/02/01/various-positions-perl-weekly-challenge-98.html
diff --git a/challenge-098/dave-jacoby/perl/ch-1a.pl b/challenge-098/dave-jacoby/perl/ch-1a.pl
new file mode 100644
index 0000000000..28cb0eca12
--- /dev/null
+++ b/challenge-098/dave-jacoby/perl/ch-1a.pl
@@ -0,0 +1,49 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature qw{ say signatures state };
+no warnings qw{ experimental };
+
+use List::Util qw{ sum0 };
+
+use JSON;
+my $json = JSON->new->pretty->canonical;
+
+my $n      = 4;
+my $flag   = 0;
+my @inputs = qw{ twinkie input1.txt input2.txt };
+while ( $flag < @inputs ) {
+    state $flags;
+    for my $input (@inputs) {
+        my $output = readN( $input, $n );
+        do {
+            $flags->{$input} = 1;
+            $flag = sum0 values %$flags;
+            next;
+        } if $output eq '';
+        say qq{\t'$input'\t$n\t'$output'};
+    }
+}
+
+# returns empty string on failure cases, which include
+#   * no file
+#   * index beyond file length
+
+sub readN ( $file, $chars ) {
+    state $index;
+    $index->{$file} //= 0;
+    my $i = $index->{$file};
+    return '' unless -f $file;
+    return '' unless -r $file;
+    return '' if $i > -s $file;
+    my $output = '';
+
+    if ( open my $fh, '<', $file ) {
+        my $string = join '', <$fh>;
+        $output = substr $string, $i, $chars;
+        close $fh;
+    }
+    $index->{$file} += $chars;
+    return $output;
+}
diff --git a/challenge-098/dave-jacoby/perl/ch-1b.pl b/challenge-098/dave-jacoby/perl/ch-1b.pl
new file mode 100644
index 0000000000..fb06d584c4
--- /dev/null
+++ b/challenge-098/dave-jacoby/perl/ch-1b.pl
@@ -0,0 +1,45 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature qw{ say signatures state };
+no warnings qw{ experimental };
+
+use List::Util qw{ sum0 };
+
+use JSON;
+my $json = JSON->new->pretty->canonical;
+
+my $n      = 4;
+my $flag   = 0;
+my @inputs = qw{ twinkie input1.txt input2.txt };
+while ( $flag < @inputs ) {
+    state $flags;
+    for my $input (@inputs) {
+        my $output = readN( $input, $n );
+        do {
+            $flags->{$input} = 1;
+            $flag = sum0 values %$flags;
+            next;
+        } if $output eq '';
+        say qq{\t'$input'\t$n\t'$output'};
+    }
+}
+exit;
+
+# returns empty string on failure cases, which include
+#   * no file
+#   * index beyond file length
+
+sub readN ( $file, $chars ) {
+    state $fhs;
+    return '' unless -f $file;
+    return '' unless -r $file;
+    unless ( $fhs->{$file} ) { open $fhs->{$file}, '<', $file }
+
+    my $fh = $fhs->{$file};
+    my $output ;
+    read $fh, $output, $chars;
+    return $output;
+}
+
diff --git a/challenge-098/dave-jacoby/perl/ch-2.pl b/challenge-098/dave-jacoby/perl/ch-2.pl
new file mode 100644
index 0000000000..3a15e3b280
--- /dev/null
+++ b/challenge-098/dave-jacoby/perl/ch-2.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature qw{ say signatures state };
+no warnings qw{ experimental };
+
+my @ns;
+push @ns, [ 3,  [ 1,  2,  3,  4 ] ];
+push @ns, [ 6,  [ 1,  3,  5,  7 ] ];
+push @ns, [ 10, [ 12, 15, 16, 18 ] ];
+push @ns, [ 19, [ 11, 13, 15, 17 ] ];
+
+for my $m (@ns) {
+    my $n = $m->[0];
+    my @n = $m->[1]->@*;
+    my $i = search_insert_position( $n, @n );
+    say qq{Input:  \$n = $n};
+    say qq{        \@n = } . join ', ', @n;
+    say qq{Output: \$i = $i};
+    say '';
+}
+
+sub search_insert_position ( $n, @n ) {
+    my $i = 0;
+    while ( $i < @n ) {
+        return $i if $n <= $n[$i];
+        $i++;
+    }
+    return $i;
+}
-- 
cgit 


From 812dec8e834ff199c8973da474fba448084caddc Mon Sep 17 00:00:00 2001
From: "Gustavo L. de M. Chaves" <gustavo@cpqd.com.br>
Date: Mon, 1 Feb 2021 22:43:20 -0300
Subject: Add Gustavo Chaves's solutions to challenge 098

---
 challenge-098/gustavo-chaves/perl/ch-1.pl | 40 +++++++++++++++++++++++++++++++
 challenge-098/gustavo-chaves/perl/ch-2.pl | 25 +++++++++++++++++++
 2 files changed, 65 insertions(+)
 create mode 100755 challenge-098/gustavo-chaves/perl/ch-1.pl
 create mode 100755 challenge-098/gustavo-chaves/perl/ch-2.pl

diff --git a/challenge-098/gustavo-chaves/perl/ch-1.pl b/challenge-098/gustavo-chaves/perl/ch-1.pl
new file mode 100755
index 0000000000..f49ddd6757
--- /dev/null
+++ b/challenge-098/gustavo-chaves/perl/ch-1.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/env perl
+
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-098/
+# TASK #1 › Read N-characters
+
+use 5.030;
+use warnings;
+use Fcntl;
+
+my ($FILE, @numbers) = @ARGV;
+
+sub readN {
+    my ($filename, $length) = @_;
+
+    my ($fh, $buffer);
+
+    state $cache = {};
+    if (exists $cache->{$filename}) {
+        $fh = $cache->{$filename};
+    } else {
+        if (sysopen($fh, $filename, O_RDONLY)) {
+            $cache->{$filename} = $fh;
+        } else {
+            die "Failed to sysopen '$filename'\n";
+        }
+    }
+
+    my $bytes_read = sysread($fh, $buffer, $length);
+    if (! defined $bytes_read) {
+        die "Failed to sysread '$filename'\n";
+    } elsif ($bytes_read == 0) {
+        delete $cache->{$filename};
+    }
+
+    return $buffer;
+}
+
+foreach my $number (@numbers) {
+    print readN($FILE, $number), "\n";
+}
diff --git a/challenge-098/gustavo-chaves/perl/ch-2.pl b/challenge-098/gustavo-chaves/perl/ch-2.pl
new file mode 100755
index 0000000000..92d2d62cb9
--- /dev/null
+++ b/challenge-098/gustavo-chaves/perl/ch-2.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-098/
+# TASK #2 › Search Insert Position
+
+use 5.030;
+use warnings;
+
+my %inputs = (
+    3 => [1, 2, 3, 4],
+    6 => [1, 3, 5, 7],
+    10 => [12, 14, 16, 18],
+    19 => [11, 13, 15, 17],
+);
+
+INPUT: while (my ($target, $integers) = each %inputs) {
+    say "Input: \@N = (@$integers) and \$N = $target";
+    for my $i (0 .. $#$integers) {
+        if ($integers->[$i] >= $target) {
+            say "Output: $i";
+            next INPUT;
+        }
+    }
+    say "Output: ", scalar(@$integers);
+}
-- 
cgit 


From 30f393249dc949fbf5c792a39562769be66fe42c Mon Sep 17 00:00:00 2001
From: Flavio Poletti <flavio@polettix.it>
Date: Tue, 2 Feb 2021 07:47:13 +0100
Subject: Add polettix's solution to PWC098

---
 challenge-098/polettix/blog.txt     |  1 +
 challenge-098/polettix/blog1.txt    |  1 +
 challenge-098/polettix/perl/ch-1.pl | 26 ++++++++++++++++++++++++++
 challenge-098/polettix/perl/ch-2.pl | 24 ++++++++++++++++++++++++
 4 files changed, 52 insertions(+)
 create mode 100644 challenge-098/polettix/blog.txt
 create mode 100644 challenge-098/polettix/blog1.txt
 create mode 100644 challenge-098/polettix/perl/ch-1.pl
 create mode 100644 challenge-098/polettix/perl/ch-2.pl

diff --git a/challenge-098/polettix/blog.txt b/challenge-098/polettix/blog.txt
new file mode 100644
index 0000000000..85d56a733e
--- /dev/null
+++ b/challenge-098/polettix/blog.txt
@@ -0,0 +1 @@
+https://github.polettix.it/ETOOBUSY/2021/02/03/pwc098-readn/
diff --git a/challenge-098/polettix/blog1.txt b/challenge-098/polettix/blog1.txt
new file mode 100644
index 0000000000..d25fb34087
--- /dev/null
+++ b/challenge-098/polettix/blog1.txt
@@ -0,0 +1 @@
+https://github.polettix.it/ETOOBUSY/2021/02/04/pwc098-search-insert-position/
diff --git a/challenge-098/polettix/perl/ch-1.pl b/challenge-098/polettix/perl/ch-1.pl
new file mode 100644
index 0000000000..e481a2e81b
--- /dev/null
+++ b/challenge-098/polettix/perl/ch-1.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use 5.024;
+use warnings;
+use experimental qw< postderef signatures >;
+no warnings qw< experimental::postderef experimental::signatures >;
+use Fcntl qw< O_RDONLY SEEK_SET >;
+
+sub readN ($FILE, $number) {
+   state $at = {};
+   sysopen my $fh, $FILE, O_RDONLY or die "sysopen('$FILE'): $!\n";
+   sysseek $fh, $at->{$FILE} // 0, SEEK_SET;
+   my $retval = '';
+   my $n = sysread $fh, $retval, $number;
+   close $fh or die "close('$FILE'): $!\n";
+   die "sysread($FILE) \@$number: $!\n"  if ! defined $n;
+   $at->{$FILE} += $n;
+   return $retval;
+}
+
+my $highlight = "\e[1;97;45m"; my $reset = "\e[0m";
+my $file = shift || __FILE__;
+my @numbers = @ARGV ? @ARGV : qw< 4 5 2 >;
+for my $n (@numbers) {
+   my $chunk = readN($file, $n);
+   say "got $n: $highlight$chunk$reset";
+}
diff --git a/challenge-098/polettix/perl/ch-2.pl b/challenge-098/polettix/perl/ch-2.pl
new file mode 100644
index 0000000000..7ed0201d3a
--- /dev/null
+++ b/challenge-098/polettix/perl/ch-2.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+use 5.024;
+use warnings;
+use experimental qw< postderef signatures >;
+no warnings qw< experimental::postderef experimental::signatures >;
+
+sub search_insert_position ($aref, $new_item) {
+   my ($lo, $hi, $i) = (0, $aref->$#*, undef);
+   while ($lo <= $hi) {
+      $i = int(($lo + $hi) / 2);
+      my $item = $aref->[$i];
+      if ($new_item == $item)   { return $i }
+      elsif ($new_item < $item) { $hi = $i }
+      else                      { $lo = $i }
+      last if ($hi - $lo) <= 1;
+   }
+   splice $aref->@*, $i, 0, $new_item;
+   return $i;
+}
+
+my $N = @ARGV ? shift @ARGV : 3;
+my @N = @ARGV ? @ARGV : qw< 1 2 3 4 >;
+my $i = search_insert_position(\@N, $N);
+say "$i -> (@N)";
-- 
cgit 


From 680c6ad236f2e1fcb64193c8c4c0eae192567706 Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Tue, 2 Feb 2021 12:44:48 +0530
Subject: challenge-090: fix file path

---
 challenge-090/andinus/README     | 2 +-
 challenge-090/andinus/README.org | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-090/andinus/README b/challenge-090/andinus/README
index b662f1cb50..3b627c71f9 100644
--- a/challenge-090/andinus/README
+++ b/challenge-090/andinus/README
@@ -33,7 +33,7 @@ Table of Contents
 1.1 Raku
 ────────
 
-  • Program: <file:perl/ch-2.raku>
+  • Program: <file:raku/ch-2.raku>
 
   Start by taking `$A' & `$B' which are defined to be `Int' & positive.
   ┌────
diff --git a/challenge-090/andinus/README.org b/challenge-090/andinus/README.org
index c4f5da3378..8ebbde0e84 100644
--- a/challenge-090/andinus/README.org
+++ b/challenge-090/andinus/README.org
@@ -11,7 +11,7 @@ You are given two positive numbers $A and $B.
 Write a script to demonstrate [[https://threesixty360.wordpress.com/2009/06/09/ethiopian-multiplication/][Ethiopian Multiplication]] using the given
 numbers.
 ** Raku
-- Program: [[file:perl/ch-2.raku]]
+- Program: [[file:raku/ch-2.raku]]
 
 Start by taking =$A= & =$B= which are defined to be =Int= & positive.
 #+BEGIN_SRC raku
-- 
cgit 


From a5995b99a030eaeb730325f823b0a1300336a884 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 2 Feb 2021 07:42:54 +0000
Subject: - Added solutions by James Smith.

---
 stats/pwc-challenge-097.json              |  702 ++++++
 stats/pwc-current.json                    |  699 +-----
 stats/pwc-language-breakdown-summary.json |   62 +-
 stats/pwc-language-breakdown.json         | 3879 +++++++++++++++--------------
 stats/pwc-leaders.json                    |  460 ++--
 stats/pwc-summary-1-30.json               |   48 +-
 stats/pwc-summary-121-150.json            |   98 +-
 stats/pwc-summary-151-180.json            |  106 +-
 stats/pwc-summary-181-210.json            |   52 +-
 stats/pwc-summary-211-240.json            |   66 +-
 stats/pwc-summary-31-60.json              |  102 +-
 stats/pwc-summary-61-90.json              |   94 +-
 stats/pwc-summary-91-120.json             |   38 +-
 stats/pwc-summary.json                    |  472 ++--
 14 files changed, 3482 insertions(+), 3396 deletions(-)
 create mode 100644 stats/pwc-challenge-097.json

diff --git a/stats/pwc-challenge-097.json b/stats/pwc-challenge-097.json
new file mode 100644
index 0000000000..2ff21d90f2
--- /dev/null
+++ b/stats/pwc-challenge-097.json
@@ -0,0 +1,702 @@
+{
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         },
+         "borderWidth" : 0
+      }
+   },
+   "drilldown" : {
+      "series" : [
+         {
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "id" : "Aaron Smith",
+            "name" : "Aaron Smith"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  2
+               ]
+            ],
+            "id" : "Abigail",
+            "name" : "Abigail"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  2
+               ]
+            ],
+            "name" : "Adam Russell",
+            "id" : "Adam Russell"
+         },
+         {
+            "name" : "Alexander Pankoff",
+            "id" : "Alexander Pankoff",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "name" : "Arne Sommer",
+            "id" : "Arne Sommer"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Athanasius",
+            "name" : "Athanasius"
+         },
+         {
+            "name" : "Cheok-Yin Fung",
+            "id" : "Cheok-Yin Fung",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "name" : "Colin Crain",
+            "id" : "Colin Crain",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "name" : "Cristina Heredia",
+            "id" : "Cristina Heredia"
+         },
+         {
+            "id" : "Dave Jacoby",
+            "name" : "Dave Jacoby",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "Duncan C. White",
+            "name" : "Duncan C. White"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "E. Choroba",
+            "name" : "E. Choroba"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  2
+               ]
+            ],
+            "name" : "Flavio Poletti",
+            "id" : "Flavio Poletti"
+         },
+         {
+            "id" : "Gustavo Chaves",
+            "name" : "Gustavo Chaves",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "id" : "James Smith",
+            "name" : "James Smith",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "Jan Hoogenraad",
+            "name" : "Jan Hoogenraad"
+         },
+         {
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Jan Krnavek",
+            "name" : "Jan Krnavek"
+         },
+         {
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Joan Mimosinnet",
+            "name" : "Joan Mimosinnet"
+         },
+         {
+            "id" : "Jorg Sommrey",
+            "name" : "Jorg Sommrey",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "id" : "Kai Burgdorf",
+            "name" : "Kai Burgdorf",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  1
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "name" : "Lance Wicks",
+            "id" : "Lance Wicks"
+         },
+         {
+            "id" : "Laurent Rosenfeld",
+            "name" : "Laurent Rosenfeld",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
+         },
+         {
+            "name" : "Lubos Kolouch",
+            "id" : "Lubos Kolouch",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  2
+               ]
+            ],
+            "name" : "Luca Ferrari",
+            "id" : "Luca Ferrari"
+         },
+         {
+            "id" : "Mark Anderson",
+            "name" : "Mark Anderson",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ]
+         },
+         {
+            "id" : "Niels van Dijke",
+            "name" : "Niels van Dijke",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "name" : "Nuno Vieira",
+            "id" : "Nuno Vieira",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "id" : "Paulo Custodio",
+            "name" : "Paulo Custodio",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "id" : "Pete Houston",
+            "name" : "Pete Houston",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "name" : "Philip Hood",
+            "id" : "Philip Hood",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "Robbie Hatley",
+            "name" : "Robbie Hatley"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "name" : "Roger Bell_West",
+            "id" : "Roger Bell_West"
+         },
+         {
+            "name" : "Simon Green",
+            "id" : "Simon Green",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
+         },
+         {
+            "id" : "Simon Proctor",
+            "name" : "Simon Proctor",
+            "data" : [
+               [
+                  "Raku",
+                  1
+               ]
+            ]
+         },
+         {
+            "id" : "Stuart Little",
+            "name" : "Stuart Little",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "name" : "Ulrich Rieke",
+            "id" : "Ulrich Rieke"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "id" : "W. Luis Mochan",
+            "name" : "W. Luis Mochan"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "name" : "Wanderdoc",
+            "id" : "Wanderdoc"
+         }
+      ]
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "series" : [
+      {
+         "name" : "Perl Weekly Challenge - 097",
+         "colorByPoint" : 1,
+         "data" : [
+            {
+               "drilldown" : "Aaron Smith",
+               "y" : 3,
+               "name" : "Aaron Smith"
+            },
+            {
+               "name" : "Abigail",
+               "drilldown" : "Abigail",
+               "y" : 4
+            },
+            {
+               "name" : "Adam Russell",
+               "y" : 4,
+               "drilldown" : "Adam Russell"
+            },
+            {
+               "drilldown" : "Alexander Pankoff",
+               "y" : 2,
+               "name" : "Alexander Pankoff"
+            },
+            {
+               "y" : 5,
+               "drilldown" : "Arne Sommer",
+               "name" : "Arne Sommer"
+            },
+            {
+               "name" : "Athanasius",
+               "drilldown" : "Athanasius",
+               "y" : 4
+            },
+            {
+               "name" : "Cheok-Yin Fung",
+               "drilldown" : "Cheok-Yin Fung",
+               "y" : 2
+            },
+            {
+               "name" : "Colin Crain",
+               "drilldown" : "Colin Crain",
+               "y" : 5
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Cristina Heredia",
+               "name" : "Cristina Heredia"
+            },
+            {
+               "name" : "Dave Jacoby",
+               "y" : 3,
+               "drilldown" : "Dave Jacoby"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Duncan C. White",
+               "name" : "Duncan C. White"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "E. Choroba",
+               "name" : "E. Choroba"
+            },
+            {
+               "name" : "Flavio Poletti",
+               "drilldown" : "Flavio Poletti",
+               "y" : 4
+            },
+            {
+               "name" : "Gustavo Chaves",
+               "y" : 2,
+               "drilldown" : "Gustavo Chaves"
+            },
+            {
+               "y" : 3,
+               "drilldown" : "James Smith",
+               "name" : "James Smith"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Jan Hoogenraad",
+               "name" : "Jan Hoogenraad"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Jan Krnavek",
+               "name" : "Jan Krnavek"
+            },
+            {
+               "name" : "Joan Mimosinnet",
+               "y" : 2,
+               "drilldown" : "Joan Mimosinnet"
+            },
+            {
+               "drilldown" : "Jorg Sommrey",
+               "y" : 2,
+               "name" : "Jorg Sommrey"
+            },
+            {
+               "drilldown" : "Kai Burgdorf",
+               "y" : 2,
+               "name" : "Kai Burgdorf"
+            },
+            {
+               "drilldown" : "Lance Wicks",
+               "y" : 2,
+               "name" : "Lance Wicks"
+            },
+            {
+               "y" : 5,
+               "drilldown" : "Laurent Rosenfeld",
+               "name" : "Laurent Rosenfeld"
+            },
+            {
+               "drilldown" : "Lubos Kolouch",
+               "y" : 2,
+               "name" : "Lubos Kolouch"
+            },
+            {
+               "name" : "Luca Ferrari",
+               "y" : 4,
+               "drilldown" : "Luca Ferrari"
+            },
+            {
+               "name" : "Mark Anderson",
+               "y" : 2,
+               "drilldown" : "Mark Anderson"
+            },
+            {
+               "name" : "Niels van Dijke",
+               "y" : 2,
+               "drilldown" : "Niels van Dijke"
+            },
+            {
+               "name" : "Nuno Vieira",
+               "drilldown" : "Nuno Vieira",
+               "y" : 2
+            },
+            {
+               "name" : "Paulo Custodio",
+               "y" : 2,
+               "drilldown" : "Paulo Custodio"
+            },
+            {
+               "drilldown" : "Pete Houston",
+               "y" : 2,
+               "name" : "Pete Houston"
+            },
+            {
+               "drilldown" : "Philip Hood",
+               "y" : 2,
+               "name" : "Philip Hood"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Robbie Hatley",
+               "name" : "Robbie Hatley"
+            },
+            {
+               "y" : 5,
+               "drilldown" : "Roger Bell_West",
+               "name" : "Roger Bell_West"
+            },
+            {
+               "y" : 3,
+               "drilldown" : "Simon Green",
+               "name" : "Simon Green"
+