From 07a2a041710606e36a7c6eeb8e7f9bab66c07418 Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Mon, 17 Jan 2022 17:51:24 -0500 Subject: Week 147 in BQN --- challenge-147/conor-hoekstra/bqn/ch-1.bqn | 5 +++++ challenge-147/conor-hoekstra/bqn/ch-2.bqn | 13 +++++++++++++ 2 files changed, 18 insertions(+) create mode 100644 challenge-147/conor-hoekstra/bqn/ch-1.bqn create mode 100644 challenge-147/conor-hoekstra/bqn/ch-2.bqn diff --git a/challenge-147/conor-hoekstra/bqn/ch-1.bqn b/challenge-147/conor-hoekstra/bqn/ch-1.bqn new file mode 100644 index 0000000000..31f11f3496 --- /dev/null +++ b/challenge-147/conor-hoekstra/bqn/ch-1.bqn @@ -0,0 +1,5 @@ +# Eban Numbers +⥊0‿30‿40‿50‿60 +⌜ 2‿4‿6 + +# Output +⟨ 2 4 6 32 34 36 42 44 46 52 54 56 62 64 66 ⟩ diff --git a/challenge-147/conor-hoekstra/bqn/ch-2.bqn b/challenge-147/conor-hoekstra/bqn/ch-2.bqn new file mode 100644 index 0000000000..ba8c41a414 --- /dev/null +++ b/challenge-147/conor-hoekstra/bqn/ch-2.bqn @@ -0,0 +1,13 @@ +CubeRoot ← { + 𝕩<0 ? -3√-𝕩 ; 3√𝕩 +} + +IsCardano ← { + a‿b‿c ← 𝕩 + 1=a(++○CubeRoot-)b×√c +} + +IsCardano¨⊸/⥊1+↕45‿45‿45 + +# Output +⟨ ⟨ 2 1 5 ⟩ ⟨ 8 3 21 ⟩ ⟨ 11 4 29 ⟩ ⟨ 14 5 37 ⟩ ⟨ 44 45 13 ⟩ ⟩ -- cgit