- Added solutions by Laurent Rosenfeld.

3 files changed, 69 insertions, 0 deletions

diff --git a/challenge-059/laurent-rosenfeld/perl/ch-1.pl b/challenge-059/laurent-rosenfeld/perl/ch-1.pl
new file mode 100644
index 0000000000..2a5c856811
--- /dev/null
+++ b/challenge-059/laurent-rosenfeld/perl/ch-1.pl
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use feature "say";
+
+sub partition {
+    my $k = shift;
+    my @before = grep {$_ < $k} @_;
+    my @after = grep {$_ >= $k} @_;
+    return @before, @after;
+}
+
+my $k = shift;
+my $list_str = shift // "1 4 3 2 5 2";
+my @list = $list_str =~ /\d+/g;
+my @result = partition $k, @list;
+say join " → ", @result;
diff --git a/challenge-059/laurent-rosenfeld/perl/ch-1a.pl b/challenge-059/laurent-rosenfeld/perl/ch-1a.pl
new file mode 100644
index 0000000000..f67014447f
--- /dev/null
+++ b/challenge-059/laurent-rosenfeld/perl/ch-1a.pl
@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+use feature qw/say/;
+use Data::Dumper;
+
+sub create_linked_list {
+    my $input = shift;
+    my $L;
+    for my $val (reverse split / /, $input) {
+        my $pt = { value => $val, next => $L };
+        $L = $pt;
+    }
+    return $L;
+}
+
+my $k = shift;
+my $list_str = shift // "1 4 3 2 5 2";
+my $list = create_linked_list $list_str;
+# say Dumper $list;
+my (@before, @after);
+while (1) {
+    last unless defined $list->{value};
+    my $temp = $list->{value};
+    if ($temp < $k) {
+        push @before, $temp;
+    } else {
+        push @after, $temp;
+    }
+    $list = $list->{next}
+}
+say join " → ", @before, @after;
diff --git a/challenge-059/laurent-rosenfeld/perl/ch-2.pl b/challenge-059/laurent-rosenfeld/perl/ch-2.pl
new file mode 100644
index 0000000000..e7eb0e583d
--- /dev/null
+++ b/challenge-059/laurent-rosenfeld/perl/ch-2.pl
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+use feature "say";
+
+sub compare {
+    my ($m, $n) = @_;
+    my @a = split //, sprintf "%08b", $m;
+    my @b = split //, sprintf "%08b", $n;
+    my $cnt = 0;
+    for my $i (0..7) {
+        $cnt++ if $a[$i] != $b[$i];
+    }
+    return $cnt;
+}
+my $diff = 0;
+my @nums = @ARGV;
+for my $i (0..$#nums) {
+    for my $j (($i+1) .. $#nums) {
+        $diff += compare $nums[$i], $nums[$j];
+    }
+}
+say $diff;