diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-04 18:43:56 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-04 18:43:56 -0400 |
| commit | cf072f50d2e1c600c788d37645721a94c55377c8 (patch) | |
| tree | 4db511aff5d7ae99838d23f5b0b1022a3fd28e71 /c.bqn | |
| parent | 399c717259ae8b310a3503d4098acec3b9b65486 (diff) | |
Let's never use •UCS again
Diffstat (limited to 'c.bqn')
| -rwxr-xr-x | c.bqn | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -81,7 +81,7 @@ ReadNum←{ m←(n=⊑)◶⟨Pos,-·Pos 1⊸↓⟩e↑𝕩 𝕩×⟜(10⋆·Int(e+1)↓⊣)˜⍟(e<≠𝕩)m } -LitVal←(⊑((⊑bU)∾"'""")⊐⊏)◶⟨•UCS 0,1⊸⊑,1⊸↓,ReadNum⟩ +LitVal←(⊑((⊑bU)∾"'""")⊐⊏)◶⟨@,1⊸⊑,1⊸↓,ReadNum⟩ GenF64←{ 0:8⥊0; l←2(⌊⋆⁼)𝕩 @@ -123,10 +123,10 @@ Gen←{ C←LEB∘≠⊸∾ S←∾⟜C V←≠∾∾ - I←C∘•UCS + I←C-⟜@ t‿n‿b←𝕩 ∾⟨ - 0∾(•UCS"asm")∾4↑1 + 0∾("asm"-@)∾4↑1 1 S V (96∾⟜∾C¨)¨t 3 S V ⥊¨↕≠b 7 S V ⥊<"fn"I⊸(⊣∾0∾⊢)n |
