20: trivial simplification

diff --git a/20/20a.bqn b/20/20a.bqn
index 26218d9dc27296238ea65ff456838c798d642065..e1f13e76e8824d4dea163e933d81280486a75bae 100644 (file)
--- a/20/20a.bqn
+++ b/20/20a.bqn
@@ -1,7 +1,7 @@
 Prep←•ParseFloat¨
 
 Main←{ 𝕊 orig:
-  Twiddle←{ (1⊸⌽)⌾((1+(¯1+≠𝕩)|𝕨)⊸↑) (⊑𝕩⊐𝕨)⌽𝕩 }
+  Twiddle←{ (1⊸⌽)⌾((1+(¯1+≠𝕩)|𝕨)⊸↑) (𝕩⊐𝕨)⌽𝕩 }
   cur ← orig Twiddle´ ⌽orig
   +´((≠cur)|(cur⊐0)+⟨1000,2000,3000⟩)⊏cur
 }

diff --git a/20/20b.bqn b/20/20b.bqn
index dbd8ab42b6065208b1bf366b1f1668dae647ca92..bdf00f4dbe1145ad85a76c68779b3d1ccd2b94c3 100644 (file)
--- a/20/20b.bqn
+++ b/20/20b.bqn
@@ -1,7 +1,7 @@
 Prep←•ParseFloat¨
 
 Main←{ 𝕊 orig:
-  Twiddle←{ (1⊸⌽)⌾((1+(¯1+≠𝕩)|𝕨)⊸↑) (⊑𝕩⊐𝕨)⌽𝕩 }
+  Twiddle←{ (1⊸⌽)⌾((1+(¯1+≠𝕩)|𝕨)⊸↑) (𝕩⊐𝕨)⌽𝕩 }
   Mix←Twiddle´⟜⌽
   orig ×↩ 811589153
   cur ← orig Mix˜⍟10 orig