aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorConor Hoekstra <codereport@outlook.com>2025-02-03 10:45:20 -0500
committerConor Hoekstra <codereport@outlook.com>2025-02-03 10:45:20 -0500
commit9fb8e975e76df4953281525f1af7a8ee5d7fa66f (patch)
treea22595abfc9b8e388f4ae7eca6ff1c9c8515b007
parent874f068f6c61fb234a2be113b1831a132507f491 (diff)
downloadperlweeklychallenge-club-9fb8e975e76df4953281525f1af7a8ee5d7fa66f.tar.gz
perlweeklychallenge-club-9fb8e975e76df4953281525f1af7a8ee5d7fa66f.tar.bz2
perlweeklychallenge-club-9fb8e975e76df4953281525f1af7a8ee5d7fa66f.zip
:sparkles: BQN solutions
-rw-r--r--challenge-307/conor-hoekstra/ch-1.bqn11
-rw-r--r--challenge-307/conor-hoekstra/ch-2.bqn11
2 files changed, 22 insertions, 0 deletions
diff --git a/challenge-307/conor-hoekstra/ch-1.bqn b/challenge-307/conor-hoekstra/ch-1.bqn
new file mode 100644
index 0000000000..fbb53fbe43
--- /dev/null
+++ b/challenge-307/conor-hoekstra/ch-1.bqn
@@ -0,0 +1,11 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/307-1.bqn
+
+u ⇐ •Import "/home/cph/bqn-test/test.bqn"
+
+CheckOrder ← /≠⟜∧
+
+# Tests
+u.UnitTest (CheckOrder ⟨5, 2, 4, 3, 1⟩) ≡ ⟨0, 2, 3, 4⟩
+u.UnitTest (CheckOrder ⟨1, 2, 1, 1, 3⟩) ≡ ⟨1, 3⟩
+u.UnitTest (CheckOrder ⟨3, 1, 3, 2, 3⟩) ≡ ⟨0, 1, 3⟩
diff --git a/challenge-307/conor-hoekstra/ch-2.bqn b/challenge-307/conor-hoekstra/ch-2.bqn
new file mode 100644
index 0000000000..ab66a80922
--- /dev/null
+++ b/challenge-307/conor-hoekstra/ch-2.bqn
@@ -0,0 +1,11 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/307-2.bqn
+
+u ⇐ •Import "/home/cph/bqn-test/test.bqn"
+fn ⇐ •Import "/home/cph/bqn-code/lib/fun.bqn"
+
+FindAnagrams ← 1+·+´·≢¨fn._AdjMap∧¨
+
+# Tests
+u.UnitTest (FindAnagrams ⟨"acca", "dog", "god", "perl", "repl"⟩) ≡ 3
+u.UnitTest (FindAnagrams ⟨"abba", "baba", "aabb", "ab", "ab"⟩) ≡ 2