From 4cd595bc06d4fcecf82776c0046161e85a5b4676 Mon Sep 17 00:00:00 2001 From: Ben Harris Date: Thu, 30 May 2024 21:25:29 +0100 Subject: [PATCH] 20: trivial simplification --- 20/20a.bqn | 2 +- 20/20b.bqn | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/20/20a.bqn b/20/20a.bqn index 26218d9..e1f13e7 100644 --- 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 dbd8ab4..bdf00f4 100644 --- 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 -- 2.30.2