- Added solutions by Laurent Rosenfeld.

4 files changed, 25 insertions, 0 deletions

diff --git a/challenge-002/laurent-rosenfeld/perl5/ch-1.sh b/challenge-002/laurent-rosenfeld/perl5/ch-1.sh
new file mode 100644
index 0000000000..23800dcfce
--- /dev/null
+++ b/challenge-002/laurent-rosenfeld/perl5/ch-1.sh
@@ -0,0 +1,4 @@
+echo '0456' | perl -pe 's/^0+//'
+echo '0007865' | perl -pe 's/^0+//'
+echo '8976' | perl -pe 's/^0+//'
+echo '0000123456' | perl -pe 's/^0+//'
diff --git a/challenge-002/laurent-rosenfeld/perl5/ch-2.pl b/challenge-002/laurent-rosenfeld/perl5/ch-2.pl
new file mode 100644
index 0000000000..1be487623f
--- /dev/null
+++ b/challenge-002/laurent-rosenfeld/perl5/ch-2.pl
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+use feature "say";
+use constant lookup => ('0'..'9','A'..'Z');
+
+sub convert_base {
+    my ($num, $base) = @_;
+    my $result = "";
+    do {
+        $result .= (lookup)[$num % $base];
+        $num = int ($num/$base);
+    } while $num > 0;
+    $result = reverse $result;
+}
+for my $number (0..45, qw/1757 533 658467/) {
+    say "$number\t:\t", convert_base $number, 35;
+}
diff --git a/challenge-002/laurent-rosenfeld/perl6/ch-1.p6 b/challenge-002/laurent-rosenfeld/perl6/ch-1.p6
new file mode 100644
index 0000000000..eb183d5b63
--- /dev/null
+++ b/challenge-002/laurent-rosenfeld/perl6/ch-1.p6
@@ -0,0 +1,2 @@
+use v6;
+say +$_ for  qw /0456 0007865 8976 0000123456/;
diff --git a/challenge-002/laurent-rosenfeld/perl6/ch-2.p6 b/challenge-002/laurent-rosenfeld/perl6/ch-2.p6
new file mode 100644
index 0000000000..81d6f7766c
--- /dev/null
+++ b/challenge-002/laurent-rosenfeld/perl6/ch-2.p6
@@ -0,0 +1,2 @@
+use v6;
+say $_.base(35) for flat(0..45, 1757, 533, 658467);