diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-05 12:56:39 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-05 12:56:39 -0400 |
| commit | 6408f52bdb80b0b79191675481bf59739ec3ad5b (patch) | |
| tree | 2c9895bd1d9def10c7cf7b05b1c7d357fbf2c849 /src/r.bqn | |
| parent | 053d9b3038977db5cbf1921a144366ebaf774cfe (diff) | |
Prefer ˙ to ˜ for constant functions
Diffstat (limited to 'src/r.bqn')
| -rw-r--r-- | src/r.bqn | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -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_ |