From 60d59965f6df613a8cc95aa8bd18823945734d69 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 7 Jun 2020 10:06:23 -0400
Subject: Support all the primitives with dedicted instructions

---
 c.bqn | 6 +++---
 1 file 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"
-- 
cgit v1.2.3