From 31f63b89184020a149fc1f98cfa6fccf99352950 Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Sun, 29 Jan 2023 17:37:10 -0500 Subject: Week 198 in BQN, APL and J --- challenge-198/conor-hoekstra/ch-01.apl | 4 ++++ challenge-198/conor-hoekstra/ch-01.bqn | 4 ++++ challenge-198/conor-hoekstra/ch-02.ijs | 7 +++++++ 3 files changed, 15 insertions(+) create mode 100644 challenge-198/conor-hoekstra/ch-01.apl create mode 100644 challenge-198/conor-hoekstra/ch-01.bqn create mode 100644 challenge-198/conor-hoekstra/ch-02.ijs 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 -- cgit