diff options
| author | boblied <boblied@gmail.com> | 2021-11-11 20:00:00 -0600 |
|---|---|---|
| committer | boblied <boblied@gmail.com> | 2021-11-11 20:00:00 -0600 |
| commit | 14367fed2a21165238d2f14cd4f6506ff41dc2f1 (patch) | |
| tree | 033e8e077a0848d026a19a33c437ab68ae0c57d8 /challenge-138/bob-lied | |
| parent | b8cab5c14dd26a4fea771051dae0d0aa8ad3a7a3 (diff) | |
| download | perlweeklychallenge-club-14367fed2a21165238d2f14cd4f6506ff41dc2f1.tar.gz perlweeklychallenge-club-14367fed2a21165238d2f14cd4f6506ff41dc2f1.tar.bz2 perlweeklychallenge-club-14367fed2a21165238d2f14cd4f6506ff41dc2f1.zip | |
PWC 138 Task #2 Split Number
Diffstat (limited to 'challenge-138/bob-lied')
| -rw-r--r-- | challenge-138/bob-lied/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-138/bob-lied/perl/ch-2.pl b/challenge-138/bob-lied/perl/ch-2.pl index b822cdc845..b54491bd96 100644 --- a/challenge-138/bob-lied/perl/ch-2.pl +++ b/challenge-138/bob-lied/perl/ch-2.pl @@ -30,7 +30,7 @@ my $N = shift; sub _splitN($prefix, $rest, $sqrtN, $depth, $splits) { - my $tab = " " x ($depth*4); + my $tab = " " x ($depth*4); # Debugging aid my $len = length $rest; for my $p ( 1 .. ($len-1) ) { |