diff options
| author | Conor Hoekstra <codereport@outlook.com> | 2021-12-28 17:27:24 -0500 |
|---|---|---|
| committer | Conor Hoekstra <codereport@outlook.com> | 2021-12-28 17:27:24 -0500 |
| commit | 4262968405be0dc7b75cecb42deaa6e059b36ccb (patch) | |
| tree | d202e0fe852b505fbabd35c61cbcc9c75d138a35 | |
| parent | 7df6b030c57d6548a8c9456dfeb7f1d17d51489a (diff) | |
| parent | 7d13afd3d3b2ba151d99a1d694d0906711ce9ead (diff) | |
| download | perlweeklychallenge-club-4262968405be0dc7b75cecb42deaa6e059b36ccb.tar.gz perlweeklychallenge-club-4262968405be0dc7b75cecb42deaa6e059b36ccb.tar.bz2 perlweeklychallenge-club-4262968405be0dc7b75cecb42deaa6e059b36ccb.zip | |
Merge branch 'master' of github.com:codereport/perlweeklychallenge-club
| -rw-r--r-- | challenge-144/conor-hoekstra/ch-01.apl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-144/conor-hoekstra/ch-01.apl b/challenge-144/conor-hoekstra/ch-01.apl new file mode 100644 index 0000000000..782d89c9ce --- /dev/null +++ b/challenge-144/conor-hoekstra/ch-01.apl @@ -0,0 +1,9 @@ +factors ← ∪⍳∨⊢ +isPrime ← 2≤≢∘factors + +⍝ Solution +2 17⍴{⍵/⍨((2 3∊⍨≢)∧∧/)¨(isPrime¨¯1↓factors)¨⍵} ⍳100 + +⍝ Output + 4 6 9 10 14 15 21 22 25 26 33 34 35 38 39 46 49 +51 55 57 58 62 65 69 74 77 82 85 86 87 91 93 94 95 |