03a done

diff --git a/03/03a.bqn b/03/03a.bqn
index 3527dac5f47c6ce750fe43b73adc583bb0c506b8..9141ad34492d417ca39e130e45270459ddec6876 100644 (file)
--- 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