diff options
| -rw-r--r-- | wc.bqn | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -34,14 +34,14 @@ MakeTab←{{⊑∘(∾⟜0)¨¯1↓(chF⊐𝕨)⊔○(∾⟜(≠chF))𝕩}○∾ tab1←MakeTab⟨ "⊣⊢" , 2⥊<⟨⟩ "|-⌈⌊√" , (Hex"99")+(↕4)∾6 - "÷" , <(Hex"10")∾0 + "÷" , <(Hex"10")≍0 "¬" , <∾⥊¨⟨Hex"9A",GenF64 1,Hex"A0"⟩ ⟩ tab2←MakeTab⟨ "⊣" , Hex"1A" "+-×÷⌊⌈∧", (Hex"A0")+(↕6)∾2 "¬" , <∾⥊¨⟨Hex"A1",GenF64 1,Hex"A0"⟩ - "∨" , <(Hex"10")∾1 + "∨" , <(Hex"10")≍1 ⟩ fntab←⍉(0¨tab1)∾tab1≍tab2 f64←127-3 @@ -55,11 +55,11 @@ GenFn←{ t↩((vi+nVar+≠lits)+↕∘≠)⌾(c⊸/)t ⟨a,na⟩←WParse t ops←⥊∾⟨ - ∾⟜(0⥊˜3∾˜vi-≠)fntab - ⍉(Hex¨"20"‿"22"‿"21")∾⌜↕nVar - ⊣⌜⟜(↕3)(GenF64¨lits)∾(Hex"10")∾¨3+↕nd + ∾⟜(0⥊˜3≍˜vi-≠)fntab + ⍉(Hex¨"20"‿"22"‿"21")≍⌜↕nVar + ⊣⌜⟜(↕3)(GenF64¨lits)∾(Hex"10")≍¨3+↕nd ⟩ - (((≠∾∾)⟨nLoc∾f64⟩)∾(Hex"0B")∾˜∾)¨((⊢-˜¬×+`)a=2+⊑bB)⊔(na+3×a)⊏ops + (((≠∾∾)⟨nLoc‿f64⟩)∾(Hex"0B")∾˜∾)¨((⊢-˜¬×+`)a=2+⊑bB)⊔(na+3×a)⊏ops } Gen←{ @@ -73,7 +73,7 @@ Gen←{ 0∾("asm"-@)∾4↑1 1 S V (96∾⟜∾C¨)¨t 3 S V ⥊¨↕≠b - 7 S V ⥊<"fn"I⊸(⊣∾0∾⊢)n + 7 S V ⥊<"fn"I⊸(⊣∾0≍⊢)n 10 S V C¨ b ⟩ } @@ -83,5 +83,5 @@ or ←2 GenFn "(w+x)-w∧x" WCompile←{ body←GenFn 𝕩 f←⟨rcp,or,body⟩ - Gen ⟨(≠¨f)/(1‿2‿0∾¨1)⥊¨¨f64 ⋄ 2 ⋄ ∾f⟩ + Gen ⟨(≠¨f)/(1‿2‿0≍¨1)⥊¨¨f64 ⋄ 2 ⋄ ∾f⟩ } |