From cfeb8d055323aa743b34d3819bbe6fb244640178 Mon Sep 17 00:00:00 2001
From: Conor Hoekstra <codereport@outlook.com>
Date: Wed, 13 Jul 2022 08:53:44 -0400
Subject: Week 173 in APL & BQN

---
 challenge-173/conor-hoekstra/ch-1.apl |  4 ++++
 challenge-173/conor-hoekstra/ch-2.apl | 17 +++++++++++++++++
 challenge-173/conor-hoekstra/ch-2.bqn |  3 +++
 3 files changed, 24 insertions(+)
 create mode 100644 challenge-173/conor-hoekstra/ch-1.apl
 create mode 100644 challenge-173/conor-hoekstra/ch-2.apl
 create mode 100644 challenge-173/conor-hoekstra/ch-2.bqn

diff --git a/challenge-173/conor-hoekstra/ch-1.apl b/challenge-173/conor-hoekstra/ch-1.apl
new file mode 100644
index 0000000000..6119b85d5f
--- /dev/null
+++ b/challenge-173/conor-hoekstra/ch-1.apl
@@ -0,0 +1,4 @@
+estheticNumber ← {1=∧/|2-/⍎¨⍕⍵}
+
+⍝ Tests      
+estheticNumber ¨ 5456 120
diff --git a/challenge-173/conor-hoekstra/ch-2.apl b/challenge-173/conor-hoekstra/ch-2.apl
new file mode 100644
index 0000000000..169faeff24
--- /dev/null
+++ b/challenge-173/conor-hoekstra/ch-2.apl
@@ -0,0 +1,17 @@
+⍝ Sylvester's Sequence
+      (⊢,1+×/)⍣9⊢2
+2 3 7 43 1807 3263443 1.065005695E13 1.134237131E26 1.286493868E52 1.655066473E104
+
+⍝ Formatted
+      ⍪⍕¨(⊢,1+×/)⍣9⊢2
+ 2               
+ 3               
+ 7               
+ 43              
+ 1807            
+ 3263443         
+ 1.065005695E13  
+ 1.134237131E26  
+ 1.286493868E52  
+ 1.655066473E104 
+ 
\ No newline at end of file
diff --git a/challenge-173/conor-hoekstra/ch-2.bqn b/challenge-173/conor-hoekstra/ch-2.bqn
new file mode 100644
index 0000000000..4bc3625bd4
--- /dev/null
+++ b/challenge-173/conor-hoekstra/ch-2.bqn
@@ -0,0 +1,3 @@
+# Sylvester's Sequence
+    ∾⟜(1+×´)⍟9 ⥊2
+⟨ 2 3 7 43 1807 3263443 10650056950807 1.1342371305542186e26 1.2864938683278675e52 1.6550664732452e1...
-- 
cgit