aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorConor Hoekstra <codereport@outlook.com>2024-09-09 16:35:15 -0400
committerConor Hoekstra <codereport@outlook.com>2024-09-09 16:35:39 -0400
commit89c7b56c0379e648b759a600b703ec6c334de748 (patch)
tree3d11d047d7db6cccbbb4973bf07f760d3e28a86a
parent2f3cf4f7cfa808d89e183b77f61dac80db4ab751 (diff)
downloadperlweeklychallenge-club-89c7b56c0379e648b759a600b703ec6c334de748.tar.gz
perlweeklychallenge-club-89c7b56c0379e648b759a600b703ec6c334de748.tar.bz2
perlweeklychallenge-club-89c7b56c0379e648b759a600b703ec6c334de748.zip
:sparkles: PWC 286 in BQN
-rw-r--r--challenge-286/conor-hoekstra/ch-1.bqn6
-rw-r--r--challenge-286/conor-hoekstra/ch-2.bqn10
2 files changed, 16 insertions, 0 deletions
diff --git a/challenge-286/conor-hoekstra/ch-1.bqn b/challenge-286/conor-hoekstra/ch-1.bqn
new file mode 100644
index 0000000000..e4b86c7de8
--- /dev/null
+++ b/challenge-286/conor-hoekstra/ch-1.bqn
@@ -0,0 +1,6 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/286-1.bqn
+
+⟨Split⟩ ⇐ •Import "../lib/string.bqn"
+
+•Out (•rand.Range∘≠⊸⊑) ' ' Split ∾´ •file.Lines "286-1.bqn"
diff --git a/challenge-286/conor-hoekstra/ch-2.bqn b/challenge-286/conor-hoekstra/ch-2.bqn
new file mode 100644
index 0000000000..d572e07af0
--- /dev/null
+++ b/challenge-286/conor-hoekstra/ch-2.bqn
@@ -0,0 +1,10 @@
+# For up to date code:
+# https://github.com/codereport/bqn-code/blob/main/pwc/286-2.bqn
+
+OrderGame ← { 1=≠𝕩 ? ⊑𝕩 ; 𝕊 •Show ((2÷˜≠𝕩)⥊⟨⌊´,⌈´⟩) {𝕎𝕩}¨ <˘∘‿2⥊𝕩 }
+
+# Tests
+# Example 1
+•Show OrderGame ⟨2, 1, 4, 5, 6, 3, 0, 2⟩ # 1
+•Show OrderGame ⟨0, 5, 3, 2⟩ # 0
+•Show OrderGame ⟨9, 2, 1, 4, 5, 6, 0, 7, 3, 1, 3, 5, 7, 9, 0, 8⟩ # 2