Merge pull request #8410 from adriaandens/chal226

A solution for chal 226

2 files changed, 64 insertions, 0 deletions

diff --git a/challenge-226/adriaandens/perl/ch-1.pl b/challenge-226/adriaandens/perl/ch-1.pl
new file mode 100644
index 0000000000..b52ed9920e
--- /dev/null
+++ b/challenge-226/adriaandens/perl/ch-1.pl
@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+
+use feature 'say';
+
+while((my $s = <DATA>)) {
+	my @indices = split /, /, <DATA>;
+	say "Solution: " . x($s, \@indices);
+}
+
+sub x {
+	my @og = split //, shift;
+	my $indices = shift;
+	my @r = (); my $i = 0;
+	map { $r[$_] = $og[$i++] } @{$indices};
+	return join('', @r);
+}
+
+
+__DATA__
+lacelengh
+3, 2, 0, 5, 4, 8, 6, 7, 1
+rulepark
+4, 7, 3, 1, 0, 5, 2, 6
diff --git a/challenge-226/adriaandens/perl/ch-2.pl b/challenge-226/adriaandens/perl/ch-2.pl
new file mode 100644
index 0000000000..7df3ef341a
--- /dev/null
+++ b/challenge-226/adriaandens/perl/ch-2.pl
@@ -0,0 +1,40 @@
+use strict;
+use warnings;
+
+use feature 'say';
+
+while((my $s = <DATA>)) {
+	say "Solution: " . x($s);
+}
+
+
+sub x {
+	my @ints = split /, /, shift;
+	my $rounds = 0;
+
+	my $min = get_min_bigger_than_zero(@ints);
+	while($min > 0) {
+		@ints = map { $_ > 0 ? $_ - $min : $_ } @ints;
+		$min = get_min_bigger_than_zero(@ints);
+		$rounds++;
+	}
+
+	return $rounds;
+}
+
+sub get_min_bigger_than_zero {
+	my @pos_ints = grep { $_ > 0 } @_;
+	return 0 if ! @pos_ints; # Only zeroes left
+	my $min = shift @pos_ints;
+	foreach(@pos_ints) {
+		if($_ < $min) {
+			$min = $_;
+		}
+	}
+	return $min;
+}
+
+__DATA__
+1, 5, 0, 3, 5
+0
+2, 1, 4, 0, 3