diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-05-24 08:25:57 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-05-24 08:26:34 -0400 |
| commit | 5db9bdba3375e694a1748bd90343d1671ef523db (patch) | |
| tree | 61af57c30eeea3e6b14d1a8773f24cb58e08cd48 /src | |
| parent | 12bf6f0085e171ec0e409ac9062a5f7487b4705e (diff) | |
Order NaNs after other numbers for ⍋⍒∧∨
Diffstat (limited to 'src')
| -rw-r--r-- | src/r1.bqn | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -70,7 +70,8 @@ _perv←{ # Pervasion } # Sorting -Cmp0 ← ≥-≤ +CLE ← (≤⟜∞≤·=˜⊢)≤≤ # Place NaNs after other numbers +Cmp0 ← CLE˜-CLE Cmp1 ← (0<1×´≢∘⊢)◶⟨1, IsArray∘⊢◶(1-2×≤)‿{𝕨Cmp1𝕩}⟜(0⊑⥊)⟩ CmpLen ← { e←𝕨-○(1×´0⊸<⌜)𝕩 @@ -107,7 +108,7 @@ Cmp ← +○IsArray◶⟨ _grade ← { gt ← 𝕗 - cmps ← {𝕏˜}⌜⍟𝕗⟨Cmp,Cmp0,Cmp≤0˙,≤⟩ + cmps ← {𝕏˜}⌜⍟𝕗⟨Cmp,Cmp0,Cmp≤0˙,CLE⟩ _getC_ ← { 𝕨 𝕘{(𝕨 𝕏 _getCellCmp 𝕗)≤0˙}⍟(𝕩≤1) 𝔽 𝕩⊑cmps } 0 Fill { "⍋𝕩: 𝕩 must have rank at least 1" ! 1≤=𝕩 |