From: Ben Harris <bjh21@bjh21.me.uk>
Date: Thu, 30 May 2024 13:38:42 +0000 (+0100)
Subject: 20a: slight simplification
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=ad4a8e3c72e294d575c478ab36a47a1c5a49d1e2;p=aoc-2022.git

20a: slight simplification
---

diff --git a/20/20a.bqn b/20/20a.bqn
index 4414236..a7686ae 100644
--- a/20/20a.bqn
+++ b/20/20a.bqn
@@ -1,10 +1,6 @@
 Prep←•ParseFloat¨
 
 Main←{ 𝕊 orig:
-  •Show orig
-  cur←orig
-  #JumpFwd←{(1⊸⌽)⌾(((1+|𝕨)⊸↑)∘((⊑𝕩⊐𝕨)⊸⌽)) 𝕩}
-  #Jump←{𝕨≥0 ? 𝕨 JumpFwd 𝕩; ⌽ 𝕨 JumpFwd ⌽𝕩}
   Wrap←{1+(𝕨-1)|𝕩-1}
   Jump←{
     from ← ⊑𝕩⊐𝕨
@@ -12,9 +8,7 @@ Main←{ 𝕊 orig:
     len ← to-from
     ((×len)⊸⌽) ⌾ ((1+|len)⊸↑∘((to⌊from)⊸↓)) 𝕩
   }
-  {
-    •Show cur ↩ 𝕩 Jump cur
-  }¨orig
+  cur ← orig Jump´ ⌽orig
   +´((≠cur)|(cur⊐0)+⟨1000,2000,3000⟩)⊏cur
 }