03a just needs priority

diff --git a/03/03a.bqn b/03/03a.bqn
new file mode 100644 (file)
index 0000000..3527dac
--- /dev/null
+++ b/03/03a.bqn
@@ -0,0 +1,9 @@
+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𝕩}
+
+Main←Process1¨
+
+•Show Main •file.Lines ⊑•args