From 1653a533ffd330bd7dd9edfb62fffba3d2f0762f Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 11 Feb 2023 01:42:06 -0600 Subject: [PATCH] sequences.extras: add some words that might be useful --- extra/sequences/extras/extras.factor | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index 2ec7576c0e..0f71624c5b 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -722,9 +722,15 @@ ERROR: slice-error-of from to seq ; : remove-nth-of ( seq n -- seq' ) [ dup 1 + rot snip-slice ] keepd append-as ; +: remove-nth-of* ( seq n -- nth seq' ) + [ nth-of ] [ remove-nth-of ] 2bi ; + : remove-nth-of! ( seq n -- seq ) dup 1 + delete-slice-of ; +: remove-nth-of*! ( seq n -- nth seq ) + [ nth-of ] [ dup 1 + delete-slice-of ] 2bi ; + : snip-of ( seq from to -- head tail ) [ head ] [ tail ] bi-curry* bi ; inline -- 2.34.1