05: simpler Prep

diff --git a/05/05a.bqn b/05/05a.bqn
index 0eda860fb394c2b26a3854d1f4649116d2410828..d84ea035c14fd19b6b16d4ff034e697b878058e0 100644 (file)
--- a/05/05a.bqn
+++ b/05/05a.bqn
@@ -13,9 +13,9 @@ Prep1Proc←{ # Prepare one step of procedure
 
 Prep←{
   ⟨rawmap, rawproc⟩←(""⊸≡¨𝕩)Split𝕩
-  map0←⍉>¯1↓rawmap            # Drop last line and transpose
-  map1←(1=4|↕≠map0)/map0      # Extract crate letters from chaff
-  map←⟨""⟩∾{(𝕩≠' ')/𝕩}¨<˘map1 # Convert to a 0-based list of strings
+  map0←⍉>¯1↓rawmap           # Drop last line and transpose
+  map1←(1=4|↕≠map0)/map0     # Extract crate letters from chaff
+  map←⟨""⟩∾{<(𝕩≠' ')/𝕩}˘map1 # Convert to a 0-based list of strings
   proc←∾Prep1Proc¨rawproc
   ⟨map, proc⟩
 }

diff --git a/05/05b.bqn b/05/05b.bqn
index ad2c9a484de5feca0f108375177cca18d391eaf3..d219cc27f90dc18ad54a37613fda0a94d1b1c270 100644 (file)
--- a/05/05b.bqn
+++ b/05/05b.bqn
@@ -11,9 +11,9 @@ Prep1Proc←{ # Prepare one step of procedure
 
 Prep←{
   ⟨rawmap, rawproc⟩←(""⊸≡¨𝕩)Split𝕩
-  map0←⍉>¯1↓rawmap            # Drop last line and transpose
-  map1←(1=4|↕≠map0)/map0      # Extract crate letters from chaff
-  map←⟨""⟩∾{(𝕩≠' ')/𝕩}¨<˘map1 # Convert to a 0-based list of strings
+  map0←⍉>¯1↓rawmap           # Drop last line and transpose
+  map1←(1=4|↕≠map0)/map0     # Extract crate letters from chaff
+  map←⟨""⟩∾{<(𝕩≠' ')/𝕩}˘map1 # Convert to a 0-based list of strings
   proc←>Prep1Proc¨rawproc
   ⟨map, proc⟩
 }