diff options
| author | Conor Hoekstra <codereport@outlook.com> | 2022-06-21 21:06:13 -0400 |
|---|---|---|
| committer | Conor Hoekstra <codereport@outlook.com> | 2022-06-21 21:06:13 -0400 |
| commit | 628b84fd9140a48057b8c9cb7d84485c559e8ae8 (patch) | |
| tree | 59c9b44f04993b332ce52310d88bccf3a99dbdc9 | |
| parent | bdbbe60375967d5982c01c084a42f17c904dd714 (diff) | |
| download | perlweeklychallenge-club-628b84fd9140a48057b8c9cb7d84485c559e8ae8.tar.gz perlweeklychallenge-club-628b84fd9140a48057b8c9cb7d84485c559e8ae8.tar.bz2 perlweeklychallenge-club-628b84fd9140a48057b8c9cb7d84485c559e8ae8.zip | |
Week 170 Ch 1 in APL and J
| -rw-r--r-- | challenge-170/conor-hoekstra/ch-1.apl | 9 | ||||
| -rw-r--r-- | challenge-170/conor-hoekstra/ch-1.ijs | 2 |
2 files changed, 11 insertions, 0 deletions
diff --git a/challenge-170/conor-hoekstra/ch-1.apl b/challenge-170/conor-hoekstra/ch-1.apl new file mode 100644 index 0000000000..2ec18a51f9 --- /dev/null +++ b/challenge-170/conor-hoekstra/ch-1.apl @@ -0,0 +1,9 @@ + ⍝ Solution using dfns.pco + )load dfns + ×\1, pco ⍳10 +1 2 6 30 210 2310 30030 510510 9699690 223092870 6469693230 + + ⍝ Solution not using dfns.pco + isPrime ← 2≥(≢∘∪⍳∨⊢) + ×\(isPrime¨⊢⍤/⊢) ⍳25 +1 2 6 30 210 2310 30030 510510 9699690 223092870 diff --git a/challenge-170/conor-hoekstra/ch-1.ijs b/challenge-170/conor-hoekstra/ch-1.ijs new file mode 100644 index 0000000000..1881a52efe --- /dev/null +++ b/challenge-170/conor-hoekstra/ch-1.ijs @@ -0,0 +1,2 @@ + */\ 1, p: i.9 +1 2 6 30 210 2310 30030 510510 9699690 223092870 |