diff options
| -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 ) { |