aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorConor Hoekstra <codereport@outlook.com>2023-01-29 17:37:10 -0500
committerConor Hoekstra <codereport@outlook.com>2023-01-29 17:37:10 -0500
commit31f63b89184020a149fc1f98cfa6fccf99352950 (patch)
treee40d4cd54167e67069666ae236afca807e581be1
parent1686f2a954511e1a884e65c55240121448900d87 (diff)
downloadperlweeklychallenge-club-31f63b89184020a149fc1f98cfa6fccf99352950.tar.gz
perlweeklychallenge-club-31f63b89184020a149fc1f98cfa6fccf99352950.tar.bz2
perlweeklychallenge-club-31f63b89184020a149fc1f98cfa6fccf99352950.zip
Week 198 in BQN, APL and J
-rw-r--r--challenge-198/conor-hoekstra/ch-01.apl4
-rw-r--r--challenge-198/conor-hoekstra/ch-01.bqn4
-rw-r--r--challenge-198/conor-hoekstra/ch-02.ijs7
3 files changed, 15 insertions, 0 deletions
diff --git a/challenge-198/conor-hoekstra/ch-01.apl b/challenge-198/conor-hoekstra/ch-01.apl
new file mode 100644
index 0000000000..df45064f5f
--- /dev/null
+++ b/challenge-198/conor-hoekstra/ch-01.apl
@@ -0,0 +1,4 @@
+MaxGap ← {+/(⌈/=⊢)2-/(⊂⍤⍒⌷⊢)⍵}
+
+⍝ Tests
+MaxGap 2 5 8 1 ⍝ 2
diff --git a/challenge-198/conor-hoekstra/ch-01.bqn b/challenge-198/conor-hoekstra/ch-01.bqn
new file mode 100644
index 0000000000..2b9228ff19
--- /dev/null
+++ b/challenge-198/conor-hoekstra/ch-01.bqn
@@ -0,0 +1,4 @@
+MaxGap ← {+´⌈´⊸=-´˘2↕∨𝕩}
+
+# Tests
+MaxGap 2‿5‿8‿1 # 2
diff --git a/challenge-198/conor-hoekstra/ch-02.ijs b/challenge-198/conor-hoekstra/ch-02.ijs
new file mode 100644
index 0000000000..028a880d8f
--- /dev/null
+++ b/challenge-198/conor-hoekstra/ch-02.ijs
@@ -0,0 +1,7 @@
+PrimeCount =. {{ +/1 p: i.y }}
+
+NB. Tests
+PrimeCount 10 NB. 4
+PrimeCount 15 NB. 6
+PrimeCount 1 NB. 0
+PrimeCount 25 NB. 9