diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-02-03 16:49:55 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-02-03 16:49:55 +0000 |
| commit | dc0216b64aa28734ee5155213c3642d8c807e445 (patch) | |
| tree | 2237419b4fd25241046b4075886001c170a4cb5b | |
| parent | 874f068f6c61fb234a2be113b1831a132507f491 (diff) | |
| parent | 2aab0b5a8aa0d49c7f2a2fd5564833c59def3b8b (diff) | |
| download | perlweeklychallenge-club-dc0216b64aa28734ee5155213c3642d8c807e445.tar.gz perlweeklychallenge-club-dc0216b64aa28734ee5155213c3642d8c807e445.tar.bz2 perlweeklychallenge-club-dc0216b64aa28734ee5155213c3642d8c807e445.zip | |
Merge pull request #11526 from codereport/master
:sparkles: BQN, Kap and Uiua Solutions
| -rw-r--r-- | challenge-307/conor-hoekstra/ch-1.bqn | 11 | ||||
| -rw-r--r-- | challenge-307/conor-hoekstra/ch-1.kap | 6 | ||||
| -rw-r--r-- | challenge-307/conor-hoekstra/ch-1.ua | 6 | ||||
| -rw-r--r-- | challenge-307/conor-hoekstra/ch-2.bqn | 11 | ||||
| -rw-r--r-- | challenge-307/conor-hoekstra/ch-2.kap | 5 | ||||
| -rw-r--r-- | challenge-307/conor-hoekstra/ch-2.ua | 5 |
6 files changed, 44 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-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-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.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 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 diff --git a/challenge-307/conor-hoekstra/ch-2.ua b/challenge-307/conor-hoekstra/ch-2.ua new file mode 100644 index 0000000000..0c2fc94b4e --- /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 |