aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorConor Hoekstra <codereport@outlook.com>2025-10-14 11:55:46 -0400
committerConor Hoekstra <codereport@outlook.com>2025-10-14 11:55:46 -0400
commitd72ebf3f9d608946fe8d76ab70e1fb85ea9bc918 (patch)
tree4d794386cac4716da43cc71c3e1dc985e2be65eb
parent7f402e9d0ada4506d06824aeb010ef78cef2e7c2 (diff)
downloadperlweeklychallenge-club-d72ebf3f9d608946fe8d76ab70e1fb85ea9bc918.tar.gz
perlweeklychallenge-club-d72ebf3f9d608946fe8d76ab70e1fb85ea9bc918.tar.bz2
perlweeklychallenge-club-d72ebf3f9d608946fe8d76ab70e1fb85ea9bc918.zip
:sparkles: Week 343 in BQN
-rw-r--r--challenge-343/conor-hoekstra/ch-1.bqn13
-rw-r--r--challenge-343/conor-hoekstra/ch-2.bqn13
2 files changed, 26 insertions, 0 deletions
diff --git a/challenge-343/conor-hoekstra/ch-1.bqn b/challenge-343/conor-hoekstra/ch-1.bqn
new file mode 100644
index 0000000000..59d9d18ba5
--- /dev/null
+++ b/challenge-343/conor-hoekstra/ch-1.bqn
@@ -0,0 +1,13 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/343-1.bqn
+
+u ⇐ •Import "/home/cph/bqn-test/test.bqn"
+
+ZeroFriend ← ⌊´·|0⊸-
+
+# Tests
+u.UnitTest (ZeroFriend⟨4, 2, -1, 3, -2⟩) ≡ 1
+u.UnitTest (ZeroFriend⟨-5, 5, -3, 3, -1, 1⟩) ≡ 1
+u.UnitTest (ZeroFriend⟨7, -3, 0, 2, -8⟩) ≡ 0
+u.UnitTest (ZeroFriend⟨-2, -5, -1, -8⟩) ≡ 1
+u.UnitTest (ZeroFriend⟨-2, 2, -4, 4, -1, 1⟩) ≡ 1
diff --git a/challenge-343/conor-hoekstra/ch-2.bqn b/challenge-343/conor-hoekstra/ch-2.bqn
new file mode 100644
index 0000000000..6fe67adb6b
--- /dev/null
+++ b/challenge-343/conor-hoekstra/ch-2.bqn
@@ -0,0 +1,13 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/343-2.bqn
+
+u ⇐ •Import "/home/cph/bqn-test/test.bqn"
+
+TeamChampion ← ⊑·/·⌈´⊸=+´˘
+
+# Tests
+u.UnitTest (TeamChampion >⟨⟨0, 1, 1⟩, ⟨0, 0, 1⟩, ⟨0, 0, 0⟩⟩) ≡ 0
+u.UnitTest (TeamChampion >⟨⟨0, 1, 0, 0⟩, ⟨0, 0, 0, 0⟩, ⟨1, 1, 0, 0⟩, ⟨1, 1, 1, 0⟩⟩) ≡ 3
+u.UnitTest (TeamChampion >⟨⟨0, 1, 0, 1⟩, ⟨0, 0, 1, 1⟩, ⟨1, 0, 0, 0⟩, ⟨0, 0, 1, 0⟩⟩) ≡ 0
+u.UnitTest (TeamChampion >⟨⟨0, 1, 1⟩, ⟨0, 0, 0⟩, ⟨0, 1, 0⟩⟩) ≡ 0
+u.UnitTest (TeamChampion >⟨⟨0, 0, 0, 0, 0⟩, ⟨1, 0, 0, 0, 0⟩, ⟨1, 1, 0, 1, 1⟩, ⟨1, 1, 0, 0, 0⟩, ⟨1, 1, 0, 1, 0⟩⟩) ≡ 2