03b done

Still don't really understand the interaction of ˝ and ˘ though.

diff --git a/03/03b.bqn b/03/03b.bqn
new file mode 100644 (file)
index 0000000..9a52f2a
--- /dev/null
+++ b/03/03b.bqn
@@ -0,0 +1,10 @@
+Group←{⟨∘,3⟩⥊𝕩}
+Intersect←{(𝕨∊𝕩)/𝕨}     # Find elements of 𝕨 that are in 𝕩.
+
+PriorityLC←{( 1+𝕩-'a')×(𝕩≥'a')∧(𝕩≤'z')}
+PriorityUC←{(27+𝕩-'A')×(𝕩≥'A')∧(𝕩≤'Z')}
+Priority←PriorityLC+PriorityUC
+
+Main←{+´(Priority (⊑Intersect´)¨<˘Group𝕩)}
+
+•Show Main •file.Lines ⊑•args