diff options
| -rw-r--r-- | challenge-073/lubos-kolouch/perl/ch-1.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-073/lubos-kolouch/perl/ch-1.pl b/challenge-073/lubos-kolouch/perl/ch-1.pl index d8dbbf3c7b..5cf94156c6 100644 --- a/challenge-073/lubos-kolouch/perl/ch-1.pl +++ b/challenge-073/lubos-kolouch/perl/ch-1.pl @@ -25,7 +25,7 @@ use strict; use warnings; use List::Util qw/min/; -sub compare_versions { +sub min_window { my ($a_ref, $s) = @_; my @return_array; @@ -48,7 +48,7 @@ sub compare_versions { use Test::More; -is_deeply(\compare_versions([1, 5, 0, 2, 9, 3, 7, 6, 4, 8],3),\[0,0,0,2,3,3,4]); -is_deeply(\compare_versions([1, 2, 3],4),\[1]); +is_deeply(\min_window([1, 5, 0, 2, 9, 3, 7, 6, 4, 8],3),\[0,0,0,2,3,3,4]); +is_deeply(\min_window([1, 2, 3],4),\[1]); done_testing; |