20b: working on the example

But not the real input

diff --git a/20/20b.bqn b/20/20b.bqn
new file mode 100644 (file)
index 0000000..dbd8ab4
--- /dev/null
+++ b/20/20b.bqn
@@ -0,0 +1,11 @@
+Prep←•ParseFloat¨
+
+Main←{ 𝕊 orig:
+  Twiddle←{ (1⊸⌽)⌾((1+(¯1+≠𝕩)|𝕨)⊸↑) (⊑𝕩⊐𝕨)⌽𝕩 }
+  Mix←Twiddle´⟜⌽
+  orig ×↩ 811589153
+  cur ← orig Mix˜⍟10 orig
+  +´((≠cur)|(cur⊐0)+⟨1000,2000,3000⟩)⊏cur
+}
+
+•Show Main Prep •file.Lines ⊑•args