From 00d6f670712c49612a11cea3629a2d8f55060bf4 Mon Sep 17 00:00:00 2001 From: Ben Harris Date: Fri, 3 May 2024 10:26:10 +0100 Subject: [PATCH] 03b done MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Still don't really understand the interaction of ˝ and ˘ though. --- 03/03b.bqn | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 03/03b.bqn diff --git a/03/03b.bqn b/03/03b.bqn new file mode 100644 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 -- 2.30.2