diff options
| author | Adam Russell <ac.russell@live.com> | 2022-04-10 11:49:16 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2022-04-10 11:49:16 -0400 |
| commit | 1f7f29d2e29e3d87aa552f2e4d4c15957078393b (patch) | |
| tree | 9e520987b8d9b8dae3153f19cdb98aca83a2348b /challenge-159 | |
| parent | 3be464fe24628fc2086a8c287e03f02c645c44fd (diff) | |
| download | perlweeklychallenge-club-1f7f29d2e29e3d87aa552f2e4d4c15957078393b.tar.gz perlweeklychallenge-club-1f7f29d2e29e3d87aa552f2e4d4c15957078393b.tar.bz2 perlweeklychallenge-club-1f7f29d2e29e3d87aa552f2e4d4c15957078393b.zip | |
fixed spelling
Diffstat (limited to 'challenge-159')
| -rw-r--r-- | challenge-159/adam-russell/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-159/adam-russell/perl/ch-2.pl b/challenge-159/adam-russell/perl/ch-2.pl index cc14581b7e..725bf897af 100644 --- a/challenge-159/adam-russell/perl/ch-2.pl +++ b/challenge-159/adam-russell/perl/ch-2.pl @@ -30,12 +30,12 @@ sub mertens{ return Re($mertens); } -sub mobius{ +sub moebius{ my($n) = @_; return 1 if $n == 1; return sprintf("%.f", (mertens($n) - mertens($n - 1))); } MAIN:{ - map {print mobius($_) . "\n"} (5, 10, 20); + map {print moebius($_) . "\n"} (5, 10, 20); }
\ No newline at end of file |