Add perl solution ch#59-1

1 files changed, 100 insertions, 0 deletions

diff --git a/challenge-059/yet-ebreo/perl/ch-1.pl b/challenge-059/yet-ebreo/perl/ch-1.pl
new file mode 100644
index 0000000000..37a061d69f
--- /dev/null
+++ b/challenge-059/yet-ebreo/perl/ch-1.pl
@@ -0,0 +1,100 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use feature 'say';
+
+my @arr  = ( 1, 4, 3, 2, 5, 2 );
+my $k    = 3;
+my $link = new LinkedList;
+
+#Add items in linked list
+for my $i (@arr) {
+    $link->add($i);
+}
+
+#Declare two linked list for partitions
+my $uplink = new LinkedList;
+my $dnlink = new LinkedList;
+
+#Print original list
+say "Original List:";
+while ($link->iter) {
+    my $i = $link->value;
+    if ($i >= $k) {
+        $uplink->add($i) 
+    } else {
+        $dnlink->add($i);
+    }
+    print $i;
+    print " -> " if $link->next
+}
+
+#Join dnlink and uplink
+$dnlink->join($uplink);
+
+
+#Print final re-ordered list
+say "\n\nPartitioned List:";
+while ($dnlink->iter) {
+    my $i = $dnlink->value;
+    print $i;
+    print " -> " if $dnlink->next
+}
+
+
+package LinkedList;
+my $iter_item;
+sub new {
+    my $class = shift;
+    my $self = {
+        value => shift,
+        next  => undef,
+        
+    };
+
+    return bless $self, $class;
+}
+sub add {
+    my ($self,$val) = @_;
+    my $curr = $self->last;
+    
+    $curr->{value} = $val;
+    $curr->{next}  = undef;
+}
+sub last {
+    my $self = shift;
+    my $curr = $self;
+    while (defined $curr->{value}) {
+        $curr = \%{$curr->{next}};
+    }
+    return $curr;
+}
+sub value {
+    my $self = shift;
+    $iter_item = $self if (!$iter_item);
+    return $iter_item->{value};
+} 
+sub next {
+    return $iter_item->{next};
+} 
+sub iter {
+    my ($self, $join_mode) = @_;
+
+    if (!$iter_item) {
+        $iter_item = $self;
+    } else {
+        if ($iter_item->{next}) {
+            $iter_item = \%{$iter_item->{next}};
+        } else {
+            $iter_item = undef;
+        }
+    }
+}
+sub join {
+    my ($self,$val) = @_;
+    while ($val->iter) {
+        my $i = $val->value;
+        $self->add($i)
+    }
+}
+1;
\ No newline at end of file