aboutsummaryrefslogtreecommitdiff
path: root/c.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-04 18:43:56 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-04 18:43:56 -0400
commitcf072f50d2e1c600c788d37645721a94c55377c8 (patch)
tree4db511aff5d7ae99838d23f5b0b1022a3fd28e71 /c.bqn
parent399c717259ae8b310a3503d4098acec3b9b65486 (diff)
Let's never use •UCS again
Diffstat (limited to 'c.bqn')
-rwxr-xr-xc.bqn6
1 files changed, 3 insertions, 3 deletions
diff --git a/c.bqn b/c.bqn
index 2d8bcb0f..c7fa2d3d 100755
--- a/c.bqn
+++ b/c.bqn
@@ -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