aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-08-20 20:43:06 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-08-20 20:43:06 -0400
commit1f6e577ae116bd5dbb7718d5199176f9970a5b12 (patch)
tree5d03193936b59df70f315e334776f63d17832f1d
parent6568f4c46f6c776009295cc716fc6c6922108e4e (diff)
Update wc.bqn for tokenizer changes
-rwxr-xr-xwc.bqn6
1 files changed, 3 insertions, 3 deletions
diff --git a/wc.bqn b/wc.bqn
index ef090720..183666df 100755
--- a/wc.bqn
+++ b/wc.bqn
@@ -5,9 +5,9 @@
i←"⟨cgl,charSet,Tokenize⟩"
⟨cgl,charSet,Tokenize⟩ ← ⟨@,@,•Import"src/glyphs.bqn"⟩ •BQN i∾˜•FChars"src/c.bqn"
chF←(⊑cgl)↑charSet
-bF‿bM‿bC‿bS‿bG‿bB‿bL‿bO‿bI‿bU‿bD‿bN‿bA‿bW←≍¨˜⟜(+`≠↑0∾⊢)cgl
+bF‿b1‿b2‿bS‿bH‿bG‿bB‿bL‿bO‿bX‿bN‿bD‿bA‿bW‿bP←≍¨˜⟜(0»+`)cgl
M←1⊸⊑(0⊸≤∧>)-⟜⊑
-vi←⊑bU
+vi←⊑bN
WParse←{
a←𝕩M(2≍˜⊑bG)⋄at←1⌽a⋄𝕩/˜↩¬a⋄a/˜↩¬at
@@ -47,7 +47,7 @@ fntab←⍉(0¨tab1)∾tab1≍tab2
f64←127-3
GenFn←{
- ⟨t,r,k⟩←3↑{!∘0¨¨}Tokenize𝕩
+ ⟨t,r,k⟩←3↑⟨!∘0¨¨,⟨⟩⟩Tokenize𝕩
nVar←≠⊑k⋄lits←∾1↓k
nLoc←nVar-𝕨⊢0
t⊏˜↩⍋+`-˝(2‿3+⊑bB)=⌜t