From d02f98e77e1b3858e4aa36479ec282e32d486359 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Wed, 22 Jun 2022 09:04:03 +0100 Subject: - Added guest contributions by Conor Hoekstra. --- challenge-170/conor-hoekstra/apl/ch-1.apl | 9 +++++++++ challenge-170/conor-hoekstra/ch-1.apl | 9 --------- challenge-170/conor-hoekstra/ch-1.ijs | 2 -- challenge-170/conor-hoekstra/j/ch-1.ijs | 2 ++ 4 files changed, 11 insertions(+), 11 deletions(-) create mode 100644 challenge-170/conor-hoekstra/apl/ch-1.apl delete mode 100644 challenge-170/conor-hoekstra/ch-1.apl delete mode 100644 challenge-170/conor-hoekstra/ch-1.ijs create mode 100644 challenge-170/conor-hoekstra/j/ch-1.ijs diff --git a/challenge-170/conor-hoekstra/apl/ch-1.apl b/challenge-170/conor-hoekstra/apl/ch-1.apl new file mode 100644 index 0000000000..eecdc58575 --- /dev/null +++ b/challenge-170/conor-hoekstra/apl/ch-1.apl @@ -0,0 +1,9 @@ + ⍝ Solution using dfns.pco + )load dfns + ×\1, pco ⍳9 +1 2 6 30 210 2310 30030 510510 9699690 223092870 + + ⍝ 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.apl b/challenge-170/conor-hoekstra/ch-1.apl deleted file mode 100644 index eecdc58575..0000000000 --- a/challenge-170/conor-hoekstra/ch-1.apl +++ /dev/null @@ -1,9 +0,0 @@ - ⍝ Solution using dfns.pco - )load dfns - ×\1, pco ⍳9 -1 2 6 30 210 2310 30030 510510 9699690 223092870 - - ⍝ 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 deleted file mode 100644 index 1881a52efe..0000000000 --- a/challenge-170/conor-hoekstra/ch-1.ijs +++ /dev/null @@ -1,2 +0,0 @@ - */\ 1, p: i.9 -1 2 6 30 210 2310 30030 510510 9699690 223092870 diff --git a/challenge-170/conor-hoekstra/j/ch-1.ijs b/challenge-170/conor-hoekstra/j/ch-1.ijs new file mode 100644 index 0000000000..1881a52efe --- /dev/null +++ b/challenge-170/conor-hoekstra/j/ch-1.ijs @@ -0,0 +1,2 @@ + */\ 1, p: i.9 +1 2 6 30 210 2310 30030 510510 9699690 223092870 -- cgit