diff options
| -rwxr-xr-x | c.bqn | 2 | ||||
| -rw-r--r-- | test/bcases.bqn | 1 |
2 files changed, 2 insertions, 1 deletions
@@ -37,7 +37,7 @@ Tokenize←{ w←(≠↑0∾⊢)⊸<l←c∊∾bD‿bN‿bA i←(1-˜l×+`w)⊔c na←≠•a⋄us←¯1⊑bA - in←us⊸≠⊸/¨na(⊢-⊣×+⟜(⊑bA)⊸≤)i + in←na(⊢-⊣×+⟜(⊑bA)⊸≤)us⊸≠⊸/¨i id←⍷(bA∊˜w/c)⍒⊸⊏in⋄nv←+´bA∊˜⊑¨id c↩(w∨¬l∨c∊bP∾bW)/(vi+id⊐in)⌾(w⊸/)(vi+(≠id)+lu⊐lit)⌾(cl⊸/)c diff --git a/test/bcases.bqn b/test/bcases.bqn index 4a1a51b6..7daba994 100644 --- a/test/bcases.bqn +++ b/test/bcases.bqn @@ -34,3 +34,4 @@ 4 % (⊑⟨×⟩){𝕩𝔽𝕩}¯2 6 % +´(ט)‿-{𝕎𝕩}¨3 5 % 2+⍟3-1 +9 % _m←˜⋄{mm←𝕩⋄×_mm 3}m |
