From 3cf4b5f52562e35050ee36254eea27ad83c4c747 Mon Sep 17 00:00:00 2001
From: Ben Harris <bjh21@bjh21.me.uk>
Date: Fri, 31 May 2024 14:01:24 +0100
Subject: [PATCH] 21a: pull out opcode decoding

---
 21/21a.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/21/21a.bqn b/21/21a.bqn
index 50226b4..51d76b0 100644
--- a/21/21a.bqn
+++ b/21/21a.bqn
@@ -6,10 +6,10 @@ Prep←{
 Main←{
   monkeys←⟨⟩•HashMap⟨⟩
   {(⊑𝕩) monkeys.Set (1↓𝕩) }¨𝕩
+  _decode←{⊑("+-*/"⊐𝕗)⊏⟨+,-,×,÷⟩}
   Eval←{ 𝕊⟨number⟩: number;
     𝕊⟨x, opcode, y⟩:
-      op←⊑("+-*/"⊐opcode)⊏⟨+,-,×,÷⟩
-      (Eval monkeys.Get x) Op (Eval monkeys.Get y)
+      (Eval monkeys.Get x) opcode _decode (Eval monkeys.Get y)
   }
   Eval monkeys.Get "root"
 }
-- 
2.30.2