From 9e068983753ef76949ede559984c5c787a3a9a3e Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 25 Apr 2021 21:33:55 -0400
Subject: =?UTF-8?q?Use=20arithmetic=20for=20preliminary=20dyadic=20?=
 =?UTF-8?q?=E2=8C=8A=E2=8C=88?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 14d3650b..d67d8430 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -29,8 +29,8 @@ ToArray ← Box⍟(1-IsArray)
 ≥ ←            ≤˜
 < ← Box      ⊘ (1-≥)
 > ←            (1-≤)
-⌊ ↩ ⌊        ⊘ (>⊑{𝕨‿𝕩})
-⌈ ← -∘⌊∘-    ⊘ (<⊑{𝕨‿𝕩})
+⌊ ↩ ⌊        ⊘ (⊣-≥×-)
+⌈ ← -∘⌊∘-    ⊘ (⊣-≤×-)
 | ← 0⊸≤◶-‿⊢
 ≠ ← (0<=)◶⟨1⋄0⊑≢⟩  # LIMITED to monadic case
 
-- 
cgit v1.2.3