From 5a43b588a126f4b598143b1a29963f4df35b8432 Mon Sep 17 00:00:00 2001 From: Ben Harris Date: Fri, 3 May 2024 09:22:56 +0100 Subject: [PATCH] 03a just needs priority --- 03/03a.bqn | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 03/03a.bqn diff --git a/03/03a.bqn b/03/03a.bqn new file mode 100644 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 -- 2.30.2