From 9ae97232fb1dd431be80be14f00060badb2f8643 Mon Sep 17 00:00:00 2001
From: Conor Hoekstra <codereport@outlook.com>
Date: Sat, 13 Nov 2021 23:26:13 -0500
Subject: Week 138

---
 challenge-138/conor-hoekstra/ch-01.apl | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 challenge-138/conor-hoekstra/ch-01.apl

diff --git a/challenge-138/conor-hoekstra/ch-01.apl b/challenge-138/conor-hoekstra/ch-01.apl
new file mode 100644
index 0000000000..a78b3324c0
--- /dev/null
+++ b/challenge-138/conor-hoekstra/ch-01.apl
@@ -0,0 +1,8 @@
+splitNumber ← {
+    n ← ≢⍕⍵                   ⍝ # of digits
+    m ← 2(⊥⍣¯1)(¯1∘++⍳)2*¯1+n ⍝ masks
+    p ← (↓⍉m)⊂¨⊂⍕⍵            ⍝ partitions
+    ∨/(⍵*0.5)={+/⍎¨⍵}¨p
+}
+
+splitNumber ¨ 81 9801 36 ⍝ 1 1 0
-- 
cgit