diff options
| author | Conor Hoekstra <codereport@outlook.com> | 2021-10-23 12:00:41 -0400 |
|---|---|---|
| committer | Conor Hoekstra <codereport@outlook.com> | 2021-10-23 12:00:41 -0400 |
| commit | 563beb03b61fec154547e9b5eced7455891c8135 (patch) | |
| tree | b312fb8ccb89b126149f22bbeb7202de69083df0 | |
| parent | d70091ac8bc2b89a6244990f840a91c9f8979527 (diff) | |
| download | perlweeklychallenge-club-563beb03b61fec154547e9b5eced7455891c8135.tar.gz perlweeklychallenge-club-563beb03b61fec154547e9b5eced7455891c8135.tar.bz2 perlweeklychallenge-club-563beb03b61fec154547e9b5eced7455891c8135.zip | |
Week 1 & 83
| -rw-r--r-- | challenge-001/conor-hoekstra/ch-01.apl | 5 | ||||
| -rw-r--r-- | challenge-083/conor-hoekstra/ch-01.apl | 5 | ||||
| -rw-r--r-- | challenge-083/conor-hoekstra/ch-02.apl | 9 |
3 files changed, 19 insertions, 0 deletions
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 |