aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorConor Hoekstra <codereport@outlook.com>2025-06-25 14:56:31 -0400
committerConor Hoekstra <codereport@outlook.com>2025-06-25 14:56:31 -0400
commit1801186c69893ac5949d8f2a46fbcb4fa92f5f92 (patch)
tree3b266312b137ad64e466f1bcd0d54709b23e7c4c
parent297818719258717c3e144484cb57ffc13d5e0649 (diff)
downloadperlweeklychallenge-club-1801186c69893ac5949d8f2a46fbcb4fa92f5f92.tar.gz
perlweeklychallenge-club-1801186c69893ac5949d8f2a46fbcb4fa92f5f92.tar.bz2
perlweeklychallenge-club-1801186c69893ac5949d8f2a46fbcb4fa92f5f92.zip
:sparkles: Week 325-27 in BQN
-rw-r--r--challenge-325/conor-hoekstra/ch-1.bqn11
-rw-r--r--challenge-325/conor-hoekstra/ch-2.bqn12
-rw-r--r--challenge-326/conor-hoekstra/ch-1.bqn16
-rw-r--r--challenge-326/conor-hoekstra/ch-2.bqn15
-rw-r--r--challenge-327/conor-hoekstra/ch-1.bqn11
-rw-r--r--challenge-327/conor-hoekstra/ch-2.bqn12
6 files changed, 77 insertions, 0 deletions
diff --git a/challenge-325/conor-hoekstra/ch-1.bqn b/challenge-325/conor-hoekstra/ch-1.bqn
new file mode 100644
index 0000000000..6f90bf0bb6
--- /dev/null
+++ b/challenge-325/conor-hoekstra/ch-1.bqn
@@ -0,0 +1,11 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/325-1.bqn
+
+u ⇐ •Import "/home/cph/bqn-test/test.bqn"
+
+Mco ← ⌈´(+×⊢)`
+
+# Tests
+u.UnitTest (Mco 0‿1‿1‿0‿1‿1‿1) ≡ 3
+u.UnitTest (Mco 0‿0‿0‿0) ≡ 0
+u.UnitTest (Mco 1‿0‿1‿0‿1‿1) ≡ 2
diff --git a/challenge-325/conor-hoekstra/ch-2.bqn b/challenge-325/conor-hoekstra/ch-2.bqn
new file mode 100644
index 0000000000..d0b28e2e1c
--- /dev/null
+++ b/challenge-325/conor-hoekstra/ch-2.bqn
@@ -0,0 +1,12 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/325-2.bqn
+
+u ⇐ •Import "/home/cph/bqn-test/test.bqn"
+
+Price ← ⊑·0⊸≤⊸/⊑(-∾⊣)1⊸↓
+FinalPrice ← Price¨¯1↓↓
+
+# Tests
+u.UnitTest (FinalPrice 8‿4‿6‿2‿3) ≡ 4‿2‿4‿2‿3
+u.UnitTest (FinalPrice 1‿2‿3‿4‿5) ≡ 1‿2‿3‿4‿5
+u.UnitTest (FinalPrice 7‿1‿1‿5) ≡ 6‿0‿1‿5
diff --git a/challenge-326/conor-hoekstra/ch-1.bqn b/challenge-326/conor-hoekstra/ch-1.bqn
new file mode 100644
index 0000000000..82bf18819c
--- /dev/null
+++ b/challenge-326/conor-hoekstra/ch-1.bqn
@@ -0,0 +1,16 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/326-1.bqn
+
+u ⇐ •Import "/home/cph/bqn-test/test.bqn"
+s ⇐ •Import "/home/cph/bqn-code/lib/string.bqn"
+
+days ← 31‿28‿31‿30‿31‿30‿31‿31‿30‿31‿30‿31
+DayOfYear ← {
+ m‿d ← •BQN¨1↓'-'⊸s.Split𝕩
+ d++´days↑˜m-1
+}
+
+# Tests
+u.UnitTest (DayOfYear "2025-02-02") ≡ 33
+u.UnitTest (DayOfYear "2025-04-10") ≡ 100
+u.UnitTest (DayOfYear "2025-09-07") ≡ 250
diff --git a/challenge-326/conor-hoekstra/ch-2.bqn b/challenge-326/conor-hoekstra/ch-2.bqn
new file mode 100644
index 0000000000..6c5d6bae36
--- /dev/null
+++ b/challenge-326/conor-hoekstra/ch-2.bqn
@@ -0,0 +1,15 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/326-2.bqn
+
+u ⇐ •Import "/home/cph/bqn-test/test.bqn"
+
+Decompress ← { ∾⥊´¨<˘2‿∘⥊𝕩 } # Explicit
+Decompress2 ← ∾·⥊´¨·<˘2‿∘⥊⊢ # Tacit
+
+# Tests
+u.UnitTest (Decompress 1‿3‿2‿4) ≡ 3‿4‿4
+u.UnitTest (Decompress 1‿1‿2‿2) ≡ 1‿2‿2
+u.UnitTest (Decompress 3‿1‿3‿2) ≡ 1‿1‿1‿2‿2‿2
+u.UnitTest (Decompress2 1‿3‿2‿4) ≡ 3‿4‿4
+u.UnitTest (Decompress2 1‿1‿2‿2) ≡ 1‿2‿2
+u.UnitTest (Decompress2 3‿1‿3‿2) ≡ 1‿1‿1‿2‿2‿2
diff --git a/challenge-327/conor-hoekstra/ch-1.bqn b/challenge-327/conor-hoekstra/ch-1.bqn
new file mode 100644
index 0000000000..7eadad6fa0
--- /dev/null
+++ b/challenge-327/conor-hoekstra/ch-1.bqn
@@ -0,0 +1,11 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/327-1.bqn
+
+u ⇐ •Import "/home/cph/bqn-test/test.bqn"
+
+Missing ← (1+↕∘≠)⊸(¬∘∊/⊣)
+
+# Tests
+u.UnitTest (Missing 1‿2‿1‿3‿2‿5) ≡ 4‿6
+u.UnitTest (Missing 1‿1‿1) ≡ 2‿3
+u.UnitTest (Missing 2‿2‿1) ≡ ⋈3
diff --git a/challenge-327/conor-hoekstra/ch-2.bqn b/challenge-327/conor-hoekstra/ch-2.bqn
new file mode 100644
index 0000000000..49a89bff11
--- /dev/null
+++ b/challenge-327/conor-hoekstra/ch-2.bqn
@@ -0,0 +1,12 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/327-2.bqn
+
+u ⇐ •Import "/home/cph/bqn-test/test.bqn"
+fn ⇐ •Import "/home/cph/bqn-code/lib/fun.bqn"
+
+MAD ← (⌊´⊸=|∘-´¨)⊸/fn.Pairs
+
+# Tests
+u.UnitTest (MAD 4‿1‿2‿3) ≡ ⟨⟨4,3⟩,⟨1,2⟩,⟨2,3⟩⟩
+u.UnitTest (MAD 1‿3‿7‿11‿15) ≡ ⟨⟨1,3⟩⟩
+u.UnitTest (MAD 1‿5‿3‿8) ≡ ⟨⟨1,3⟩,⟨5,3⟩⟩