diff options
Diffstat (limited to 'src')
| -rwxr-xr-x | src/cjs.bqn | 2 | ||||
| -rw-r--r-- | src/fmt.bqn | 2 | ||||
| -rw-r--r-- | src/r.bqn | 16 |
3 files changed, 10 insertions, 10 deletions
diff --git a/src/cjs.bqn b/src/cjs.bqn index e4f3ccf4..e936b4fd 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -1,7 +1,7 @@ #! /usr/bin/env dbqn compile ← ⟨•path∾"../c.bqn"⋄"DGenFn"⟩ •EX •path∾"../dzref" -Comp ← ((<"runtime["∾⍕∾"]"˜)¨↕60)⊸Compile +Comp ← ((<"runtime["∾⍕∾"]"˙)¨↕60)⊸Compile FP ← ∞⊸=◶⟨⍕,"Infinity"⟩ Esc ← (⟨"\t","\n","\r","\'"⟩∾<∘⥊)⊑˜("'"∾˜@+9‿10‿13)⊑∘⊐⊢ Str ← "str("""∾(∾Esc¨)∾""")"˜ diff --git a/src/fmt.bqn b/src/fmt.bqn index 898f7017..18969fb9 100644 --- a/src/fmt.bqn +++ b/src/fmt.bqn @@ -39,7 +39,7 @@ }) PaddingJoin ← {1 PaddingJoin 𝕩}⊘{ s ← ≢¨ 𝕩 - w ← (0<=)◶⟨⥊,⌈˝⍟(=-1˜)⟩1⊑¨s + w ← (0<=)◶⟨⥊,⌈˝⍟(=-1˙)⟩1⊑¨s h ← ⌈˝⎉1⍟(0<=) ⊑¨s ∾⎉2 ≍⍟(0⌈2-=) (h ∾⌜ 𝕨×w¬(-𝕨×≠w)↑1) ↑¨ 𝕩 } @@ -33,7 +33,7 @@ _fold←{ ´ ← _fold ToArray ← <⍟(1-IsArray) -Cell←{(𝕨⊸+⊑𝕩˜)⌜↕(≠𝕩)-𝕨}⟜≢ +Cell←{(𝕨⊸+⊑𝕩˙)⌜↕(≠𝕩)-𝕨}⟜≢ ∾ ← {k←≠𝕨⋄k⊸≤◶⟨⊑⟜𝕨⋄-⟜k⊑𝕩˜⟩⌜↕k+≠𝕩} # LIMITED to two vector arguments @@ -48,7 +48,7 @@ _eachd←{ "Mapping: Argument shape prefixes don't agree" ! 1(⊑⟜p=⊑⟜q)⊸×´↕k l←1(q⊑˜k⊸+)⊸×´↕(=𝕩)-k a←⥊𝕨 ⋄ b←⥊𝕩 - q⥊⥊(≠a) (⊑⟜a𝔽l⊸×⊸+⊑b˜)⌜○↕ l + q⥊⥊(≠a) (⊑⟜a𝔽l⊸×⊸+⊑b˙)⌜○↕ l } =○=◶⟨>○=◶⟨𝔽_e⋄𝔽˜_e˜⟩⋄𝔽_d⟩ } @@ -106,11 +106,11 @@ Indices←{ Transpose←{ l←≠𝕩 ⋄ m←1×´c←1 Cell 𝕩 - (c⥊↕m)(+⟜(m⊸×)⊑(⥊𝕩)˜)⌜↕l + (c⥊↕m)(+⟜(m⊸×)⊑(⥊𝕩)˙)⌜↕l }⍟(0<=) TransposeInv←{ r←1-˜=𝕩 ⋄ s←≢𝕩 ⋄ l←r⊑s ⋄ c←⊑⟜s⌜↕r - (↕l)(+⟜(l⊸×)⊑(⥊𝕩)˜)⌜c⥊↕1×´c + (↕l)(+⟜(l⊸×)⊑(⥊𝕩)˙)⌜c⥊↕1×´c }⍟(0<=) SelSub←{ @@ -198,8 +198,8 @@ _sort ← {(𝕗⊑⟨Cmp,Cmp˜⟩)_grade_𝕗 ⊸ Select} > ↩ Merge ⊘ ((1-≤) _perv) ≠ ↩ ≠ ⊘ ((1-=) _perv) = ↩ = ⊘ (= _perv) -≥ ← ("≥: No monadic form"!0˜) ⊘ (≥ _perv) -≤ ↩ ("≤: No monadic form"!0˜) ⊘ (≤ _perv) +≥ ← ("≥: No monadic form"!0˙) ⊘ (≥ _perv) +≤ ↩ ("≤: No monadic form"!0˙) ⊘ (≤ _perv) + ↩ + _perv - ↩ - _perv ¬ ← 1+- @@ -452,7 +452,7 @@ ReorderChk←{ "𝕨⍉𝕩: 𝕨 must consist of natural numbers" ! ∧´Nat⌜⥊𝕨 } ReorderAxesSub←{ - (𝕨⊸⊏Pick𝕩˜)⌜↕⌊´⌜𝕨⊔≢𝕩 + (𝕨⊸⊏Pick𝕩˙)⌜↕⌊´⌜𝕨⊔≢𝕩 } ReorderAxes←{ 𝕨 ReorderChk 𝕩 @@ -526,7 +526,7 @@ _repeat_←{ a←𝕩⋄_p←{𝔽∘⊣`⟨a⟩∾↕0+𝕩} pos←(𝕨𝔽 ⊢)_p u neg←(𝕨𝔽⁼⊢)_p-l - (|⊑<⟜0⊑pos‿neg˜)⚇0 n + (|⊑<⟜0⊑pos‿neg˙)⚇0 n } ⍟ ↩ _repeat_ |