diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-07-21 11:19:07 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-07-21 11:19:07 -0400 |
| commit | a85885eff87ca80ae477117a7d1c1e454cde7416 (patch) | |
| tree | 6dbb0a9751edadaaf93a5d12f62fbdcef0879569 | |
| parent | 02e10549a4bfa1e9af8fbc818bd0dc78dae51024 (diff) | |
| download | perlweeklychallenge-club-a85885eff87ca80ae477117a7d1c1e454cde7416.tar.gz perlweeklychallenge-club-a85885eff87ca80ae477117a7d1c1e454cde7416.tar.bz2 perlweeklychallenge-club-a85885eff87ca80ae477117a7d1c1e454cde7416.zip | |
removed unneeded "scalar"
| -rw-r--r-- | challenge-070/walt-mankowski/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-070/walt-mankowski/perl/ch-2.pl b/challenge-070/walt-mankowski/perl/ch-2.pl index c908d9b6b1..98d26781f5 100644 --- a/challenge-070/walt-mankowski/perl/ch-2.pl +++ b/challenge-070/walt-mankowski/perl/ch-2.pl @@ -55,6 +55,6 @@ for my $i (3..$n) { say "@S"; sub gray_code($n, @S) { - my @S2 = map { "1$_" } reverse map { scalar sprintf "%.*b", $n-1, $_ } @S; + my @S2 = map { "1$_" } reverse map { sprintf "%.*b", $n-1, $_ } @S; return @S, map { eval "0b$_" } @S2; } |