aboutsummaryrefslogtreecommitdiff
path: root/dc.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-07 16:17:58 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-07 16:17:58 -0400
commit91b5abe9fa8b2394606f0eb82bfaeb54fa8a33e8 (patch)
tree26746a3f1c81874c8a65c705d19e6f13355f460c /dc.bqn
parent85c54f4c22897972025d76502b9e305541ec5a6e (diff)
Use # instead of ⍝ for comments
Diffstat (limited to 'dc.bqn')
-rwxr-xr-xdc.bqn4
1 files changed, 2 insertions, 2 deletions
diff --git a/dc.bqn b/dc.bqn
index 70f51ff1..ea81ed6b 100755
--- a/dc.bqn
+++ b/dc.bqn
@@ -15,13 +15,13 @@ charSet←∾charGroups←⟨
"_"∾' '(⊢∾+)⌾•UCS•a ⍝ Alphabetic
1↑"𝕨" ⍝ Prefix for input (hack around UTF-16)
" "∾tab ⍝ Whitespace
-⍝ ⍝'" eliminated during tokenization
+⍝ #'" eliminated during tokenization
bF‿bM‿bC‿bI‿bS‿bG‿bB‿bL‿bD‿bN‿bA‿bP‿bW←⊔/≠¨charGroups
vi←+´≠¨8↑charGroups
Tokenize←{
- r←𝕩='⍝'⋄s←/(≠↑2⊸↓)⊸∧𝕩=⊑"'"⋄d←/𝕩='"'
+ r←𝕩='#'⋄s←/(≠↑2⊸↓)⊸∧𝕩=⊑"'"⋄d←/𝕩='"'
g←⍋q←∾⟨ s⋄¯1↓d⋄/r⟩ ⋄q↩g⊏q
e← g⊏∾⟨2+s⋄ 1↓d⋄(⊢-¯1↓0∾⊢)∘⊏⟜(0∾+`r)⊸//(𝕩=nl)∾1⟩
Se←{(⊏˜𝕨)Se 1¨⌾((𝕩/𝕨)⊸⊏)𝕩}⍟{0=⊑⌽𝕩}