From 563beb03b61fec154547e9b5eced7455891c8135 Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Sat, 23 Oct 2021 12:00:41 -0400 Subject: Week 1 & 83 --- challenge-001/conor-hoekstra/ch-01.apl | 5 +++++ challenge-083/conor-hoekstra/ch-01.apl | 5 +++++ challenge-083/conor-hoekstra/ch-02.apl | 9 +++++++++ 3 files changed, 19 insertions(+) create mode 100644 challenge-001/conor-hoekstra/ch-01.apl create mode 100644 challenge-083/conor-hoekstra/ch-01.apl create mode 100644 challenge-083/conor-hoekstra/ch-02.apl diff --git a/challenge-001/conor-hoekstra/ch-01.apl b/challenge-001/conor-hoekstra/ch-01.apl new file mode 100644 index 0000000000..b132a39731 --- /dev/null +++ b/challenge-001/conor-hoekstra/ch-01.apl @@ -0,0 +1,5 @@ +eReplace ← 'E'@('e'∘=) +eCount ← +/'e'∘= + +(eReplace,eCount) 'Perl Weekly Challenge' +⍝ PErl WEEkly ChallEngE 5 diff --git a/challenge-083/conor-hoekstra/ch-01.apl b/challenge-083/conor-hoekstra/ch-01.apl new file mode 100644 index 0000000000..516a42a16b --- /dev/null +++ b/challenge-083/conor-hoekstra/ch-01.apl @@ -0,0 +1,5 @@ +solution ← ≢∘∊¯1↓1↓' '(≠⊆⊢)⊢ + +⍝ Tests +solution 'The purpose of our lives is to be happy' ⍝ 23 +solution 'The Weekly Challenge' ⍝ 6 diff --git a/challenge-083/conor-hoekstra/ch-02.apl b/challenge-083/conor-hoekstra/ch-02.apl new file mode 100644 index 0000000000..f71f9c1cba --- /dev/null +++ b/challenge-083/conor-hoekstra/ch-02.apl @@ -0,0 +1,9 @@ + flipArray ← { + m ← ⍉2(⊥⍣¯1)⍳¯1+2*≢⍵ ⍝ mask + s ← +/x(×⍤1)1-2×m ⍝ sums + ⌊/(+/m)/⍨s=⌊/s/⍨0≤s + } + +⍝ Tests +flipArray 2 10 12 ⍝ 1 +flipArray 3 10 8 ⍝ 1 -- cgit