Added solutions to w2 c2

Must be a better perl5 solution out there!

3 files changed, 30 insertions, 0 deletions

diff --git a/challenge-002/ruben-westerberg/README b/challenge-002/ruben-westerberg/README
index 89369bf20d..58eaaedd18 100644
--- a/challenge-002/ruben-westerberg/README
+++ b/challenge-002/ruben-westerberg/README
@@ -1 +1,3 @@
 Solution by Ruben Westerberg
+
+inputs via command line arguments
diff --git a/challenge-002/ruben-westerberg/ch-2.p6 b/challenge-002/ruben-westerberg/ch-2.p6
new file mode 100755
index 0000000000..c011ae237c
--- /dev/null
+++ b/challenge-002/ruben-westerberg/ch-2.p6
@@ -0,0 +1,2 @@
+#!/usr/bin/env perl6
+@*ARGS>>.Num>>.base(35)>>.&{say "Base 35: $_"; $_}>>.parse-base(35)>>.&{say "Base 10: $_"};
diff --git a/challenge-002/ruben-westerberg/ch-2.pl b/challenge-002/ruben-westerberg/ch-2.pl
new file mode 100755
index 0000000000..66e78301c8
--- /dev/null
+++ b/challenge-002/ruben-westerberg/ch-2.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+my $b=35;
+foreach (@ARGV) {
+	my $power=0;
+	while (int($_/ $b**++$power) >= 1){};
+	$power--;
+	my @out=();
+	while ($power >= 0) {
+		my $place=$b**$power;
+		my $val=int($_ / $place);
+		my $digit= $val >= 10 ?  chr(ord('A')+($val-10)) : $val;
+		push @out, $digit;
+		$_= $_- $place*$val;
+		$power--;
+	}
+	$base35=join "", @out;
+	print "Base 35: $base35\n";
+	my $place=  length $base35;
+	$_=reverse $base35;
+	my $sum=0;
+	while(--$place >=0){
+		$val=chop $_;
+		$sum += $b**$place * (scalar (grep ($_ eq $val, "A".."Y")) ? (ord($val)-55) : $val);
+	}
+	print "Base 10: $sum\n";
+}