diff options
| author | 冯昶 <fengchang@novel-supertv.com> | 2022-01-03 22:43:36 +0800 |
|---|---|---|
| committer | 冯昶 <fengchang@novel-supertv.com> | 2022-01-03 22:43:36 +0800 |
| commit | df6d3f2c9ef7b308ba7acbf312ae2166feba871e (patch) | |
| tree | 67ab6d8f78db52bb6778e7b95b6801deebfdaf15 /challenge-144 | |
| parent | 839d7a80050e6cdcede7c9d658c3c35406671d7e (diff) | |
| parent | 41f8dae6667e8b4215b9f2507d7a2e14236890b9 (diff) | |
| download | perlweeklychallenge-club-df6d3f2c9ef7b308ba7acbf312ae2166feba871e.tar.gz perlweeklychallenge-club-df6d3f2c9ef7b308ba7acbf312ae2166feba871e.tar.bz2 perlweeklychallenge-club-df6d3f2c9ef7b308ba7acbf312ae2166feba871e.zip | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'challenge-144')
| -rw-r--r-- | challenge-144/conor-hoekstra/apl/ch-1.apl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-144/conor-hoekstra/apl/ch-1.apl b/challenge-144/conor-hoekstra/apl/ch-1.apl new file mode 100644 index 0000000000..782d89c9ce --- /dev/null +++ b/challenge-144/conor-hoekstra/apl/ch-1.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 |