From 5db9bdba3375e694a1748bd90343d1671ef523db Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 24 May 2021 08:25:57 -0400
Subject: =?UTF-8?q?Order=20NaNs=20after=20other=20numbers=20for=20?=
 =?UTF-8?q?=E2=8D=8B=E2=8D=92=E2=88=A7=E2=88=A8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r1.bqn | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index f925b06d..541a14fa 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -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≤=𝕩
-- 
cgit v1.2.3