Support all the primitives with dedicted instructions

1 files changed, 3 insertions, 3 deletions

diff --git a/c.bqn b/c.bqn
index dc691210..3e818899 100755
--- a/c.bqn
+++ b/c.bqn
@@ -21,9 +21,9 @@ GenFn←{
     l←2(⌊⋆⁼)n
     (D"44")∾2⊥˘⌽8‿8(⊣⥊×´⊸↑)∾⟨⥊0,(11⥊2)⊤1023+l,(2⥊˜0⌈l)⊤n⟩
   }‿{
-    ⟨⥊D"9A"⟩⊑˜"-"⊐<𝕩
+    (⥊¨(D"99")+((↕4)∾6))⊑˜"|-⌈⌊√"⊐<𝕩
   }‿{
-    (⥊∘D¨"A0"‿"A1"‿"A2"‿"A3")⊑˜"+-×÷"⊐<𝕩
+    (⥊¨(D"A0")+↕6)⊑˜"+-×÷⌊⌈"⊐<𝕩
   }
   (D"0B")∾˜∾na⊑⟜fns⊸{𝕎𝕩}¨x
 }
@@ -48,4 +48,4 @@ Compile←{
   body←GenFn Parse 𝕩
   (1↓∾)(","∾⥊∘⍕)¨ Gen ⟨⟨0‿1⟩/¨¨127-3 ⋄ ⥊<"fn" ⋄ ⥊<body⟩
 }
-•←Compile "(5-3)×-2+(1÷-(-2)×3)+(1÷3)+1÷2"
+•←Compile "((-3)+√(3×3)-4×2×1)÷2×2"