diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-07 16:17:58 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-07 16:17:58 -0400 |
| commit | 91b5abe9fa8b2394606f0eb82bfaeb54fa8a33e8 (patch) | |
| tree | 26746a3f1c81874c8a65c705d19e6f13355f460c /dc.bqn | |
| parent | 85c54f4c22897972025d76502b9e305541ec5a6e (diff) | |
Use # instead of ⍝ for comments
Diffstat (limited to 'dc.bqn')
| -rwxr-xr-x | dc.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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=⊑⌽𝕩} |
