diff options
| author | drbaggy <js5@sanger.ac.uk> | 2022-02-21 13:15:26 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2022-02-21 13:15:26 +0000 |
| commit | 606606494f2e723a592bb5b17742351db8aac92b (patch) | |
| tree | 8e4f16ad8dfa4efb7dc79b2af43131b8710e572b | |
| parent | f18aa90001a4e642af2eb49083f1145ae6b32f5d (diff) | |
| download | perlweeklychallenge-club-606606494f2e723a592bb5b17742351db8aac92b.tar.gz perlweeklychallenge-club-606606494f2e723a592bb5b17742351db8aac92b.tar.bz2 perlweeklychallenge-club-606606494f2e723a592bb5b17742351db8aac92b.zip | |
pushing changes
| -rw-r--r-- | challenge-153/james-smith/README.md | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-153/james-smith/README.md b/challenge-153/james-smith/README.md index 0064f5ec37..e661a275d5 100644 --- a/challenge-153/james-smith/README.md +++ b/challenge-153/james-smith/README.md @@ -74,9 +74,9 @@ We start with a pre-computed list of factorials as we only need the values for t my @FACT = (1); push @FACT, $_*$FACT[-1] foreach 1..9; -factorion($_) && say for 1..2_177_282; +is_factorion($_) && say for 1..2_177_282; -sub factorion { +sub is_factorion { my $t=0; $t+=$FACT[$_] for split //,$_[0]; $t==$_[0]; |