From f3ca62d246ba010d1df53609b48173ec147cd74f Mon Sep 17 00:00:00 2001 From: Matthias Muth Date: Sun, 13 Jul 2025 23:21:21 +0200 Subject: Challenge 329 Task 1 and 2 solutions in Perl by Matthias Muth - Update --- challenge-329/matthias-muth/perl/ch-2.pl | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/challenge-329/matthias-muth/perl/ch-2.pl b/challenge-329/matthias-muth/perl/ch-2.pl index bd1fd39713..fe55f2339e 100755 --- a/challenge-329/matthias-muth/perl/ch-2.pl +++ b/challenge-329/matthias-muth/perl/ch-2.pl @@ -40,5 +40,12 @@ is longest_nice_substring( "cC" ), "cC", 'Example 2: longest_nice_substring( "cC" ) == "cC"'; is longest_nice_substring( "A" ), "", 'Example 3: longest_nice_substring( "A" ) == ""'; +is longest_nice_substring( "XabcABCX" ), "abcABC", + 'Test 1: longest_nice_substring( "XabcABCX" ) == "abcABC"'; +is longest_nice_substring( "XaAbBcCX" ), "aAbBcC", + 'Test 2: longest_nice_substring( "XaAbBcCX" ) == "aAbBcC"'; +is longest_nice_substring( "notniceANOTNICEXniceNICEXaA" ), "niceNICE", + 'Test 3: longest_nice_substring( "notniceANOTNICEXniceNICEXaA" )' + . ' == "niceNICE"'; done_testing; -- cgit