From d74274cbf19cb4552b7d42f88baa0e7183fa6f52 Mon Sep 17 00:00:00 2001
From: Sangeet Kar <ssauravk@areas.com>
Date: Sun, 10 May 2020 00:44:47 +0200
Subject: deleting Listy after merging Listy and ch-1.pl

---
 challenge-059/sangeet-kar/perl/Listy.pm | 47 ---------------------------------
 1 file changed, 47 deletions(-)
 delete mode 100644 challenge-059/sangeet-kar/perl/Listy.pm

(limited to 'challenge-059')

diff --git a/challenge-059/sangeet-kar/perl/Listy.pm b/challenge-059/sangeet-kar/perl/Listy.pm
deleted file mode 100644
index eeb08c4d61..0000000000
--- a/challenge-059/sangeet-kar/perl/Listy.pm
+++ /dev/null
@@ -1,47 +0,0 @@
-use strict;
-use warnings;
-use experimental qw(signatures);
-
-#List node class
-package Node;
-
-sub new ($class, $val, $next_node=undef) {
-    bless {val => $val, next_node => $next_node}, $class;
-}
-
-#LinkedList class
-package Listy;
-
-sub new ($class, $list) {
-    my $head = my $last = undef;
-
-    for (@$list) {
-        my $node = Node->new ($_);
-        if (defined $last) {
-            $last->{next_node} = $node;
-            $last = $node;
-        }
-        else {
-            $head = $last = $node;
-        }        
-    }
-    bless {head => $head, last1 => $last}, $class
-}
-
-sub is_empty ($self) {
-    not defined $self->{head};
-}
-
-sub print_list ($self) {
-    if ($self->is_empty) {
-        print "empty";
-    }
-    else {
-        for (my $i = $self->{head}; defined $i; $i = $i->{next_node}) {
-            print $i->{val};
-            print "->" unless $i == $self->{last1};
-        }
-    }
-}
-
-1;
\ No newline at end of file
-- 
cgit