Transpose operation table

1 files 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←{