From e509ae3774b171e7f430517a9757a22883e165ef Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 28 Jun 2020 17:26:53 -0400
Subject: Transpose operation table

---
 c.bqn | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/c.bqn b/c.bqn
index 44cfdc61..39aef9ff 100755
--- a/c.bqn
+++ b/c.bqn
@@ -82,19 +82,19 @@ tab2←MakeTab⟨
   "¬"      , <∾⥊¨⟨Hex"A1",GenF64 1,Hex"A0"⟩
   "∨"      , <(Hex"10")∾2
 ⟩
+fntab←⍉¯3↑tab1≍tab2
 f64←127-3
 
 GenFn←{
   ⟨⟩GenFn𝕩;
   ⟨tok,nVar,nLoc,lits⟩←𝕨Tokenize𝕩
   ⟨a,na⟩←Parse tok
-  o←vi+n←nVar+≠lits
-  ops←∾o↑¨⟨
-    ∾⟨vi⥊0 ⋄ (Hex"20")∾¨↕nVar ⋄ GenF64∘ReadNum¨lits⟩
-    (vi↑tab1)∾(Hex"22")⊸∾¨↕nVar
-    tab2
+  ops←⥊∾⟨
+    vi↑fntab
+    ⍉3↑(Hex¨"20"‿"22")∾⌜↕nVar
+    ⊣⌜⟜(↕3)GenF64∘ReadNum¨lits
   ⟩
-  ((≠∾∾)⟨nLoc∾f64⟩)∾(Hex"0B")∾˜∾(a+o×na)⊏ops
+  ((≠∾∾)⟨nLoc∾f64⟩)∾(Hex"0B")∾˜∾(na+3×a)⊏ops
 }
 
 Gen←{
-- 
cgit v1.2.3