diff options
Diffstat (limited to 'test')
| -rwxr-xr-x | test/cmpref.bqn | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/test/cmpref.bqn b/test/cmpref.bqn index 54b3eabd..fb02a664 100755 --- a/test/cmpref.bqn +++ b/test/cmpref.bqn @@ -19,25 +19,21 @@ init ← " "⊸∾¨(/⟜"_"¨nc/0‿1‿1)∾¨(nc/"FMD")∾¨(nc+´⊸↑⥊"A post ← ∾⟜" "¨/⟜"_"¨nc/0‿0‿1 names ← init∾¨(•UCS 48)∾¨post -Inc ← { +Inc ← { i←⊑chr⊐𝕩 n←0 ⋄ itr↩{n↩1+𝕩}⌾(i⊑⊢)itr names↩((i⊑init)∾(•UCS 48+n)∾i⊑post)⌾(i⊑⊢)names } -# starting built-ins -inps←⟨"𝕨 ","𝕨,𝕗","𝕨,𝕘"⟩ -pre ← names∾¨(nc/("←{⟨"∾∾⟜"⟩ ⋄ ≤""Using undefined built-in ")¨inps)∾¨∾⟜"""}"¨chr - # built-in assumptions -Mod ← {pre ∾↩ <((⊑chr⊐𝕨)⊑names) ∾ " ↩ " ∾ 𝕩} - -pre ∾↩ <"IsArray ← 0≠≡" -pre ∾↩ <"_amend ← {𝕨{𝕩⋄𝕗}⌾(𝕗⊑⊢)𝕩}" -pre ∾↩ <"Type ← ⟨⟩⥊0⊸⥊" - -'!' Mod "{𝕩 ⋄ ≤1}⍟¬" -Mod⟜⥊¨ "+-×÷⋆⌊=≤≢⥊⊑↕⌜⁼" +Mod ← {((⊑chr⊐𝕨)⊑names) ∾ " ← " ∾ 𝕩} + +pre ← ⟨ + "IsArray ← 0≠≡" + "_amend ← {𝕨{𝕩⋄𝕗}⌾(𝕗⊑⊢)𝕩}" + "Type ← ⟨⟩⥊0⊸⥊" + '!' Mod "{𝕩 ⋄ ≤1}⍟¬" +⟩∾Mod⟜⥊¨ "+-×÷⋆⌊=≤≢⥊⊑↕⌜⁼" # checks if line is a builtin redefinition |
