diff options
| author | Conor Hoekstra <codereport@outlook.com> | 2021-12-28 17:11:29 -0500 |
|---|---|---|
| committer | Conor Hoekstra <codereport@outlook.com> | 2021-12-28 17:11:29 -0500 |
| commit | 6e08a3189797e123107f7e6944f43ff5d9cab9bd (patch) | |
| tree | 85796164b1765de8d6a4a8c81c2be9657324f871 | |
| parent | c804b128cf740d95b244cd3fe15e86d0820ab51e (diff) | |
| download | perlweeklychallenge-club-6e08a3189797e123107f7e6944f43ff5d9cab9bd.tar.gz perlweeklychallenge-club-6e08a3189797e123107f7e6944f43ff5d9cab9bd.tar.bz2 perlweeklychallenge-club-6e08a3189797e123107f7e6944f43ff5d9cab9bd.zip | |
Week 144 Solution in APL
| -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 |