From 156e3186ef5b8f929e3589f8469463132e0fa996 Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Mon, 9 Sep 2024 13:43:40 -0400 Subject: :sparkles: PWC 285-1 in BQN --- challenge-285/conor-hoekstra/ch-1.bqn | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 challenge-285/conor-hoekstra/ch-1.bqn diff --git a/challenge-285/conor-hoekstra/ch-1.bqn b/challenge-285/conor-hoekstra/ch-1.bqn new file mode 100644 index 0000000000..f2e7cd2fd3 --- /dev/null +++ b/challenge-285/conor-hoekstra/ch-1.bqn @@ -0,0 +1,14 @@ +# For up to date code: +# https://github.com/codereport/bqn-code/blob/main/pwc/285-1.bqn + +DeadEnds ← ⊢´¨(¬∘∊/⊣)⊑¨ + # (↑¨↓¨)«~»(↑¨) - Kap (original) + # ⊢/¨«~»(↑¨) - Kap + # ⊢/¨~⊃¨ - Dyalog APL + # {⊃~/⌽↓⍉↑⍵} - Dyalog APL (Alternative) + # Ṫ€ḟḢ€ - Jelly + # ↓¨~↑¨ - Hypothetical APL + +# Tests +•Show DeadEnds ⟨⟨"B","C"⟩, ⟨"D","B"⟩, ⟨"C","A"⟩⟩ # "A" +•Show DeadEnds ⟨⟨"A","Z"⟩⟩ # "Z" -- cgit 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