diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-08-26 22:25:26 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-08-26 22:25:26 -0400 |
| commit | ba2e1996a82b6d186ae66497600950881c72471f (patch) | |
| tree | a7149d3e672332371fad3efdc1ed675a1b4f487a | |
| parent | 4c7aa6d402ab4dbf985cbf9e2271ee9d7a2df6f5 (diff) | |
| download | perlweeklychallenge-club-ba2e1996a82b6d186ae66497600950881c72471f.tar.gz perlweeklychallenge-club-ba2e1996a82b6d186ae66497600950881c72471f.tar.bz2 perlweeklychallenge-club-ba2e1996a82b6d186ae66497600950881c72471f.zip | |
removed a loop from print_hist()
| -rw-r--r-- | challenge-075/walt-mankowski/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-075/walt-mankowski/perl/ch-2.pl b/challenge-075/walt-mankowski/perl/ch-2.pl index a64a8aa018..a201d51bd6 100644 --- a/challenge-075/walt-mankowski/perl/ch-2.pl +++ b/challenge-075/walt-mankowski/perl/ch-2.pl @@ -97,7 +97,7 @@ sub print_hist($hist, $a, $rows, $cols) { } print "-"; - print " -" for 0..$cols-1; + print " -" x $cols; print "\n"; print " "; |