diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-04 18:43:56 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-04 18:43:56 -0400 |
| commit | cf072f50d2e1c600c788d37645721a94c55377c8 (patch) | |
| tree | 4db511aff5d7ae99838d23f5b0b1022a3fd28e71 /test/cmpref.bqn | |
| parent | 399c717259ae8b310a3503d4098acec3b9b65486 (diff) | |
Let's never use •UCS again
Diffstat (limited to 'test/cmpref.bqn')
| -rwxr-xr-x | test/cmpref.bqn | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/cmpref.bqn b/test/cmpref.bqn index afe5f959..aa71661d 100755 --- a/test/cmpref.bqn +++ b/test/cmpref.bqn @@ -17,12 +17,12 @@ itr ← 0⥊˜≠chr init ← " "⊸∾¨(/⟜"_"¨nc/0‿1‿1)∾¨(nc/"FMD")∾¨(nc+´⊸↑⥊"ABC"∾⌜•a) post ← ∾⟜" "¨/⟜"_"¨nc/0‿0‿1 -names ← init∾¨(•UCS 48)∾¨post +names ← init∾¨'0'∾¨post Inc ← { i←⊑chr⊐𝕩 n←0 ⋄ itr↩{n↩1+𝕩}⌾(i⊑⊢)itr - names↩((i⊑init)∾(•UCS 48+n)∾i⊑post)⌾(i⊑⊢)names + names↩((i⊑init)∾('0'+n)∾i⊑post)⌾(i⊑⊢)names } # built-in assumptions @@ -56,5 +56,5 @@ E_redef ← { # handles [fmd] [←↩] pre ∾↩ E_isdef◶E_proc‿E_redef¨ impl t ← (¬∘⊑':'∊⊢)¨⊸/ 3⊸↓⌾(3⊸⊑) •LNS •path∾"testref.bqn" -res ← DRun ∾ ∾⟜(•UCS 10)¨ pre ∾ E_proc¨ t +res ← DRun ∾ ∾⟜(@+10)¨ pre ∾ E_proc¨ t • ← ("All "∾(⍕≠res)∾" passed!")⍟(0=≠) /res |