:sparkles: Week 323 in BQN

2 files changed, 32 insertions, 0 deletions

diff --git a/challenge-323/conor-hoekstra/ch-1.bqn b/challenge-323/conor-hoekstra/ch-1.bqn
new file mode 100644
index 0000000000..92b237f6e6
--- /dev/null
+++ b/challenge-323/conor-hoekstra/ch-1.bqn
@@ -0,0 +1,11 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/323-1.bqn
+
+u ⇐ •Import "/home/cph/bqn-test/test.bqn"
+
+IncrementDecrement ← +´·-˝"+-"=⌜⊑∘∧¨
+
+# Tests
+u.UnitTest (IncrementDecrement ⟨"--x", "x++", "x++"⟩)        ≡ 1
+u.UnitTest (IncrementDecrement ⟨"x++", "++x", "x++"⟩)        ≡ 3
+u.UnitTest (IncrementDecrement ⟨"x++", "++x", "--x", "x--"⟩) ≡ 0
diff --git a/challenge-323/conor-hoekstra/ch-2.bqn b/challenge-323/conor-hoekstra/ch-2.bqn
new file mode 100644
index 0000000000..ce480bc8b6
--- /dev/null
+++ b/challenge-323/conor-hoekstra/ch-2.bqn
@@ -0,0 +1,21 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/323-2.bqn
+
+u  ⇐ •Import "/home/cph/bqn-test/test.bqn"
+fn ⇐ •Import "/home/cph/bqn-code/lib/fun.bqn"
+
+TaxAmount ← {
+    b ← fn.Deltas 0∾𝕨⌊⊑¨𝕩 # brackets
+    t ← 100÷˜⊢´¨𝕩         # tax rates
+    +´b×t
+}
+
+TaxAmount2 ← +´(100÷˜⊢´¨)∘⊢×(fn.Deltas 0∾⌊⟜⊑¨)
+
+# Tests
+u.UnitTest (10 TaxAmount  ⟨3‿50, 7‿10, 12‿25⟩) ≡ 2.65
+u.UnitTest ( 2 TaxAmount  ⟨1‿0, 4‿25, 5‿50⟩)   ≡ 0.25
+u.UnitTest ( 0 TaxAmount  ⟨2‿50⟩)              ≡ 0
+u.UnitTest (10 TaxAmount2 ⟨3‿50, 7‿10, 12‿25⟩) ≡ 2.65
+u.UnitTest ( 2 TaxAmount2 ⟨1‿0, 4‿25, 5‿50⟩)   ≡ 0.25
+u.UnitTest ( 0 TaxAmount2 ⟨2‿50⟩)              ≡ 0