diff options
| author | Matthias Muth <matthias.muth@gmx.de> | 2025-01-20 02:15:28 +0100 |
|---|---|---|
| committer | Matthias Muth <matthias.muth@gmx.de> | 2025-01-20 02:15:28 +0100 |
| commit | 3ad279d4517799a75ff954f7dd06f1f263008f7f (patch) | |
| tree | f162d263a496f2b767d60a5ac631c8e459b16e8b | |
| parent | fd536aaa0a1df5ba426dc02b9d46f33a5503c68a (diff) | |
| download | perlweeklychallenge-club-3ad279d4517799a75ff954f7dd06f1f263008f7f.tar.gz perlweeklychallenge-club-3ad279d4517799a75ff954f7dd06f1f263008f7f.tar.bz2 perlweeklychallenge-club-3ad279d4517799a75ff954f7dd06f1f263008f7f.zip | |
Challenge 304 Task 1 and 2 solutions in Perl by Matthias Muth - Update
| -rwxr-xr-x | challenge-304/matthias-muth/perl/ch-1.pl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/challenge-304/matthias-muth/perl/ch-1.pl b/challenge-304/matthias-muth/perl/ch-1.pl index afba70e22c..9cf0d64918 100755 --- a/challenge-304/matthias-muth/perl/ch-1.pl +++ b/challenge-304/matthias-muth/perl/ch-1.pl @@ -10,8 +10,6 @@ use v5.36; -use Dsay; - sub arrange_binary( $digits, $n ) { my $string = join "", $digits->@*; while ( $string =~ s/ (?<!1) 0 (?!1) /1/x ) { |