diff options
| -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 |