diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-01-02 11:00:02 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-01-02 11:00:02 +0000 |
| commit | e2f2f0613343e027f947facdc835557b835e5284 (patch) | |
| tree | 89ab768af9103ca3c3587272a62d0fc636851760 | |
| parent | a8888377b29e4bb93444a75ab74d5cafeeb19231 (diff) | |
| parent | 202f746409e348f2b3f8898f82dbe969ca30864c (diff) | |
| download | perlweeklychallenge-club-e2f2f0613343e027f947facdc835557b835e5284.tar.gz perlweeklychallenge-club-e2f2f0613343e027f947facdc835557b835e5284.tar.bz2 perlweeklychallenge-club-e2f2f0613343e027f947facdc835557b835e5284.zip | |
Merge pull request #1098 from oWnOIzRi/week41
print sequence outside loop
| -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"; |