aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-06-11 17:36:52 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-06-11 17:37:38 -0400
commit5cb10a20d2f691a1dc7e6fdc1caca2699a4c3851 (patch)
tree52012fbbb6e80e5f2df048cd27dfacd0f45cbb63
parent15e7009214db9a6e5d2a7bf121cdce57b0710b46 (diff)
Use ⊣ for separator pseudofunction
-rwxr-xr-xc.bqn4
-rw-r--r--test/cases.bqn1
2 files changed, 3 insertions, 2 deletions
diff --git a/c.bqn b/c.bqn
index b7a26d67..d7e55e02 100755
--- a/c.bqn
+++ b/c.bqn
@@ -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