aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdc.bqn7
1 files changed, 4 insertions, 3 deletions
diff --git a/dc.bqn b/dc.bqn
index 085e3c1e..70147f54 100755
--- a/dc.bqn
+++ b/dc.bqn
@@ -10,6 +10,7 @@ charSet←∾charGroups←⟨
"←↩→" # Gets
"(){}⟨⟩" # Bracket
"‿" # Ligature
+ "·" # nOthing
•d # +⟜(↕10)⌾•UCS'0' # Digit
"¯.π∞" # Numeric
"_"∾˜' '(+∾⊢)⌾•UCS•a # Alphabetic
@@ -17,8 +18,8 @@ charSet←∾charGroups←⟨
" "∾tab # Whitespace
# #'" eliminated during tokenization
-bF‿bM‿bC‿bI‿bS‿bG‿bB‿bL‿bD‿bN‿bA‿bP‿bW←⊔/≠¨charGroups
-vi←+´≠¨8↑charGroups
+bF‿bM‿bC‿bI‿bS‿bG‿bB‿bL‿bO‿bD‿bN‿bA‿bP‿bW←⊔/≠¨charGroups
+vi←+´≠¨9↑charGroups
charRole←(vi+1)↑(/0∾≠¨3↑charGroups)∾10⥊↕2
Tokenize←{
@@ -150,7 +151,7 @@ DParse ← {nv‿r𝕊𝕩:
tf←(a≤○(⌈`(1+↕∘≠)⊸×)ps)∧(⊢∧2(|<≤)ps(⊢-⌈`∘×)+`)¬ro
opa←op>1↓0∾˜ps∨a⋄os←⌽↕∘≠⊸(⊣-⌈`∘×)⌽¬ro
oa←⌽/opa⋄fa←/(tf∨¬tr)∧(ro∧1⌽opa)<(r=1)∨op<¯1⌽opa
- dy←fa⊏1↓0∾˜(tr∧r≥0)∨r=0
+ dy←fa⊏1↓0∾˜(𝕩≠⊑bO)∧(tr∧r≥0)∨r=0
n←𝕩≥vi+nv⋄id←/n<𝕩≥vi⋄cn←/n∨𝕩≤¯1⊑bC⋄u←⍷ob←cn⊏𝕩
lo←(o/𝕩)=4⊑bB⋄l←/𝕩=5⊑bB⋄ll←1+lo/1(↓--⊸↓)(o∾1)/+`(s∾0)-(1∾o)∧ps∾1
dr←/s>o+`⊸⊏0∾lo