16a: use fact that ⍟ can take an array of repetition counts

diff --git a/18/18a.bqn b/18/18a.bqn
index f467a13ce241c487394564f40a7e5caf4fc2e6d1..9d854cabcfe7ae750d9cb36ecd6cb5018a6ee59b 100644 (file)
--- a/18/18a.bqn
+++ b/18/18a.bqn
@@ -17,7 +17,7 @@ Prep←{
 
 Main←{ 𝕊 droplet:
   NSurfacesInDir←{ +´⥊𝕩≠»𝕩 }
-  +´{NSurfacesInDir ⍉⍟𝕩 droplet}¨↕=droplet
+  +´ NSurfacesInDir¨ ⍉⍟(↕=droplet) droplet
 }
 
 •Show Main Prep •file.Lines ⊑•args