diff options
| author | Matthias Muth <matthias.muth@gmx.de> | 2025-07-26 17:56:35 +0200 |
|---|---|---|
| committer | Matthias Muth <matthias.muth@gmx.de> | 2025-07-26 17:56:35 +0200 |
| commit | 09dc8e39a37bfc219facb104f0059d2a8fd0d718 (patch) | |
| tree | 42c2e59cdf3688961f4937c816810e998f22b7fd | |
| parent | 67f1c105a301c4ac6432e11515a9985732ed2508 (diff) | |
| download | perlweeklychallenge-club-09dc8e39a37bfc219facb104f0059d2a8fd0d718.tar.gz perlweeklychallenge-club-09dc8e39a37bfc219facb104f0059d2a8fd0d718.tar.bz2 perlweeklychallenge-club-09dc8e39a37bfc219facb104f0059d2a8fd0d718.zip | |
Challenge 331 Task 1 and 2 solutions in Perl by Matthias Muth - Update
| -rwxr-xr-x | challenge-331/matthias-muth/perl/ch-1.pl | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/challenge-331/matthias-muth/perl/ch-1.pl b/challenge-331/matthias-muth/perl/ch-1.pl index 39437e6f8a..adcb8c2513 100755 --- a/challenge-331/matthias-muth/perl/ch-1.pl +++ b/challenge-331/matthias-muth/perl/ch-1.pl @@ -10,11 +10,6 @@ use v5.36; -use Dsay; -$debug{ALL} = 1; -say pp split "", ""; -say pp scalar( ()[-1] ); - sub last_word_length( $str ) { return length( ( split " ", $str )[-1] // "" ); } |