From ed319dba8944987253b02e25d4d475baf4428416 Mon Sep 17 00:00:00 2001 From: habere-et-dispertire Date: Sun, 19 Jun 2022 22:18:39 +0100 Subject: Update ch-2.raku --- challenge-169/habere-et-dispetire/raku/ch-2.raku | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/challenge-169/habere-et-dispetire/raku/ch-2.raku b/challenge-169/habere-et-dispetire/raku/ch-2.raku index b387e3905f..ceb611c61f 100644 --- a/challenge-169/habere-et-dispetire/raku/ch-2.raku +++ b/challenge-169/habere-et-dispetire/raku/ch-2.raku @@ -1,6 +1,7 @@ #! /usr/bin/env raku # Achilles numbers +# https://oeis.org/A052486 use Prime::Factor; @@ -8,11 +9,11 @@ sub is-achilles ($n) { 2 ≤ .min and 1 == [gcd] $_ - given @(values bag prime-factors $n) + given cache values bag prime-factors $n } -say (2 .. ∞) - # https://oeis.org/A052486 - .grep(&is-achilles) - .head(20) +(2 .. ∞) + .grep( &is-achilles ) + .head( 20 ) + .put -- cgit