From 89c7b56c0379e648b759a600b703ec6c334de748 Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Mon, 9 Sep 2024 16:35:15 -0400 Subject: :sparkles: PWC 286 in BQN --- challenge-286/conor-hoekstra/ch-1.bqn | 6 ++++++ challenge-286/conor-hoekstra/ch-2.bqn | 10 ++++++++++ 2 files changed, 16 insertions(+) create mode 100644 challenge-286/conor-hoekstra/ch-1.bqn create mode 100644 challenge-286/conor-hoekstra/ch-2.bqn 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 -- cgit