From d4f2ceff6299a98032b8af6448418f065eeab31d Mon Sep 17 00:00:00 2001
From: Raul Miller <rauldmiller@gmail.com>
Date: Fri, 22 Jul 2022 09:34:51 -0400
Subject: [PATCH] cut inv

Use ;:inv as cut's monadic obverse

It would be nice if we could define this obverse to be sensitive to cut's optional left argument, but I currently do not see how to accomplish that.  So... leave obverse for the dyadic case as a domain error to allow for possible future enhancement.
---
 main/strings.ijs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/main/strings.ijs b/main/strings.ijs
index 8e7eddf..2c3408b 100644
--- a/main/strings.ijs
+++ b/main/strings.ijs
@@ -75,7 +75,7 @@ NB.*ljust v left justify
 NB.*rjust v right justify
 NB.*ss v string search
 
-cut=: ' '&$: :([: -.&a: <;._2@,~)
+cut=: ' '&$: :([:-.&a:<;._2@,~) :.(;:inv@] : [:)
 deb=: #~ (+. 1: |. (> </\))@(' '&~:)
 debc=: #~"1 [: (+. (1: |. (> </\))) ' '&(+./ .~:)
 delstring=: 4 : ';(x E.r) <@((#x)&}.) ;.1 r=. x,y'