blob: 738061020811a9b07684d4d582c4aa5b4b959e36 (
plain)
1
2
3
4
5
6
7
8
|
#! /usr/bin/env dbqn
⟨DRun⟩ ← •Import •path∾"../dc.bqn"
c ← ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b"
{𝕩: c ∾↩ (¬":"⊑∘∊⊢)¨⊸/ "1 %"⊸∾¨ (3≤≠)◶0‿(('#'≠2⊸⊑)∧" "≡2⊸↑)¨⊸/ •LNS •path∾"prim.bqn" }⍟⊢⊑(<"-prim")∊•args
M ← {e‿b: (⍎e)⊸≢◶""‿{(@+10)∾˜""""∾b∾""": expected "∾e∾" but received "∾⍕𝕩} DRun b}
r ← '%' M∘((+`-2⊸×)∘=⊔⊢)¨ c
• ← ("All "∾(⍕≠c)∾" passed!")⍟(0=≠) ∾r
|
