From 59bbf09a0aab8173f24cf80d6e7cf2dddceb235d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 25 Feb 2023 17:14:36 -0600
Subject: [PATCH] extras: fix using/deleted word

---
 extra/assocs/extras/extras-tests.factor    | 11 ++---------
 extra/sequences/extras/extras-tests.factor |  8 ++++++++
 extra/sequences/extras/extras.factor       |  3 +++
 3 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/extra/assocs/extras/extras-tests.factor b/extra/assocs/extras/extras-tests.factor
index 2ca1b4cd67..15c86a1857 100644
--- a/extra/assocs/extras/extras-tests.factor
+++ b/extra/assocs/extras/extras-tests.factor
@@ -1,4 +1,5 @@
-USING: arrays assocs.extras kernel math math.order sequences tools.test ;
+USING: arrays assocs assocs.extras kernel math math.order
+sequences tools.test ;
 
 {
     H{ { 1 V{ 10 } } { 2 V{ 10 } } { 3 V{ 10 } } { 4 V{ 10 } } { 5 V{ 10 } } }
@@ -21,14 +22,6 @@ USING: arrays assocs.extras kernel math math.order sequences tools.test ;
     H{ { 1 H{ { 2 H{ { 3 4 } } } } } } dup { 1 2 3 } 40 deep-set-of
 ] unit-test
 
-{ { { 1 1 } { 2 2 } { 0 3 } { 0 4 } { 0 5 } } } [
-    { 1 2 } { 1 2 3 4 5 } 0 zip-longest-with
-] unit-test
-
-{ { { 1 1 } { 2 2 } { f 3 } { f 4 } { f 5 } } } [
-    { 1 2 } { 1 2 3 4 5 } zip-longest
-] unit-test
-
 { H{ { 2 1 } { 4 3 } } } [ H{ { 1 2 } { 3 4 } } assoc-invert ] unit-test
 
 { H{ { "a" V{ 2 5 } } { "b" V{ 3 } } { "c" V{ 10 } } } }
diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index c18401ef65..c116a51aea 100644
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -487,3 +487,11 @@ strings tools.test ;
 
 { 20 1 } [ 0 { 10 20 30 } [ drop 20 = ] find-index-from* ] unit-test
 { f f } [ 0 { 10 20 30 } [ drop 21 = ] find-index-from* ] unit-test
+
+{ { { 1 1 } { 2 2 } { 0 3 } { 0 4 } { 0 5 } } } [
+    { 1 2 } { 1 2 3 4 5 } 0 zip-longest-with
+] unit-test
+
+{ { { 1 1 } { 2 2 } { f 3 } { f 4 } { f 5 } } } [
+    { 1 2 } { 1 2 3 4 5 } zip-longest
+] unit-test
diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index a36caa74de..6408dd5796 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -309,6 +309,9 @@ PRIVATE>
 
 : inc-at* ( key assoc -- old new ) [ 1 ] 2dip at+* ; inline
 
+: occurrence-count-by ( seq quot: ( elt -- elt' ) -- hash seq' )
+    '[ nip @ over inc-at* drop ] [ H{ } clone ] 2dip 0accumulate ; inline
+
 : progressive-index-by-as ( seq1 seq2 quot exemplar -- hash seq' )
     [
         pick length '[
-- 
2.34.1