diff options
| -rw-r--r-- | challenge-307/conor-hoekstra/ch-1.bqn | 11 | ||||
| -rw-r--r-- | challenge-307/conor-hoekstra/ch-2.bqn | 11 |
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 |