From 91b5abe9fa8b2394606f0eb82bfaeb54fa8a33e8 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Tue, 7 Jul 2020 16:17:58 -0400 Subject: =?UTF-8?q?Use=20#=20instead=20of=20=E2=8D=9D=20for=20comments?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- c.bqn | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'c.bqn') diff --git a/c.bqn b/c.bqn index ef8427de..8125d3f6 100755 --- a/c.bqn +++ b/c.bqn @@ -22,13 +22,13 @@ charSet←∾charGroups←⟨ "¯.π∞" ⍝ Numeric "_"∾' '(⊢∾+)⌾•UCS•a ⍝ Alphabetic " "∾tab ⍝ Whitespace -⍝ ⍝'" eliminated during tokenization +⍝ #'" eliminated during tokenization ⟩ bF‿bM‿bC‿bI‿bS‿bG‿bB‿bL‿bD‿bN‿bA‿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)⊸//(𝕩=lf)∾1⟩ Se←{(⊏˜𝕨)Se 1¨⌾((𝕩/𝕨)⊸⊏)𝕩}⍟{0=⊑⌽𝕩} -- cgit v1.2.3