diff options
| author | drbaggy <js5@sanger.ac.uk> | 2022-01-24 16:33:37 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2022-01-24 16:33:37 +0000 |
| commit | b5c9bfe42e52ff7446069a103ba0874d3a8c0361 (patch) | |
| tree | c6ab15d1cb70d5cb3ba932603c5d1e078cb53339 /challenge-149/james-smith | |
| parent | b94e67d7026dada1b8679732a2c55cf707f9e3ca (diff) | |
| download | perlweeklychallenge-club-b5c9bfe42e52ff7446069a103ba0874d3a8c0361.tar.gz perlweeklychallenge-club-b5c9bfe42e52ff7446069a103ba0874d3a8c0361.tar.bz2 perlweeklychallenge-club-b5c9bfe42e52ff7446069a103ba0874d3a8c0361.zip | |
rabbit
Diffstat (limited to 'challenge-149/james-smith')
| -rw-r--r-- | challenge-149/james-smith/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-149/james-smith/perl/ch-1.pl b/challenge-149/james-smith/perl/ch-1.pl index 7cd08cdc48..52c15c2a2d 100644 --- a/challenge-149/james-smith/perl/ch-1.pl +++ b/challenge-149/james-smith/perl/ch-1.pl @@ -19,6 +19,6 @@ for( my($n,$ds,$i,$fa,$fb,%fib)=(@ARGV?$ARGV[0]:20,0,0,1,1,0,1,1,1); ## Digit sum can only be 1 larger than current maximum ## fibonacci. ($fib{$fa+$fb},$fa,$fb)=(1,$fb,$fa+$fb) if $ds > $fb; - (say $i)**$n-- if exists $fib{$ds}; + $n--,say $i if exists $fib{$ds}; } |