diff options
| -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; } |