aboutsummaryrefslogtreecommitdiff
path: root/src/c.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-08-17 21:42:17 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-08-17 22:39:42 -0400
commitc3dee69d6e936fd8b6d1cf2b3676d612913a61fc (patch)
tree6d7ccfef62e6ccd79ac28438447fd4177ece8942 /src/c.bqn
parent37597898e329c2f6928a61c089f5b27a97e53b86 (diff)
Define monadic ⊐ to be ⍷⊸⊐ in the runtime
Diffstat (limited to 'src/c.bqn')
-rw-r--r--src/c.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/c.bqn b/src/c.bqn
index 0787160f..dfcff3f1 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -52,7 +52,7 @@ Tokenize←{
na←≠alph⋄us←c=¯1++´bA
id←(1-˜(us<l)×+`w)⊔na(⊢-⊣×+⟜(⊑bA)⊸≤)c
ti←na⌊∘÷˜(⊑bA)-˜w/c
- iu←(≠↑¯1∾⌈`)⊸<is←⍷⊸⊐id⋄ni←≠in←0>iu/ti
+ iu←(≠↑¯1∾⌈`)⊸<is←⊐id⋄ni←≠in←0>iu/ti
ti↩(us/˜(1↓0∾˜⊢)⊸<l)(⊢+∧⟜(2⊸=))0⌈ti
c↩(w∨¬l∨c M bW)/(vi+is⊏⍋⍋in)⌾(w⊸/)(vi+ni+lu⊐lit)⌾(cl⊸/)c