From ad4a8e3c72e294d575c478ab36a47a1c5a49d1e2 Mon Sep 17 00:00:00 2001
From: Ben Harris <bjh21@bjh21.me.uk>
Date: Thu, 30 May 2024 14:38:42 +0100
Subject: [PATCH] 20a: slight simplification

---
 20/20a.bqn | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

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
 }
 
-- 
2.30.2