aboutsummaryrefslogtreecommitdiff
path: root/dc.bqn
diff options
context:
space:
mode:
Diffstat (limited to 'dc.bqn')
-rwxr-xr-xdc.bqn30
1 files changed, 15 insertions, 15 deletions
diff --git a/dc.bqn b/dc.bqn
index ea81ed6b..a2eee448 100755
--- a/dc.bqn
+++ b/dc.bqn
@@ -2,20 +2,20 @@
nl‿tab←•UCS 10‿9
charSet←∾charGroups←⟨
- chF←"+-×÷⋆√⌊⌈|¬∧∨<>≠=≤≥≡≢⊣⊢⥊∾≍↑↓↕⌽⍉/⍋⍒⊏⊑⊐⊒∊⍷⊔" ⍝ Function
- "˜˘¨⌜⁼´`" ⍝ Modifier
- "∘○⊸⟜⌾⊘◶⎉⚇⍟" ⍝ Composition
- ¯1⊏˘10‿2⥊"𝕨𝕎𝕩𝕏𝕗𝔽𝕘𝔾𝕤𝕊" ⍝ Input (𝕣 pending; ℝ not allowed)
- nl∾"⋄," ⍝ Separator
- "←↩→" ⍝ Gets
- "(){}⟨⟩" ⍝ Bracket
- "‿" ⍝ Ligature
- •d ⍝ +⟜(↕10)⌾•UCS'0' ⍝ Digit
- "¯.π∞" ⍝ Numeric
- "_"∾' '(⊢∾+)⌾•UCS•a ⍝ Alphabetic
- 1↑"𝕨" ⍝ Prefix for input (hack around UTF-16)
- " "∾tab ⍝ Whitespace
-⍝ #'" eliminated during tokenization
+ chF←"+-×÷⋆√⌊⌈|¬∧∨<>≠=≤≥≡≢⊣⊢⥊∾≍↑↓↕⌽⍉/⍋⍒⊏⊑⊐⊒∊⍷⊔" # Function
+ "˜˘¨⌜⁼´`" # Modifier
+ "∘○⊸⟜⌾⊘◶⎉⚇⍟" # Composition
+ ¯1⊏˘10‿2⥊"𝕨𝕎𝕩𝕏𝕗𝔽𝕘𝔾𝕤𝕊" # Input (𝕣 pending; ℝ not allowed)
+ nl∾"⋄," # Separator
+ "←↩→" # Gets
+ "(){}⟨⟩" # Bracket
+ "‿" # Ligature
+ •d # +⟜(↕10)⌾•UCS'0' # Digit
+ "¯.π∞" # Numeric
+ "_"∾' '(⊢∾+)⌾•UCS•a # Alphabetic
+ 1↑"𝕨" # Prefix for input (hack around UTF-16)
+ " "∾tab # Whitespace
+# #'" eliminated during tokenization
bF‿bM‿bC‿bI‿bS‿bG‿bB‿bL‿bD‿bN‿bA‿bP‿bW←⊔/≠¨charGroups
vi←+´≠¨8↑charGroups
@@ -117,7 +117,7 @@ Compile←{
}
-⍝ Targetting dzaima/BQN bytecode:
+# Targetting dzaima/BQN bytecode:
DParse ← {
l←≠𝕩⋄sep←𝕩∊bS⋄𝕩↩(⌽⍋⍋⌽+`(≠↑0∾⊢)⊸∨sep)⊏𝕩