From 9fb8e975e76df4953281525f1af7a8ee5d7fa66f Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Mon, 3 Feb 2025 10:45:20 -0500 Subject: :sparkles: BQN solutions --- challenge-307/conor-hoekstra/ch-1.bqn | 11 +++++++++++ challenge-307/conor-hoekstra/ch-2.bqn | 11 +++++++++++ 2 files changed, 22 insertions(+) create mode 100644 challenge-307/conor-hoekstra/ch-1.bqn create mode 100644 challenge-307/conor-hoekstra/ch-2.bqn 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 -- cgit From 3a8c35b43a8364f72388f4b9943074036bc26178 Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Mon, 3 Feb 2025 11:09:17 -0500 Subject: :sparkles: Uiua solutions --- challenge-307/conor-hoekstra/ch-1.ua | 6 ++++++ challenge-307/conor-hoekstra/ch-2.ua | 5 +++++ 2 files changed, 11 insertions(+) create mode 100644 challenge-307/conor-hoekstra/ch-1.ua create mode 100644 challenge-307/conor-hoekstra/ch-2.ua diff --git a/challenge-307/conor-hoekstra/ch-1.ua b/challenge-307/conor-hoekstra/ch-1.ua new file mode 100644 index 0000000000..b42d467247 --- /dev/null +++ b/challenge-307/conor-hoekstra/ch-1.ua @@ -0,0 +1,6 @@ +CheckOrder ← ⊚≠⍆. + +# Tests +CheckOrder [5 2 4 3 1] # [0 2 3 4] +CheckOrder [1 2 1 1 3] # [1 3] +CheckOrder [3 1 3 2 3] # [0 1 3] diff --git a/challenge-307/conor-hoekstra/ch-2.ua b/challenge-307/conor-hoekstra/ch-2.ua new file mode 100644 index 0000000000..8f70135b35 --- /dev/null +++ b/challenge-307/conor-hoekstra/ch-2.ua @@ -0,0 +1,5 @@ +FindAnagrams ← +1/+¬⧈≍∵⍚⍆ + +# Tests +FindAnagrams {"acca" "dog" "god" "perl" "repl"} # 3 +FindAnagrams {"abba" "baba" "aabb" "ab" "ab"} # 2 -- cgit From 5d9584a7ecef9e3d7fe9282433e43f271b3e05df Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Mon, 3 Feb 2025 11:19:50 -0500 Subject: :recycle: small uiua improvement --- challenge-307/conor-hoekstra/ch-2.ua | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-307/conor-hoekstra/ch-2.ua b/challenge-307/conor-hoekstra/ch-2.ua index 8f70135b35..0c2fc94b4e 100644 --- a/challenge-307/conor-hoekstra/ch-2.ua +++ b/challenge-307/conor-hoekstra/ch-2.ua @@ -1,4 +1,4 @@ -FindAnagrams ← +1/+¬⧈≍∵⍚⍆ +FindAnagrams ← +1/+¬⧈≍⍚⍆ # Tests FindAnagrams {"acca" "dog" "god" "perl" "repl"} # 3 -- cgit From 2aab0b5a8aa0d49c7f2a2fd5564833c59def3b8b Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Mon, 3 Feb 2025 11:20:22 -0500 Subject: :sparkles: Kap solutions --- challenge-307/conor-hoekstra/ch-1.kap | 6 ++++++ challenge-307/conor-hoekstra/ch-2.kap | 5 +++++ 2 files changed, 11 insertions(+) create mode 100644 challenge-307/conor-hoekstra/ch-1.kap create mode 100644 challenge-307/conor-hoekstra/ch-2.kap diff --git a/challenge-307/conor-hoekstra/ch-1.kap b/challenge-307/conor-hoekstra/ch-1.kap new file mode 100644 index 0000000000..b120cff7fa --- /dev/null +++ b/challenge-307/conor-hoekstra/ch-1.kap @@ -0,0 +1,6 @@ +CheckOrder ⇐ ⍸≠∘∧ + +⍝ Tests +CheckOrder 5 2 4 3 1 ⍝ 0 2 3 4 +CheckOrder 1 2 1 1 3 ⍝ 1 3 +CheckOrder 3 1 3 2 3 ⍝ 0 1 3 diff --git a/challenge-307/conor-hoekstra/ch-2.kap b/challenge-307/conor-hoekstra/ch-2.kap new file mode 100644 index 0000000000..deda01311a --- /dev/null +++ b/challenge-307/conor-hoekstra/ch-2.kap @@ -0,0 +1,5 @@ +FindAnagrams ⇐ 1++/2≢/∧¨ + +⍝ Tests +FindAnagrams "acca" "dog" "god" "perl" "repl" ⍝ 3 +FindAnagrams "abba" "baba" "aabb" "ab" "ab" ⍝ 2 -- cgit