From 0e8dab90bf1a366ca777fa3ea6aafff3c62386e8 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 28 Apr 2021 16:53:27 -0400
Subject: Add r0 and r1 options to cjs.bqn

---
 src/pr.bqn | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/pr.bqn')

diff --git a/src/pr.bqn b/src/pr.bqn
index d8d1c8e6..560dd2b0 100755
--- a/src/pr.bqn
+++ b/src/pr.bqn
@@ -11,15 +11,15 @@ alias‿def ← (⊑¨ ≍○< 1⊸↓¨) ⟨"?Type","∩Fill","⍣Log",
                            "$GroupLen","%GroupOrd","⍝_fillBy_"⟩
 keep ← "!+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘⎊"
 chrext ← glyphs ∾¨ ((+´·∧`'_'=0‿¯1⊸⊏)¨def) ⊔ alias
+Typ ← chrext⊸((+`≠¨)∘⊣⍋∾⊸⊐)
 
-in‿out ← rtt ⊑ {
-  in0‿out0 ← ⟨"∩⍝+-×⌊=≤≢⥊⊑↕⌜", "⌊⌈|<>≠≥⊢⊣∾↑↓⊏˙˜´∘○⊸⟜◶⍟"⟩
-  in1 ← ⍷ out0 ∾˜ in2 ← alias∾keep
-  out2 ← ∾glyphs
-  ⟨ in0‿out0, in1‿out2, in2‿out2 ⟩
-}
+in0‿out0 ← ⟨"∩⍝+-×⌊=≤≢⥊⊑↕⌜⊘", "⌊⌈|<>≠≥⊢⊣∾↑↓⊏˙˜´∘○⊸⟜◶⍟"⟩
+in2 ← alias∾keep
+out2 ← ∾glyphs
+in‿out ← rtt ⊑ ⟨in0,out0⟩‿⟨⍷in2∾out0,out2⟩‿⟨in2,out2⟩
 
-need ⇐ chrext⊸((+`≠¨)∘⊣⍋∾⊸⊐)⊸⊔ in
+inputs ⇐ ⟨out0, (⍋Typ)⊸⊏in2⟩
+need ⇐ Typ⊸⊔ in
 
 GetRepls ← { c‿n←𝕩 ⋄ ⟨c,c⊣⌾((c∊⥊¨in)⊸/)n⟩∾¨⟨def,⥊¨alias⟩ }
 
-- 
cgit v1.2.3