From fbe58d38b6381f580447537a6b8b227aa538d9f8 Mon Sep 17 00:00:00 2001 From: Ben Harris Date: Sun, 5 May 2024 13:09:48 +0100 Subject: [PATCH] 05a: slightly simpler Prep1Proc --- 05/05a.bqn | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/05/05a.bqn b/05/05a.bqn index 1efb640..e74a64f 100644 --- a/05/05a.bqn +++ b/05/05a.bqn @@ -8,7 +8,7 @@ Split←{ Prep1Proc←{ # Prepare one step of procedure # Converts "move 3 from 1 to 3" into [⟨1,3⟩,⟨1,3⟩,⟨1,3⟩]. ⟨n,f,t⟩←•ParseFloat¨⟨1,3,5⟩⊏(' '=𝕩)Split𝕩 - ⟨n⟩/[⟨f,t⟩] + n/[⟨f,t⟩] } Prep←{ @@ -22,8 +22,8 @@ Prep←{ ExecuteMove←{⟨from,to⟩𝕊stacks: crate←⊑from⊑stacks - stacks (1⊸↓)⌾(from⊸⊑) ↩ - stacks (⟨crate⟩⊸∾)⌾(to⊸⊑) ↩ + stacks (1⊸↓)⌾(from⊸⊑) ↩ + stacks (⟨crate⟩⊸∾)⌾(to⊸⊑) ↩ stacks } -- 2.30.2