diff options
| author | Steven Wilson <steven1170@zoho.eu> | 2020-01-02 10:52:19 +0000 |
|---|---|---|
| committer | Steven Wilson <steven1170@zoho.eu> | 2020-01-02 10:52:19 +0000 |
| commit | 202f746409e348f2b3f8898f82dbe969ca30864c (patch) | |
| tree | 3325170662fca63be26c5dc5407f3cf256f38d32 /challenge-041 | |
| parent | 697ea4d09b1fdddc39ca14dff756e2769523dc6e (diff) | |
| download | perlweeklychallenge-club-202f746409e348f2b3f8898f82dbe969ca30864c.tar.gz perlweeklychallenge-club-202f746409e348f2b3f8898f82dbe969ca30864c.tar.bz2 perlweeklychallenge-club-202f746409e348f2b3f8898f82dbe969ca30864c.zip | |
print sequence outside loop
Diffstat (limited to 'challenge-041')
| -rw-r--r-- | challenge-041/steven-wilson/perl5/ch-2.pl | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/challenge-041/steven-wilson/perl5/ch-2.pl b/challenge-041/steven-wilson/perl5/ch-2.pl index f63241f2b8..6cba0acc55 100644 --- a/challenge-041/steven-wilson/perl5/ch-2.pl +++ b/challenge-041/steven-wilson/perl5/ch-2.pl @@ -17,20 +17,14 @@ use strict; use warnings; my @leonardo_numbers = ( 1, 1 ); - -my $counter = 0; +my $counter = 2; while ( $counter < 20 ) { - if ( $counter < 2 ) { - print $leonardo_numbers[$counter], " "; - } - else { - $leonardo_numbers[$counter] = - $leonardo_numbers[ $counter - 1 ] + - $leonardo_numbers[ $counter - 2 ] + - 1; - print $leonardo_numbers[$counter], " "; - } + $leonardo_numbers[$counter] = + $leonardo_numbers[ $counter - 1 ] + + $leonardo_numbers[ $counter - 2 ] + + 1; $counter++; } -print "\n"; + +print join " ", @leonardo_numbers, "\n"; |