diff options
| author | KjetilS <kjetilskotheim@gmail.com> | 2025-11-07 17:38:55 +0100 |
|---|---|---|
| committer | KjetilS <kjetilskotheim@gmail.com> | 2025-11-07 17:38:55 +0100 |
| commit | 16dc4478f22c5a77c42c74891730e885c920cb82 (patch) | |
| tree | c0fa8d8668b570f7442393e4f5bfd646da091f19 | |
| parent | d104e3d8920d27bad28f085c321509ab130e3663 (diff) | |
| download | perlweeklychallenge-club-16dc4478f22c5a77c42c74891730e885c920cb82.tar.gz perlweeklychallenge-club-16dc4478f22c5a77c42c74891730e885c920cb82.tar.bz2 perlweeklychallenge-club-16dc4478f22c5a77c42c74891730e885c920cb82.zip | |
https://theweeklychallenge.org/blog/perl-weekly-challenge-346/
| -rw-r--r-- | challenge-346/kjetillll/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-346/kjetillll/perl/ch-2.pl b/challenge-346/kjetillll/perl/ch-2.pl index ecec17007c..eb9b945f1d 100644 --- a/challenge-346/kjetillll/perl/ch-2.pl +++ b/challenge-346/kjetillll/perl/ch-2.pl @@ -1,7 +1,7 @@ sub f { my($str, $target) = @_; grep !/0\d/ && eval == $target, - map $str =~ s{ \d\B }{ [ $& . substr(' +-*', $_ % 4,1), $_ >>= 2 ]->[0] }gxer =~ s/ //gr, + map $str =~ s{ \d\B }{ [ $& . ['','+','-','*']->[$_ % 4], $_ >>= 2 ]->[0] }gxer, 0 .. 4 ** length($str) / 4 - 1 } |