diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-06-11 17:36:52 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-06-11 17:37:38 -0400 |
| commit | 5cb10a20d2f691a1dc7e6fdc1caca2699a4c3851 (patch) | |
| tree | 52012fbbb6e80e5f2df048cd27dfacd0f45cbb63 | |
| parent | 15e7009214db9a6e5d2a7bf121cdce57b0710b46 (diff) | |
Use ⊣ for separator pseudofunction
| -rwxr-xr-x | c.bqn | 4 | ||||
| -rw-r--r-- | test/cases.bqn | 1 |
2 files changed, 3 insertions, 2 deletions
@@ -24,7 +24,7 @@ Parse←{ x(/˜)↩¬(x∊chW)∨<○(⌈`↕∘≠⊸×)´(lf∾chR)=⌜x x(/˜)↩¬(1⌾⊑1⌽1⌾⊑)⊸∧x∊chS a←x∊"←↩"⋄at←1⌽a⋄vars←at/x⋄x(/˜)↩¬a⋄a(/˜)↩¬at - l←≠x⋄sep←x∊chS⋄x↩'⋄'¨⌾(sep⊸/)x + l←≠x⋄sep←x∊chS⋄x↩'⊣'¨⌾(sep⊸/)x o←x='('⋄c←x=')'⋄v←a-˜x∊•d∾args∾vars⋄f←¬o∨c∨v∨sep na←(2×sep)+f×1+l↑0∾c∨v e←/c⋄d←+`o-c @@ -51,7 +51,7 @@ GenFn←{ v←vars⊐<𝕩⋄v<≠vars:(D"22")∾v ((<(D"10")∾1)∾˜⥊¨(D"99")+((↕4)∾6))⊑˜"|-⌈⌊√÷"⊐<𝕩 }‿{ - (⥊¨(D"1A")∾(D"A0")+↕6)⊑˜"⋄+-×÷⌊⌈"⊐<𝕩 + (⥊¨(D"1A")∾(D"A0")+↕6)⊑˜"⊣+-×÷⌊⌈"⊐<𝕩 } ((≠∾∾)⟨locs≠⊸∾f64⟩)∾(D"0B")∾˜∾na⊑⟜fns⊸{𝕎𝕩}¨x } diff --git a/test/cases.bqn b/test/cases.bqn index 22c8a540..15c15a80 100644 --- a/test/cases.bqn +++ b/test/cases.bqn @@ -2,6 +2,7 @@ -2 % 1⌊-2 -1 % -2⌊1 1 % (÷2)+(÷3)+(÷6) +4 % 4⊣5 0 % s←√5,⌊9×|5-s×s -0.5 % ((-3)+√(3×3)-4×2×1)÷2×2 -0.5 % a←2,b←3,c←1⋄((-b)+√(b×b)-4×a×c)÷2×a |
