From d200e954a1c044a5c3c2765d48a7069138188e83 Mon Sep 17 00:00:00 2001 From: Ben Harris Date: Sun, 26 May 2024 08:24:11 +0100 Subject: [PATCH] =?utf8?q?16a:=20use=20fact=20that=20=E2=8D=9F=20can=20tak?= =?utf8?q?e=20an=20array=20of=20repetition=20counts?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- 18/18a.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/18/18a.bqn b/18/18a.bqn index f467a13..9d854ca 100644 --- 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 -- 2.30.2