diff options
| -rw-r--r-- | challenge-180/steven-wilson/perl/ch-02.pl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/challenge-180/steven-wilson/perl/ch-02.pl b/challenge-180/steven-wilson/perl/ch-02.pl new file mode 100644 index 0000000000..f68652e646 --- /dev/null +++ b/challenge-180/steven-wilson/perl/ch-02.pl @@ -0,0 +1,28 @@ +#!/usr/bin/env perl +# Week 180 Task 2 +# You are given list of numbers, @n and an integer $i. +# Write a script to trim the given list where element is less than or equal to +# the given integer. + +use strict; +use warnings; +use Test::More; + +my @n_t1 = ( 1, 4, 2, 3, 5 ); +my $i_t1 = 3; +my @r_t1 = ( 4, 5 ); + +my @n_t2 = ( 9, 0, 6, 2, 3, 8, 5 ); +my $i_t2 = 4; +my @r_t2 = ( 9, 6, 8, 5 ); + +is_deeply( trim_list( $i_t1, \@n_t1 ), \@r_t1 ); +is_deeply( trim_list( $i_t2, \@n_t2 ), \@r_t2 ); +done_testing(); + +sub trim_list { + my $i = shift; + my $n_ref = shift; + my @r = grep { $_ > $i } @{$n_ref}; + return \@r; +} |