From c975ab6446e1bc054d3ccdc4a3a4cdbdb9f5078a Mon Sep 17 00:00:00 2001 From: Mark A Date: Tue, 23 Feb 2021 10:10:39 -0700 Subject: Challenge 101 Solutions (Raku) --- challenge-101/mark-anderson/raku/ch-1.raku | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/challenge-101/mark-anderson/raku/ch-1.raku b/challenge-101/mark-anderson/raku/ch-1.raku index 69d0f1d789..a83ad343c5 100644 --- a/challenge-101/mark-anderson/raku/ch-1.raku +++ b/challenge-101/mark-anderson/raku/ch-1.raku @@ -39,8 +39,8 @@ is-deeply pack-a-spiral(1..144), sub pack-a-spiral(@list is copy) { - my $factor = .tail given gather take +@list div $_ if +@list %% $_ - for 1..sqrt(+@list); + my $factor = .tail given map { if +@list %% $_ { +@list div $_ }}, + 1..sqrt(+@list); my @matrix = @list.keys.rotor($factor).map(*.Array); my @keys; -- cgit