diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2022-03-07 14:24:25 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2022-03-07 14:24:25 +0000 |
| commit | 33b84dc224a47f0d8f56c9dd367b54aaa88c3017 (patch) | |
| tree | c8b1c66ac1fe8cfa41342ae0edf1ab7e9a4c5604 /challenge-155 | |
| parent | cc3b5c050d3beadab166e96532830770388567ae (diff) | |
| download | perlweeklychallenge-club-33b84dc224a47f0d8f56c9dd367b54aaa88c3017.tar.gz perlweeklychallenge-club-33b84dc224a47f0d8f56c9dd367b54aaa88c3017.tar.bz2 perlweeklychallenge-club-33b84dc224a47f0d8f56c9dd367b54aaa88c3017.zip | |
Challenge 155 Solutions (Raku)
Diffstat (limited to 'challenge-155')
| -rw-r--r-- | challenge-155/mark-anderson/raku/ch-1.raku | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/challenge-155/mark-anderson/raku/ch-1.raku b/challenge-155/mark-anderson/raku/ch-1.raku index 1cdf3bfaf5..89217b2837 100644 --- a/challenge-155/mark-anderson/raku/ch-1.raku +++ b/challenge-155/mark-anderson/raku/ch-1.raku @@ -1,6 +1,15 @@ #!/usr/bin/env raku -say squish sort (1..*).map(&fortunate).head(8); +my @fortunates; + +for 1..* +{ + my $f = fortunate($_); + @fortunates.push: $f unless $f (elem) @fortunates; + last if @fortunates == 8; +} + +say sort @fortunates; sub fortunate(\n) { |