From 14135aed5308b400e6d9ebb8c2b5430fa78f8629 Mon Sep 17 00:00:00 2001
From: Ben Harris <bjh21@bjh21.me.uk>
Date: Fri, 3 May 2024 10:00:37 +0100
Subject: [PATCH] 03a done

---
 03/03a.bqn | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/03/03a.bqn b/03/03a.bqn
index 3527dac..9141ad3 100644
--- a/03/03a.bqn
+++ b/03/03a.bqn
@@ -1,9 +1,12 @@
 Split←{⟨2,∘⟩⥊𝕩}         # Split rucksack into compartments.
 Intersect←{(𝕨∊𝕩)/𝕨}     # Find elements of 𝕨 that are in 𝕩.
-Priority←{1+𝕩-'a'}      # XXX Get priority of an item.
 
-Process1←{Priority⊑Intersect˝Split𝕩}
+Process1←{⊑Intersect˝Split𝕩}
 
-Main←Process1¨
+PriorityLC←{( 1+𝕩-'a')×(𝕩≥'a')∧(𝕩≤'z')}
+PriorityUC←{(27+𝕩-'A')×(𝕩≥'A')∧(𝕩≤'Z')}
+Priority←PriorityLC+PriorityUC
+
+Main←+´(Priority Process1¨)
 
 •Show Main •file.Lines ⊑•args
-- 
2.30.2