diff options
| author | Steven Wilson <steven1170@zoho.eu> | 2019-11-05 15:15:57 +0000 |
|---|---|---|
| committer | Steven Wilson <steven1170@zoho.eu> | 2019-11-05 15:15:57 +0000 |
| commit | 1ba911085aac1551507c53f8d658cdcfc487e768 (patch) | |
| tree | 21cb9c152e2ff0bc7f59ef0c8e032f1aaccde910 /challenge-033 | |
| parent | a019f750af6e39c13f615a3fb53c75b13e79b368 (diff) | |
| download | perlweeklychallenge-club-1ba911085aac1551507c53f8d658cdcfc487e768.tar.gz perlweeklychallenge-club-1ba911085aac1551507c53f8d658cdcfc487e768.tar.bz2 perlweeklychallenge-club-1ba911085aac1551507c53f8d658cdcfc487e768.zip | |
tidy
Diffstat (limited to 'challenge-033')
| -rw-r--r-- | challenge-033/steven-wilson/perl5/ch-2.pl | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/challenge-033/steven-wilson/perl5/ch-2.pl b/challenge-033/steven-wilson/perl5/ch-2.pl index 2a1e125e40..fb32afe704 100644 --- a/challenge-033/steven-wilson/perl5/ch-2.pl +++ b/challenge-033/steven-wilson/perl5/ch-2.pl @@ -21,21 +21,20 @@ # 10| 100 110 # 11| 121 - use strict; use warnings; -printf(" x| %3d %3d %3d %3d %3d %3d %3d %3d %3d %3d %3d\n", 1..11); +printf( " x| %3d %3d %3d %3d %3d %3d %3d %3d %3d %3d %3d\n", 1 .. 11 ); printf("---+--------------------------------------------\n"); -for (1..11) { - my @row = get_row($_); - print sprintf("%3d|", $_); - map { $_ == 0 ? print " " : printf(" %3d", $_)} @row; - print "\n"; +for ( 1 .. 11 ) { + my @row = get_row($_); + printf( "%3d|", $_ ); + map { $_ == 0 ? print " " : printf( " %3d", $_ ) } @row; + print "\n"; } sub get_row { - my $row = shift; - my @row = map {$_ < $row ? 0 : $_ * $row } 1..11; + my $row = shift; + my @row = map { $_ < $row ? 0 : $_ * $row } 1 .. 11; } |