Merge remote-tracking branch 'upstream/master'

30 files changed, 446 insertions, 0 deletions

diff --git a/challenge-001/adam-russell/perl5/ch-1.pl b/challenge-001/adam-russell/perl5/ch-1.pl
index ff50d0f18d..af82fa4dc8 100644
--- a/challenge-001/adam-russell/perl5/ch-1.pl
+++ b/challenge-001/adam-russell/perl5/ch-1.pl
@@ -1,4 +1,5 @@
 use strict;
+<<<<<<< HEAD
 use warnings; 
 ##
 # Challenge #1
@@ -10,3 +11,16 @@ my $number=do{
     $challenge_string=~tr/e/E/
 };
 print "$number $challenge_string\n"; 
+=======
+use warnings;
+##
+# Challenge #1
+# Write a script to replace the character 'e' with 'E' in the string 'Perl Weekly Challenge'.
+# Also print the number of times the character 'e' is found in the string.
+##
+my $challenge_string = "Perl Weekly Challenge";
+my $number = do {
+    $challenge_string =~ tr/e/E/;
+};
+print "$number $challenge_string\n";
+>>>>>>> upstream/master
diff --git a/challenge-001/adam-russell/perl5/ch-2.pl b/challenge-001/adam-russell/perl5/ch-2.pl
index e2671d51f8..4dfebdfbe3 100644
--- a/challenge-001/adam-russell/perl5/ch-2.pl
+++ b/challenge-001/adam-russell/perl5/ch-2.pl
@@ -1,4 +1,5 @@
 use strict;
+<<<<<<< HEAD
 use warnings; 
 ##
 # Challenge #2
@@ -24,5 +25,32 @@ my $i = 1;
         } 
     }  
     $i++;  
+=======
+use warnings;
+##
+# Challenge #2
+# Write one-liner to solve FizzBuzz problem and print number 1-20.
+# However, any number divisible by 3 should be replaced by the word fizz
+# and any divisible by 5 by the word buzz. Numbers divisible by both become fizz buzz.
+##
+use experimental q/switch/;
+my $i = 1;
+{
+    given($i){
+        when($i % 3 == 0 && $i % 5 == 0){
+            print "fizz buzz\n";
+        }
+        when($i % 5 == 0){
+            print "buzz\n";
+        }
+        when($i % 3 == 0){
+            print "fizz\n";
+        }
+        default{
+            print "$i\n";
+        }
+    }
+    $i++;
+>>>>>>> upstream/master
     redo until ($i > 20);
 }
diff --git a/challenge-001/james-smith/README b/challenge-001/james-smith/README
new file mode 100644
index 0000000000..573d9eb02a
--- /dev/null
+++ b/challenge-001/james-smith/README
@@ -0,0 +1 @@
+Solution by James Smith
diff --git a/challenge-001/james-smith/perl5/ch-1.sh b/challenge-001/james-smith/perl5/ch-1.sh
new file mode 100644
index 0000000000..70435d35ec
--- /dev/null
+++ b/challenge-001/james-smith/perl5/ch-1.sh
@@ -0,0 +1 @@
+perl -E 'say my $n = (my $s = "Perl Weekly Challenge" )=~ y/e/E/; say $s;'
diff --git a/challenge-001/james-smith/perl5/ch-2.sh b/challenge-001/james-smith/perl5/ch-2.sh
new file mode 100644
index 0000000000..1e375cd941
--- /dev/null
+++ b/challenge-001/james-smith/perl5/ch-2.sh
@@ -0,0 +1 @@
+perl -E 'say "".($_%3?"":"Fizz").($_%5?"":"Buzz")||$_ for 1..20;'
diff --git a/challenge-002/abigail/README b/challenge-002/abigail/README
new file mode 100644
index 0000000000..5f0d73ae16
--- /dev/null
+++ b/challenge-002/abigail/README
@@ -0,0 +1 @@
+Solution by Abigail
diff --git a/challenge-002/arpad-toth/perl5/ch-1.pl b/challenge-002/arpad-toth/perl5/ch-1.pl
new file mode 100644
index 0000000000..7ca1c664df
--- /dev/null
+++ b/challenge-002/arpad-toth/perl5/ch-1.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+use strict;
+
+=pod
+
+=head1 Perl Weekly Challenge #002-1
+
+ Write a script or one-liner to remove leading zeros from positive numbers.
+ eg '00034' result should be '34'
+
+ one liner solution 
+ perl -le '$ARGV[0] =~ s/^0+// && print $ARGV[0]' 000023
+
+=cut
+
+exit;
+
+
diff --git a/challenge-002/arpad-toth/perl5/ch-2.pl b/challenge-002/arpad-toth/perl5/ch-2.pl
new file mode 100644
index 0000000000..66d0d2a031
--- /dev/null
+++ b/challenge-002/arpad-toth/perl5/ch-2.pl
@@ -0,0 +1,48 @@
+#!/usr/bin/perl -w
+use strict;
+use v5.10;
+=pod
+
+=head1 Perl Weekly Challenge #002-2
+ Write a script that can convert integers to and from a base35 representation, using the characters 0-9 and A-Y.
+ note: argument checking is not completely safe, was not part of the solution.
+
+=cut
+
+unless((scalar(@ARGV)==2) && ($ARGV[0] =~/tobase35|frombase35/)){
+say <<USAGE;
+usage: chw2_2.pl <options>
+	tobase35   - convert decimal integer to base35
+	frombase35 - convert base35 number to decimal
+        number 
+examples: 	chw2_2.pl tobase35 256, should print '7b'
+		chw2_2.pl frombase35 7b, should print '256'
+USAGE
+exit;
+} 
+
+my $string="";
+my $demal = 0;
+
+process($ARGV[0],$ARGV[1]); 
+
+sub process {
+my ($option, $number) = @_;
+if ($option eq "tobase35") {
+	$number = int($number);
+	while($number){
+		$string .= ('0'..'9','A'..'Z')[$number % 35];
+		$number = int($number/35);
+	}
+say scalar(reverse($string));
+}
+else {
+	$number = uc($number);
+	for my $char (split(//,$number)){
+	$demal = 35*$demal + index("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",$char);
+	}
+say $demal;
+}
+}
+exit;	
+
diff --git a/challenge-002/athanasius/perl5/ch-1.pl b/challenge-002/athanasius/perl5/ch-1.pl
new file mode 100644
index 0000000000..f831efa8d8
--- /dev/null
+++ b/challenge-002/athanasius/perl5/ch-1.pl
@@ -0,0 +1,29 @@
+use strict;
+use warnings;
+
+while (my $n = <DATA>)
+{
+    chomp $n;
+
+    if ($n =~  / ^  \+?          \.  \d+  $ /x       ||
+        $n =~ s/ ^ (\+?) 0* (\d+ \.? \d*) $ /$1$2/x)
+    {
+        print "$n\n";
+    }
+    else
+    {
+        print "$n is not a positive number\n";
+    }
+}
+
+__DATA__
+00012345
++0678
+0000090.123
++00456.789
+0.123
+000.123
+0
+00
+.123
+-01
diff --git a/challenge-002/athanasius/perl5/ch-2.pl b/challenge-002/athanasius/perl5/ch-2.pl
new file mode 100644
index 0000000000..17e15af2f7
--- /dev/null
+++ b/challenge-002/athanasius/perl5/ch-2.pl
@@ -0,0 +1,106 @@
+use strict;
+use warnings;
+use Const::Fast;
+
+const my $ZERO   => ord('0');
+const my $NINE   => ord('9');
+const my $A      => ord('A');
+const my $Y      => ord('Y');
+const my @DIGITS => ('0' .. '9', 'A' .. 'Y');
+const my @POWERS => get_powers();
+
+while (my $n = <DATA>)
+{
+    chomp $n;
+    my $p = base35to10($n);
+    my $q = base10to35($p);
+    printf "%8s(35) = %11s(10) = %8s(35)\n", $n, $p, $q;
+}
+
+sub base35to10
+{
+    my ($base35) = @_;
+    my  $base10  = 0;
+    my  $power   = 1;
+
+    for my $digit (reverse split //, $base35)
+    {
+        $base10 += digit35to10($digit) * $power;
+        $power  *= 35;
+    }
+
+    return $base10;
+}
+
+sub base10to35
+{
+    my ($base10) = @_;
+
+    $base10 < $POWERS[-1] or die "Number $base10 too large, stopped";
+
+    my $index  = get_highest_index($base10);
+    my $base35 = '';
+
+    for my $i (reverse 0 .. $index)
+    {
+        my $digit = $DIGITS[ int($base10 / $POWERS[$i]) ];
+        $base35  .= $digit;
+        $base10  %= $POWERS[$i];
+    }
+
+    return $base35;
+}
+
+sub get_highest_index
+{
+    my ($base10) = @_;
+    my  $index   = $#POWERS;
+
+    for my $i (reverse 1 .. $#POWERS - 1)
+    {
+        last if $base10 >= $POWERS[$i];
+        $index = $i - 1;
+    }
+
+    return $index;
+}
+
+sub digit35to10
+{
+    my ($digit) = @_;
+    my  $ord    = ord($digit);
+
+    return  $digit          if $ord >= $ZERO && $ord <= $NINE;
+    return ($ord - $A + 10) if $ord >= $A    && $ord <= $Y;
+
+    die "Unknown base-35 digit '$digit', stopped";
+}
+
+sub get_powers
+{
+    my @powers;
+    my $power = 1;
+
+    for (1 .. 13)
+    {
+        push @powers, $power;
+        $power *= 35;
+    }
+
+    return @powers;
+}
+
+__DATA__
+10
+17
+35
+52
+A
+1A
+100
+ABC
+123
+36
+0
+13579BEH
+4
diff --git a/challenge-002/fred-zinn/perl5/ch-1.pl b/challenge-002/fred-zinn/perl5/ch-1.pl
new file mode 100644
index 0000000000..e9327bac42
--- /dev/null
+++ b/challenge-002/fred-zinn/perl5/ch-1.pl
@@ -0,0 +1,7 @@
+@a1= ( "00123", "-00123", "123" );
+foreach $nr (@a1)  {
+    if (substr($nr,0,1) == '0')  { $nr  =~ s/^0*//; }
+    print "($nr)\n";
+}
+
+
diff --git a/challenge-002/james-smith/README b/challenge-002/james-smith/README
new file mode 100644
index 0000000000..573d9eb02a
--- /dev/null
+++ b/challenge-002/james-smith/README
@@ -0,0 +1 @@
+Solution by James Smith
diff --git a/challenge-002/james-smith/perl5/ch-1.sh b/challenge-002/james-smith/perl5/ch-1.sh
new file mode 100644
index 0000000000..b7cb3bfea7
--- /dev/null
+++ b/challenge-002/james-smith/perl5/ch-1.sh
@@ -0,0 +1,3 @@
+perl -E 'say /^0*(\d+(?:[.]\d+)?)/?$1:$_ for @ARGV' 121 0.012 -012 002 000
+
+perl -E 'say s/^0+(?=\d)//r for @ARGV' 42983832 16031952 1089991
diff --git a/challenge-002/james-smith/perl5/ch-2.pl b/challenge-002/james-smith/perl5/ch-2.pl
new file mode 100644
index 0000000000..e807b1731a
--- /dev/null
+++ b/challenge-002/james-smith/perl5/ch-2.pl
@@ -0,0 +1,13 @@
+use strict;
+
+sub base35 {
+    my $o = '';
+    for( shift; $_; ) {
+        $_ = ( $_ - (my $t  = $_%35) )/ 35;
+        $o .= chr $t+($t<10?48:55);
+    }
+    return scalar reverse $o;
+}
+
+print $_,"\t", base35( $_ ),"\n" foreach @ARGV;
+
diff --git a/challenge-002/james-smith/perl6/ch-1.sh b/challenge-002/james-smith/perl6/ch-1.sh
new file mode 100644
index 0000000000..c4ef1e4e0a
--- /dev/null
+++ b/challenge-002/james-smith/perl6/ch-1.sh
@@ -0,0 +1 @@
+perl6 -e 'say m/^0*(\d+[.\d+]?)/??"$0"!!$_ for @*ARGS' 121 0.012 -012 002 000
diff --git a/challenge-002/james-smith/perl6/ch-2.p6 b/challenge-002/james-smith/perl6/ch-2.p6
new file mode 100644
index 0000000000..80d37995c2
--- /dev/null
+++ b/challenge-002/james-smith/perl6/ch-2.p6
@@ -0,0 +1,3 @@
+sub mp($n)  {chr $n+($n < 10??48!!55)}
+sub b35($n) {$n??b35(floor $n/35)~mp($n%35)!!''}
+say b35 $_ for @*ARGS;
diff --git a/challenge-002/jo-christian-oterhals/perl5/base35.pl b/challenge-002/jo-christian-oterhals/perl5/base35.pl
new file mode 100644
index 0000000000..921b84bd0c
--- /dev/null
+++ b/challenge-002/jo-christian-oterhals/perl5/base35.pl
@@ -0,0 +1,49 @@
+#!/usr/bin/env perl
+#
+# Filename: base35.pl
+#
+# Usage:
+#   perl base35.pl [+-]NUMBER FROM-BASE, e.g.
+#
+#   perl base35.pl 1000 10
+#     Output: SK
+#
+#   perl base35.pl SK 35
+#     Output: 1000
+#
+#   perl base35.pl -SK 35
+#     Output: -1000
+use v5.18;
+say base35_conv(@ARGV);
+sub base35_conv {
+    my ($no, $base) = (uc(shift), shift);
+    if ($base != 10 && $base != 35) {
+        warn "Not a valid base, must be 10 or 35";
+        return -1;
+    }
+    if (($base == 35 && $no !~ /^[\+\-]{0,1}[0-9A-Y]+$/) || ($base == 10 && $no !~ /^[\+\-]{0,1}[0-9]+$/)) {
+        warn "You have to provide a valid number for the given base";
+        return -1;
+    }
+    my ($c, $e) = (0, 0);
+    my $prefix = $no =~ s/^(\+|-)// ? $1 : "";
+    my %d = map { if ($base == 35) { $_ => $c++ } else { $c++ => $_  } } (0..9,'A'..'Y');
+    if ($base == 35) {
+        my $i = 1;
+        for (reverse(split("", $no))) {
+            $e += $i * $d{$_};
+            $i = $i * 35;
+        }
+    }
+    else {
+        my @digits;
+        while ($no > 0) {
+            push @digits, $d{$no % 35};
+            $no = int($no / 35);
+        }
+        $e = join("", reverse(@digits));
+    }
+    return ( $prefix ? $prefix : "" ) . $e;
+}
+
+
diff --git a/challenge-002/jo-christian-oterhals/perl5/ch-1.sh b/challenge-002/jo-christian-oterhals/perl5/ch-1.sh
new file mode 100644
index 0000000000..adaa66e050
--- /dev/null
+++ b/challenge-002/jo-christian-oterhals/perl5/ch-1.sh
@@ -0,0 +1 @@
+perl -E 'say "001000"*1;'
diff --git a/challenge-002/jo-christian-oterhals/perl5/ch-2.sh b/challenge-002/jo-christian-oterhals/perl5/ch-2.sh
new file mode 100644
index 0000000000..757fdd3fd1
--- /dev/null
+++ b/challenge-002/jo-christian-oterhals/perl5/ch-2.sh
@@ -0,0 +1,3 @@
+perl -E '%d = map { $_ => $c++ } (0..9,A..Y); $i = 1; for (reverse(split("", @ARGV[0]))) { $e += $i * $d{$_}; $i = $i * 35; } say $e' 1M5
+
+perl -E '%d = map { $c++ => $_ } (0..9,A..Y); while ($ARGV[0] > 0) { push @n, $d{$ARGV[0] % 35}; $ARGV[0] = int($ARGV[0] / 35); } say join("", reverse(@n));' 2000
diff --git a/challenge-002/jo-christian-oterhals/perl6/ch-1.sh b/challenge-002/jo-christian-oterhals/perl6/ch-1.sh
new file mode 100644
index 0000000000..e254f8b3f2
--- /dev/null
+++ b/challenge-002/jo-christian-oterhals/perl6/ch-1.sh
@@ -0,0 +1 @@
+perl6 -e 'say "-001000"*1;'
diff --git a/challenge-002/jo-christian-oterhals/perl6/ch-2.sh b/challenge-002/jo-christian-oterhals/perl6/ch-2.sh
new file mode 100644
index 0000000000..72476f64e0
--- /dev/null
+++ b/challenge-002/jo-christian-oterhals/perl6/ch-2.sh
@@ -0,0 +1 @@
+perl6 -e 'say "1M5".parse-base(35)'
diff --git a/challenge-002/nick-logan/perl5/ch-1.pl b/challenge-002/nick-logan/perl5/ch-1.pl
new file mode 100644
index 0000000000..f7787b8a04
--- /dev/null
+++ b/challenge-002/nick-logan/perl5/ch-1.pl
@@ -0,0 +1 @@
+my @ARGV = do { sub eval($_) { &EVAL($_) }; eval( ("0" and q|@*ARGS| or q|@ARGV|) ) }; print("$_\n") for map &{ sub ($_) { /^0(0|1|2|3|4|5|6|7|8|9)+/ and (0+$_) or $_ } }.(), @ARGV;
diff --git a/challenge-002/nick-logan/perl5/ch-2.pl b/challenge-002/nick-logan/perl5/ch-2.pl
new file mode 100644
index 0000000000..f6d6226cda
--- /dev/null
+++ b/challenge-002/nick-logan/perl5/ch-2.pl
@@ -0,0 +1,9 @@
+my @ARGV = do { sub eval { chomp &EVAL(@_) }; eval( ("0" and q|@*ARGS| or q|@ARGV|) ) };
+my ($state, $result, $dict, $base35) = (1, "", {}, @ARGV[0]);
+$dict{$_} = $_ for "1".."9";
+$dict{$_} = ord($_) - 55 for "A".."Y";
+for (reverse grep &{ sub ($_) { $_ ne "" } }.(), split("", $base35)) {
+        $result += $state * $dict{$_};
+            $state *= 35;
+};
+print("$result\n");
diff --git a/challenge-002/nick-logan/perl5/to-base35.pl b/challenge-002/nick-logan/perl5/to-base35.pl
new file mode 100644
index 0000000000..683acda914
--- /dev/null
+++ b/challenge-002/nick-logan/perl5/to-base35.pl
@@ -0,0 +1,11 @@
+# bin/to-base35
+sub to_int($_) { my @i = split(/"."/, $_[0]); @i[0] };
+my @ARGV = do { sub eval { chomp &EVAL(@_) }; eval( ("0" and q|@*ARGS| or q|@ARGV|) ) };
+my ($result, $dict, $base10) = ("", {}, @ARGV[0]);
+$dict{$_} = $_ for "1".."9";
+$dict{ord($_) - 55} = $_ for "A".."Y";
+while ($base10 > 0) {
+        $result = join("", $dict{to_int($base10 % 35)}, $result);
+            $base10 = to_int($base10 / 35);
+}
+print("$result\n");
diff --git a/challenge-002/nick-logan/perl6/ch-1.p6 b/challenge-002/nick-logan/perl6/ch-1.p6
new file mode 100644
index 0000000000..f7787b8a04
--- /dev/null
+++ b/challenge-002/nick-logan/perl6/ch-1.p6
@@ -0,0 +1 @@
+my @ARGV = do { sub eval($_) { &EVAL($_) }; eval( ("0" and q|@*ARGS| or q|@ARGV|) ) }; print("$_\n") for map &{ sub ($_) { /^0(0|1|2|3|4|5|6|7|8|9)+/ and (0+$_) or $_ } }.(), @ARGV;
diff --git a/challenge-002/nick-logan/perl6/ch-2.p6 b/challenge-002/nick-logan/perl6/ch-2.p6
new file mode 100644
index 0000000000..f6d6226cda
--- /dev/null
+++ b/challenge-002/nick-logan/perl6/ch-2.p6
@@ -0,0 +1,9 @@
+my @ARGV = do { sub eval { chomp &EVAL(@_) }; eval( ("0" and q|@*ARGS| or q|@ARGV|) ) };
+my ($state, $result, $dict, $base35) = (1, "", {}, @ARGV[0]);
+$dict{$_} = $_ for "1".."9";
+$dict{$_} = ord($_) - 55 for "A".."Y";
+for (reverse grep &{ sub ($_) { $_ ne "" } }.(), split("", $base35)) {
+        $result += $state * $dict{$_};
+            $state *= 35;
+};
+print("$result\n");
diff --git a/challenge-002/nick-logan/perl6/to-base35.p6 b/challenge-002/nick-logan/perl6/to-base35.p6
new file mode 100644
index 0000000000..683acda914
--- /dev/null
+++ b/challenge-002/nick-logan/perl6/to-base35.p6
@@ -0,0 +1,11 @@
+# bin/to-base35
+sub to_int($_) { my @i = split(/"."/, $_[0]); @i[0] };
+my @ARGV = do { sub eval { chomp &EVAL(@_) }; eval( ("0" and q|@*ARGS| or q|@ARGV|) ) };
+my ($result, $dict, $base10) = ("", {}, @ARGV[0]);
+$dict{$_} = $_ for "1".."9";
+$dict{ord($_) - 55} = $_ for "A".."Y";
+while ($base10 > 0) {
+        $result = join("", $dict{to_int($base10 % 35)}, $result);
+            $base10 = to_int($base10 / 35);
+}
+print("$result\n");
diff --git a/challenge-002/steven-wilson/perl5/ch-1.pl b/challenge-002/steven-wilson/perl5/ch-1.pl
new file mode 100644
index 0000000000..37c7b9c5bb
--- /dev/null
+++ b/challenge-002/steven-wilson/perl5/ch-1.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+# Author: Steven Wilson
+# Date: 2019-04-03
+# Challenge #1
+# Write a script or one-liner to remove leading zeros from positive numbers.
+#
+# Usage: $ ./week2c1 0099
+
+use warnings;
+use strict;
+use feature qw/ say /;
+
+my ($number) = @ARGV;
+
+$number =~ /[0]*(\d+)/;
+
+say $1;
diff --git a/challenge-002/steven-wilson/perl5/ch-2.pl b/challenge-002/steven-wilson/perl5/ch-2.pl
new file mode 100644
index 0000000000..1726baf8a3
--- /dev/null
+++ b/challenge-002/steven-wilson/perl5/ch-2.pl
@@ -0,0 +1,55 @@
+#!/usr/bin/env perl
+# Author: Steven Wilson
+# Date: 2019-04-02
+# Challenge #2
+# Write a script that can convert integers to and from a base35
+# representation, using the characters 0-9 and A-Y. Dave Jacoby came up with
+# nice description about base35, in case you needed some background.
+#
+# Usage: ./week2c2 <number> [enc|dec]
+# eg:
+# $ ./week2c2 13 enc, encodes 13 in base 10 to D in base 35.
+# $ ./week2c2 10 dec, decodes 10 in base 35 to 35 in base 10.
+
+use warnings;
+use strict;
+use feature qw/ say /;
+
+my @digits = qw / 0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q
+    R S T U V W X Y /;
+
+my ( $number, $operation ) = @ARGV;
+
+if ( $operation eq "enc" ) {
+    say "$number encoded in base 35 is ", base35_encode($number);
+}
+elsif ( $operation eq "dec" ) {
+    say "$number decoded from base 35 is ", base35_decode($number);
+}
+
+sub base35_encode {
+    my $number = shift;
+    my @answer;
+    while ( $number > 34 ) {
+        unshift @answer, $digits[ $number % 35 ];
+        $number = $number / 35;
+    }
+    unshift @answer, $digits[$number];
+    return @answer;
+}
+
+sub base35_decode {
+    my $number          = shift;
+    my @number_as_array = split( //, $number );
+    my $number_length   = @number_as_array;
+    my $answer          = 0;
+    my $counter         = 0;
+    my $digit_in_base10;
+    for ( my $i = $number_length - 1; $i >= 0; $i-- ) {
+        ($digit_in_base10)
+            = grep { $digits[$_] eq $number_as_array[$counter] } ( 0 .. 34 );
+        $answer += $digit_in_base10 * 35**$i;
+        $counter++;
+    }
+    return $answer;
+}
diff --git a/members.json b/members.json
index 691f122452..2979970c30 100755..100644
--- a/members.json
+++ b/members.json
@@ -1,4 +1,5 @@
 {
+    "abigail"               : "Abigail",
     "alex-daniel"           : "Alex Daniel",
     "alexander-karelas"     : "Alexander Karelas",
     "alexey-melezhik"       : "Alexey Melezhik",
@@ -38,6 +39,7 @@
     "michael-schaap"        : "Michael Schaap",
     "neil-bowers"           : "Neil Bowers",
     "nick-logan"            : "Nick Logan",
+    "ohmycloud"             : "Chenyf",
     "oleskii-tsvietnov"     : "Oleskii Tsvitenov",
     "ozzy"                  : "Ozzy",
     "pavel-jurca"           : "Pavel Jurca",