chiark / gitweb /
05a: another place where a scalar can be automatically promoted
authorBen Harris <bjh21@bjh21.me.uk>
Sun, 5 May 2024 12:12:27 +0000 (13:12 +0100)
committerBen Harris <bjh21@bjh21.me.uk>
Sun, 5 May 2024 12:12:27 +0000 (13:12 +0100)
05/05a.bqn

index e74a64f213b858a5bb54bbf2c9a9a16156ad3115..0eda860fb394c2b26a3854d1f4649116d2410828 100644 (file)
@@ -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
 }