diff options
| author | habere-et-dispertire <github.eggs@neverbox.com> | 2022-07-03 14:29:42 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-07-03 14:29:42 +0100 |
| commit | 3f6dd3527a58e9acac61e6f83c73d7dfebf8a61f (patch) | |
| tree | 18c67f18b7f5694dc5d71f62056d15383011d787 | |
| parent | 0610add2a6a4d17bfd85f8e89edb73593431af51 (diff) | |
| download | perlweeklychallenge-club-3f6dd3527a58e9acac61e6f83c73d7dfebf8a61f.tar.gz perlweeklychallenge-club-3f6dd3527a58e9acac61e6f83c73d7dfebf8a61f.tar.bz2 perlweeklychallenge-club-3f6dd3527a58e9acac61e6f83c73d7dfebf8a61f.zip | |
[Raku] Abundant Numbers
| -rw-r--r-- | challenge-171/habere-et-dispetire/raku/ch-1.raku | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/challenge-171/habere-et-dispetire/raku/ch-1.raku b/challenge-171/habere-et-dispetire/raku/ch-1.raku new file mode 100644 index 0000000000..f4331bab67 --- /dev/null +++ b/challenge-171/habere-et-dispetire/raku/ch-1.raku @@ -0,0 +1,16 @@ +#! /usr/bin/env raku + +# Abundant Numbers + +use Prime::Factor; + +sub is-abundant ( $n ) { + + proper-divisors( $n ).sum > $n + +} + +(1 .. ∞) + .grep( &is-abundant ) # https://oeis.org/A005101 + .head( 20 ) + .put |