From 358a617bc92b4cfd0ba841f105066c693f001225 Mon Sep 17 00:00:00 2001 From: boblied Date: Mon, 14 Sep 2020 16:02:41 -0500 Subject: Set up templates for 078 --- challenge-078/bob-lied/perl/ch-1.pl | 43 ++++++++++++++++++++++++ challenge-078/bob-lied/perl/ch-2.pl | 56 ++++++++++++++++++++++++++++++++ challenge-078/bob-lied/perl/lib/Task1.pm | 39 ++++++++++++++++++++++ challenge-078/bob-lied/perl/lib/Task2.pm | 39 ++++++++++++++++++++++ challenge-078/bob-lied/perl/t/Task1.pm | 0 challenge-078/bob-lied/perl/t/Task1.t | 14 ++++++++ challenge-078/bob-lied/perl/t/Task2.t | 14 ++++++++ 7 files changed, 205 insertions(+) create mode 100755 challenge-078/bob-lied/perl/ch-1.pl create mode 100755 challenge-078/bob-lied/perl/ch-2.pl create mode 100644 challenge-078/bob-lied/perl/lib/Task1.pm create mode 100644 challenge-078/bob-lied/perl/lib/Task2.pm create mode 100644 challenge-078/bob-lied/perl/t/Task1.pm create mode 100644 challenge-078/bob-lied/perl/t/Task1.t create mode 100644 challenge-078/bob-lied/perl/t/Task2.t (limited to 'challenge-078/bob-lied') diff --git a/challenge-078/bob-lied/perl/ch-1.pl b/challenge-078/bob-lied/perl/ch-1.pl new file mode 100755 index 0000000000..60c4d60385 --- /dev/null +++ b/challenge-078/bob-lied/perl/ch-1.pl @@ -0,0 +1,43 @@ +#!/usr/bin/env perl +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +#============================================================================= +# ch-1.pl +#============================================================================= +# Copyright (c) 2020, Bob Lied +#============================================================================= +# Perl Weekly Challenge 078 Task #1 > Leader Element +#============================================================================= +# You are given an array @A containing distinct integers. +# Write a script to find all leader elements in the array @A. Print (0) if +# none found. +# An element is a leader if it is greater than all the elements to its right. +# Example 1: +# Input: @A = (9, 10, 7, 5, 6, 1) +# Ouput: (10, 7, 6, 1) + +use strict; +use warnings; +use v5.30; + +use feature qw/ signatures /; +no warnings qw/ experimental::signatures /; + +use Getopt::Long; + +use lib "lib"; +use Task1; + +sub Usage { "Usage: $0 args" }; + +my $Verbose = 0; +GetOptions('verbose' => \$Verbose); + +my $arg = shift; +my @list = @ARGV; + +die Usage() unless $arg; +die Usage() unless @list; + +my $task = Task1->new(); +my $result = $task->run(); +say $result; diff --git a/challenge-078/bob-lied/perl/ch-2.pl b/challenge-078/bob-lied/perl/ch-2.pl new file mode 100755 index 0000000000..8546c00515 --- /dev/null +++ b/challenge-078/bob-lied/perl/ch-2.pl @@ -0,0 +1,56 @@ +#!/usr/bin/env perl +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +#============================================================================= +# ch-2.pl +#============================================================================= +# Copyright (c) 2020, Bob Lied +#============================================================================= +# Perl Weekly Challenge 078 Task #2 > Left Rotation +#============================================================================= +# You are given an array @A containing positive numbers and @B containing one +# or more indices from @A. +# Write a script to left-rotate @A so that the number at the first index of @B +# becomes the first element in the array. Similary, left rotate @A again so +# that the number at the second index of @B becomes the first element in the +# array. +# Example 1: +# Input: @A = (10 20 30 40 50) +# @B = (3 4) +# a) We left rotate the 3rd index element (40) in the @A to make it 0th index +# member in the array. +# [40 50 10 20 30] +# +# b) We left rotate the 4th index element (50) in the @A to make it 0th index +# member in the array. +# [50 10 20 30 40] +# +# Output: +# [40 50 10 20 30] +# [50 10 20 30 40] + +use strict; +use warnings; +use v5.30; + +use feature qw/ signatures /; +no warnings qw/ experimental::signatures /; + +use Getopt::Long; + +use lib "lib"; +use Task2; + +sub Usage { "Usage: $0 args" }; + +my $Verbose = 0; +GetOptions('verbose' => \$Verbose); + +my $arg = shift; +my @list = @ARGV; + +die Usage() unless $arg; +die Usage() unless @list; + +my $task = Task2->new(); +my $result = $task->run(); +say $result; diff --git a/challenge-078/bob-lied/perl/lib/Task1.pm b/challenge-078/bob-lied/perl/lib/Task1.pm new file mode 100644 index 0000000000..4bcf27f833 --- /dev/null +++ b/challenge-078/bob-lied/perl/lib/Task1.pm @@ -0,0 +1,39 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +#============================================================================= +# Task1.pm +#============================================================================= +# Copyright (c) 2020, Bob Lied +#============================================================================= +# Description: +#============================================================================= + +package Task1; + +use strict; +use warnings; +use v5.30; + +use feature qw/ signatures /; +no warnings qw/ experimental::signatures /; + +require Exporter; +our @ISA = qw(Exporter); +our @EXPORT = qw(); +our @EXPORT_OK = qw(); + +sub new($class, $name1) +{ + $class = ref($class) || $class; + my $self = { + _name1 => $name1, + }; + bless $self, $class; + return $self; +} + +sub run($self) +{ + return undef; +} + +1; diff --git a/challenge-078/bob-lied/perl/lib/Task2.pm b/challenge-078/bob-lied/perl/lib/Task2.pm new file mode 100644 index 0000000000..7834e69ba8 --- /dev/null +++ b/challenge-078/bob-lied/perl/lib/Task2.pm @@ -0,0 +1,39 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +#============================================================================= +# Task2.pm +#============================================================================= +# Copyright (c) 2020, Bob Lied +#============================================================================= +# Description: +#============================================================================= + +package Task2; + +use strict; +use warnings; +use v5.30; + +use feature qw/ signatures /; +no warnings qw/ experimental::signatures /; + +require Exporter; +our @ISA = qw(Exporter); +our @EXPORT = qw(); +our @EXPORT_OK = qw(); + +sub new($class, $name1) +{ + $class = ref($class) || $class; + my $self = { + _name1 => $name1, + }; + bless $self, $class; + return $self; +} + +sub run($self) +{ + return undef; +} + +1; diff --git a/challenge-078/bob-lied/perl/t/Task1.pm b/challenge-078/bob-lied/perl/t/Task1.pm new file mode 100644 index 0000000000..e69de29bb2 diff --git a/challenge-078/bob-lied/perl/t/Task1.t b/challenge-078/bob-lied/perl/t/Task1.t new file mode 100644 index 0000000000..51dd7729c0 --- /dev/null +++ b/challenge-078/bob-lied/perl/t/Task1.t @@ -0,0 +1,14 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +# +#=============================================================================== +# FILE: Task1.t +# DESCRIPTION: Unit test for Task1 +#=============================================================================== + +use strict; +use warnings; +use v5.30; + +use Test2::V0; + +done_testing(); diff --git a/challenge-078/bob-lied/perl/t/Task2.t b/challenge-078/bob-lied/perl/t/Task2.t new file mode 100644 index 0000000000..ffb1db7c8d --- /dev/null +++ b/challenge-078/bob-lied/perl/t/Task2.t @@ -0,0 +1,14 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +# +#=============================================================================== +# FILE: Task2.t +# DESCRIPTION: Unit test for Task2 +#=============================================================================== + +use strict; +use warnings; +use v5.30; + +use Test2::V0; + +done_testing(); -- cgit From edfefe8fd966607f0466b174a86623d721067edf Mon Sep 17 00:00:00 2001 From: boblied Date: Mon, 14 Sep 2020 16:10:18 -0500 Subject: Update package names --- challenge-078/bob-lied/README | 4 +-- challenge-078/bob-lied/perl/ch-1.pl | 4 +-- challenge-078/bob-lied/perl/ch-2.pl | 4 +-- challenge-078/bob-lied/perl/lib/LeaderElement.pm | 39 ++++++++++++++++++++++++ challenge-078/bob-lied/perl/lib/LeftRotation.pm | 39 ++++++++++++++++++++++++ challenge-078/bob-lied/perl/lib/Task1.pm | 39 ------------------------ challenge-078/bob-lied/perl/lib/Task2.pm | 39 ------------------------ challenge-078/bob-lied/perl/t/LeaderElement.t | 20 ++++++++++++ challenge-078/bob-lied/perl/t/LeftRotation.t | 20 ++++++++++++ challenge-078/bob-lied/perl/t/Task1.t | 14 --------- challenge-078/bob-lied/perl/t/Task2.t | 14 --------- 11 files changed, 124 insertions(+), 112 deletions(-) create mode 100644 challenge-078/bob-lied/perl/lib/LeaderElement.pm create mode 100644 challenge-078/bob-lied/perl/lib/LeftRotation.pm delete mode 100644 challenge-078/bob-lied/perl/lib/Task1.pm delete mode 100644 challenge-078/bob-lied/perl/lib/Task2.pm create mode 100644 challenge-078/bob-lied/perl/t/LeaderElement.t create mode 100644 challenge-078/bob-lied/perl/t/LeftRotation.t delete mode 100644 challenge-078/bob-lied/perl/t/Task1.t delete mode 100644 challenge-078/bob-lied/perl/t/Task2.t (limited to 'challenge-078/bob-lied') diff --git a/challenge-078/bob-lied/README b/challenge-078/bob-lied/README index 9deeb88045..ac3ae94c19 100644 --- a/challenge-078/bob-lied/README +++ b/challenge-078/bob-lied/README @@ -1,3 +1,3 @@ -Solutions to weekly challenge 77 by Bob Lied. +Solutions to weekly challenge 78 by Bob Lied. -https://perlweeklychallenge.org/blog/perl-weekly-challenge-077/ +https://perlweeklychallenge.org/blog/perl-weekly-challenge-078/ diff --git a/challenge-078/bob-lied/perl/ch-1.pl b/challenge-078/bob-lied/perl/ch-1.pl index 60c4d60385..15ee8dd29b 100755 --- a/challenge-078/bob-lied/perl/ch-1.pl +++ b/challenge-078/bob-lied/perl/ch-1.pl @@ -25,7 +25,7 @@ no warnings qw/ experimental::signatures /; use Getopt::Long; use lib "lib"; -use Task1; +use LeaderElement; sub Usage { "Usage: $0 args" }; @@ -38,6 +38,6 @@ my @list = @ARGV; die Usage() unless $arg; die Usage() unless @list; -my $task = Task1->new(); +my $task = LeaderElement->new(); my $result = $task->run(); say $result; diff --git a/challenge-078/bob-lied/perl/ch-2.pl b/challenge-078/bob-lied/perl/ch-2.pl index 8546c00515..cf084f0940 100755 --- a/challenge-078/bob-lied/perl/ch-2.pl +++ b/challenge-078/bob-lied/perl/ch-2.pl @@ -38,7 +38,7 @@ no warnings qw/ experimental::signatures /; use Getopt::Long; use lib "lib"; -use Task2; +use LeftRotation; sub Usage { "Usage: $0 args" }; @@ -51,6 +51,6 @@ my @list = @ARGV; die Usage() unless $arg; die Usage() unless @list; -my $task = Task2->new(); +my $task = LeftRotation->new(); my $result = $task->run(); say $result; diff --git a/challenge-078/bob-lied/perl/lib/LeaderElement.pm b/challenge-078/bob-lied/perl/lib/LeaderElement.pm new file mode 100644 index 0000000000..0d1022a284 --- /dev/null +++ b/challenge-078/bob-lied/perl/lib/LeaderElement.pm @@ -0,0 +1,39 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +#============================================================================= +# LeaderElement.pm +#============================================================================= +# Copyright (c) 2020, Bob Lied +#============================================================================= +# Description: +#============================================================================= + +package LeaderElement; + +use strict; +use warnings; +use v5.30; + +use feature qw/ signatures /; +no warnings qw/ experimental::signatures /; + +require Exporter; +our @ISA = qw(Exporter); +our @EXPORT = qw(); +our @EXPORT_OK = qw(); + +sub new($class, $name1) +{ + $class = ref($class) || $class; + my $self = { + _name1 => $name1, + }; + bless $self, $class; + return $self; +} + +sub run($self) +{ + return undef; +} + +1; diff --git a/challenge-078/bob-lied/perl/lib/LeftRotation.pm b/challenge-078/bob-lied/perl/lib/LeftRotation.pm new file mode 100644 index 0000000000..8a10325a5d --- /dev/null +++ b/challenge-078/bob-lied/perl/lib/LeftRotation.pm @@ -0,0 +1,39 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +#============================================================================= +# LeftRotation.pm +#============================================================================= +# Copyright (c) 2020, Bob Lied +#============================================================================= +# Description: +#============================================================================= + +package LeftRotation; + +use strict; +use warnings; +use v5.30; + +use feature qw/ signatures /; +no warnings qw/ experimental::signatures /; + +require Exporter; +our @ISA = qw(Exporter); +our @EXPORT = qw(); +our @EXPORT_OK = qw(); + +sub new($class, $name1) +{ + $class = ref($class) || $class; + my $self = { + _name1 => $name1, + }; + bless $self, $class; + return $self; +} + +sub run($self) +{ + return undef; +} + +1; diff --git a/challenge-078/bob-lied/perl/lib/Task1.pm b/challenge-078/bob-lied/perl/lib/Task1.pm deleted file mode 100644 index 4bcf27f833..0000000000 --- a/challenge-078/bob-lied/perl/lib/Task1.pm +++ /dev/null @@ -1,39 +0,0 @@ -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -#============================================================================= -# Task1.pm -#============================================================================= -# Copyright (c) 2020, Bob Lied -#============================================================================= -# Description: -#============================================================================= - -package Task1; - -use strict; -use warnings; -use v5.30; - -use feature qw/ signatures /; -no warnings qw/ experimental::signatures /; - -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT = qw(); -our @EXPORT_OK = qw(); - -sub new($class, $name1) -{ - $class = ref($class) || $class; - my $self = { - _name1 => $name1, - }; - bless $self, $class; - return $self; -} - -sub run($self) -{ - return undef; -} - -1; diff --git a/challenge-078/bob-lied/perl/lib/Task2.pm b/challenge-078/bob-lied/perl/lib/Task2.pm deleted file mode 100644 index 7834e69ba8..0000000000 --- a/challenge-078/bob-lied/perl/lib/Task2.pm +++ /dev/null @@ -1,39 +0,0 @@ -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -#============================================================================= -# Task2.pm -#============================================================================= -# Copyright (c) 2020, Bob Lied -#============================================================================= -# Description: -#============================================================================= - -package Task2; - -use strict; -use warnings; -use v5.30; - -use feature qw/ signatures /; -no warnings qw/ experimental::signatures /; - -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT = qw(); -our @EXPORT_OK = qw(); - -sub new($class, $name1) -{ - $class = ref($class) || $class; - my $self = { - _name1 => $name1, - }; - bless $self, $class; - return $self; -} - -sub run($self) -{ - return undef; -} - -1; diff --git a/challenge-078/bob-lied/perl/t/LeaderElement.t b/challenge-078/bob-lied/perl/t/LeaderElement.t new file mode 100644 index 0000000000..cdb83d2a79 --- /dev/null +++ b/challenge-078/bob-lied/perl/t/LeaderElement.t @@ -0,0 +1,20 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +# +#=============================================================================== +# FILE: LeaderElement.t +# DESCRIPTION: Unit test for LeaderElement +#=============================================================================== + +use strict; +use warnings; +use v5.30; + +use Test2::V0; + +use lib "lib"; +use LeaderElement; + +my $t = LeaderElement->new(); +isa_ok($t, [ "LeaderElement" ], "Constructor"); + +done_testing(); diff --git a/challenge-078/bob-lied/perl/t/LeftRotation.t b/challenge-078/bob-lied/perl/t/LeftRotation.t new file mode 100644 index 0000000000..d695462c45 --- /dev/null +++ b/challenge-078/bob-lied/perl/t/LeftRotation.t @@ -0,0 +1,20 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +# +#=============================================================================== +# FILE: LeftRotation.t +# DESCRIPTION: Unit test for LeftRotation +#=============================================================================== + +use strict; +use warnings; +use v5.30; + +use Test2::V0; + +use lib "lib"; +use LeftRotation; + +my $t = LeftRotation->new(); +isa_ok($t, [ "LeftRotation" ], "Constructor"); + +done_testing(); diff --git a/challenge-078/bob-lied/perl/t/Task1.t b/challenge-078/bob-lied/perl/t/Task1.t deleted file mode 100644 index 51dd7729c0..0000000000 --- a/challenge-078/bob-lied/perl/t/Task1.t +++ /dev/null @@ -1,14 +0,0 @@ -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -# -#=============================================================================== -# FILE: Task1.t -# DESCRIPTION: Unit test for Task1 -#=============================================================================== - -use strict; -use warnings; -use v5.30; - -use Test2::V0; - -done_testing(); diff --git a/challenge-078/bob-lied/perl/t/Task2.t b/challenge-078/bob-lied/perl/t/Task2.t deleted file mode 100644 index ffb1db7c8d..0000000000 --- a/challenge-078/bob-lied/perl/t/Task2.t +++ /dev/null @@ -1,14 +0,0 @@ -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -# -#=============================================================================== -# FILE: Task2.t -# DESCRIPTION: Unit test for Task2 -#=============================================================================== - -use strict; -use warnings; -use v5.30; - -use Test2::V0; - -done_testing(); -- cgit From 255a4d89c9dbcaecaad6b1ba09ce944d340a0328 Mon Sep 17 00:00:00 2001 From: boblied Date: Tue, 15 Sep 2020 07:14:10 -0500 Subject: Solution PWC 078 Task 1 Leader Element --- challenge-078/bob-lied/perl/ch-1.pl | 23 +++++++------- challenge-078/bob-lied/perl/lib/LeaderElement.pm | 39 ------------------------ challenge-078/bob-lied/perl/t/LeaderElement.t | 20 ------------ 3 files changed, 11 insertions(+), 71 deletions(-) delete mode 100644 challenge-078/bob-lied/perl/lib/LeaderElement.pm delete mode 100644 challenge-078/bob-lied/perl/t/LeaderElement.t (limited to 'challenge-078/bob-lied') diff --git a/challenge-078/bob-lied/perl/ch-1.pl b/challenge-078/bob-lied/perl/ch-1.pl index 15ee8dd29b..4ccee7959b 100755 --- a/challenge-078/bob-lied/perl/ch-1.pl +++ b/challenge-078/bob-lied/perl/ch-1.pl @@ -22,22 +22,21 @@ use v5.30; use feature qw/ signatures /; no warnings qw/ experimental::signatures /; -use Getopt::Long; - -use lib "lib"; -use LeaderElement; +use List::Util qw / all /; sub Usage { "Usage: $0 args" }; -my $Verbose = 0; -GetOptions('verbose' => \$Verbose); - -my $arg = shift; my @list = @ARGV; -die Usage() unless $arg; die Usage() unless @list; -my $task = LeaderElement->new(); -my $result = $task->run(); -say $result; +my @answer; + +while ( my $leader = shift(@list) ) +{ + if ( all { $leader > $_ } @list ) + { + push @answer, $leader; + } +} +say "( @answer )"; diff --git a/challenge-078/bob-lied/perl/lib/LeaderElement.pm b/challenge-078/bob-lied/perl/lib/LeaderElement.pm deleted file mode 100644 index 0d1022a284..0000000000 --- a/challenge-078/bob-lied/perl/lib/LeaderElement.pm +++ /dev/null @@ -1,39 +0,0 @@ -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -#============================================================================= -# LeaderElement.pm -#============================================================================= -# Copyright (c) 2020, Bob Lied -#============================================================================= -# Description: -#============================================================================= - -package LeaderElement; - -use strict; -use warnings; -use v5.30; - -use feature qw/ signatures /; -no warnings qw/ experimental::signatures /; - -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT = qw(); -our @EXPORT_OK = qw(); - -sub new($class, $name1) -{ - $class = ref($class) || $class; - my $self = { - _name1 => $name1, - }; - bless $self, $class; - return $self; -} - -sub run($self) -{ - return undef; -} - -1; diff --git a/challenge-078/bob-lied/perl/t/LeaderElement.t b/challenge-078/bob-lied/perl/t/LeaderElement.t deleted file mode 100644 index cdb83d2a79..0000000000 --- a/challenge-078/bob-lied/perl/t/LeaderElement.t +++ /dev/null @@ -1,20 +0,0 @@ -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -# -#=============================================================================== -# FILE: LeaderElement.t -# DESCRIPTION: Unit test for LeaderElement -#=============================================================================== - -use strict; -use warnings; -use v5.30; - -use Test2::V0; - -use lib "lib"; -use LeaderElement; - -my $t = LeaderElement->new(); -isa_ok($t, [ "LeaderElement" ], "Constructor"); - -done_testing(); -- cgit From aa15487e29bfdfb4f880e6b8eb1b5e0191886f00 Mon Sep 17 00:00:00 2001 From: boblied Date: Tue, 15 Sep 2020 07:27:34 -0500 Subject: Solution PWC 078 Task 2 Left Rotation --- challenge-078/bob-lied/perl/ch-2.pl | 33 ++++++++++++++------- challenge-078/bob-lied/perl/lib/LeftRotation.pm | 39 ------------------------- challenge-078/bob-lied/perl/t/LeftRotation.t | 20 ------------- challenge-078/bob-lied/perl/t/Task1.pm | 0 4 files changed, 22 insertions(+), 70 deletions(-) delete mode 100644 challenge-078/bob-lied/perl/lib/LeftRotation.pm delete mode 100644 challenge-078/bob-lied/perl/t/LeftRotation.t delete mode 100644 challenge-078/bob-lied/perl/t/Task1.pm (limited to 'challenge-078/bob-lied') diff --git a/challenge-078/bob-lied/perl/ch-2.pl b/challenge-078/bob-lied/perl/ch-2.pl index cf084f0940..f3b49a6dcb 100755 --- a/challenge-078/bob-lied/perl/ch-2.pl +++ b/challenge-078/bob-lied/perl/ch-2.pl @@ -37,20 +37,31 @@ no warnings qw/ experimental::signatures /; use Getopt::Long; -use lib "lib"; -use LeftRotation; - -sub Usage { "Usage: $0 args" }; +sub Usage { qq(Usage: $0 "(a b c d e)" "(x y)" ) }; my $Verbose = 0; GetOptions('verbose' => \$Verbose); -my $arg = shift; -my @list = @ARGV; +my $A = shift; # In list form, "10,20,30" +my $B = shift; # In list form, "3,4"; + +die Usage() unless $A && $B; + +$A =~ s/[(),]/ /g; +my @A = split(" ", $A); + +$B =~ s/[(),]/ /g; +my @B = split(" ", $B); + +if ( $Verbose ) +{ + say "\@A = (@A)\n\@B = (@B)"; +} -die Usage() unless $arg; -die Usage() unless @list; +my $lastA = $#A; -my $task = LeftRotation->new(); -my $result = $task->run(); -say $result; +for my $pivot ( @B ) +{ + my @rot = ( @A[ $pivot .. $lastA], @A[0..$pivot-1] ); + say "[ @rot ]"; +} diff --git a/challenge-078/bob-lied/perl/lib/LeftRotation.pm b/challenge-078/bob-lied/perl/lib/LeftRotation.pm deleted file mode 100644 index 8a10325a5d..0000000000 --- a/challenge-078/bob-lied/perl/lib/LeftRotation.pm +++ /dev/null @@ -1,39 +0,0 @@ -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -#============================================================================= -# LeftRotation.pm -#============================================================================= -# Copyright (c) 2020, Bob Lied -#============================================================================= -# Description: -#============================================================================= - -package LeftRotation; - -use strict; -use warnings; -use v5.30; - -use feature qw/ signatures /; -no warnings qw/ experimental::signatures /; - -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT = qw(); -our @EXPORT_OK = qw(); - -sub new($class, $name1) -{ - $class = ref($class) || $class; - my $self = { - _name1 => $name1, - }; - bless $self, $class; - return $self; -} - -sub run($self) -{ - return undef; -} - -1; diff --git a/challenge-078/bob-lied/perl/t/LeftRotation.t b/challenge-078/bob-lied/perl/t/LeftRotation.t deleted file mode 100644 index d695462c45..0000000000 --- a/challenge-078/bob-lied/perl/t/LeftRotation.t +++ /dev/null @@ -1,20 +0,0 @@ -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -# -#=============================================================================== -# FILE: LeftRotation.t -# DESCRIPTION: Unit test for LeftRotation -#=============================================================================== - -use strict; -use warnings; -use v5.30; - -use Test2::V0; - -use lib "lib"; -use LeftRotation; - -my $t = LeftRotation->new(); -isa_ok($t, [ "LeftRotation" ], "Constructor"); - -done_testing(); diff --git a/challenge-078/bob-lied/perl/t/Task1.pm b/challenge-078/bob-lied/perl/t/Task1.pm deleted file mode 100644 index e69de29bb2..0000000000 -- cgit