From 1576febc7b020326488c75e66fb5ee43d2be9081 Mon Sep 17 00:00:00 2001 From: Ben Harris Date: Sun, 26 May 2024 00:12:29 +0100 Subject: [PATCH] 18a: comment correction --- 18/18a.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/18/18a.bqn b/18/18a.bqn index 0d0e06f..f467a13 100644 --- a/18/18a.bqn +++ b/18/18a.bqn @@ -9,13 +9,13 @@ Prep←{ cubes←{ •ParseFloat¨(','=𝕩)Split 𝕩 }¨𝕩 + # We assume that all co-ordinates are non-negitive. # "2" here allows a margin for shifting into droplet←(2+⌈˝>cubes)⥊0 droplet↩1¨⌾(cubes⊸⊑)droplet } Main←{ 𝕊 droplet: - # We assume that all co-ordinates are strictly positive. NSurfacesInDir←{ +´⥊𝕩≠»𝕩 } +´{NSurfacesInDir ⍉⍟𝕩 droplet}¨↕=droplet } -- 2.30.2