From 82c8a19c7a4bc6ddd530e91de51827289bcd6b0a Mon Sep 17 00:00:00 2001 From: Mark <53903062+andemark@users.noreply.github.com> Date: Mon, 28 Mar 2022 08:37:24 +0000 Subject: ch-2.raku --- challenge-157/mark-anderson/raku/ch-2.raku | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/challenge-157/mark-anderson/raku/ch-2.raku b/challenge-157/mark-anderson/raku/ch-2.raku index 2ca1e675e1..5f3405f693 100644 --- a/challenge-157/mark-anderson/raku/ch-2.raku +++ b/challenge-157/mark-anderson/raku/ch-2.raku @@ -29,15 +29,14 @@ sub Brazilian(\n) when ^7 { False } when 121 { True } when not .is-prime { not .sqrt.is-prime } - default { my \b = .sqrt.floor; - return True if .item == [+] 1, b, b², b³...b**.log(b); + return True if .item == [+] 1, b, b², b³...n; for 2..e**(.log/4) -> \b { - return True if .item == [+] 1, b, b², b³...b**.log(b) + return True if .item == [+] 1, b, b², b³...n; } } } -- cgit