From 08e8490a8654bc2a1a3cb797cde3d4900e8c03de Mon Sep 17 00:00:00 2001 From: nomennescio Date: Sat, 14 Oct 2023 02:39:08 +0200 Subject: [PATCH] Optimized minimum and maximum for element-repeats --- extra/sequences/repeating/repeating.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/extra/sequences/repeating/repeating.factor b/extra/sequences/repeating/repeating.factor index b2eb049cfd..fdfef64bfd 100644 --- a/extra/sequences/repeating/repeating.factor +++ b/extra/sequences/repeating/repeating.factor @@ -48,5 +48,8 @@ M: element-repeats virtual@ [ times>> /i ] [ seq>> ] bi ; INSTANCE: element-repeats immutable-sequence +M: element-repeats minimum seq>> minimum ; inline +M: element-repeats maximum seq>> maximum ; inline + : repeat-elements ( seq times -- new-seq ) dupd swap like ; -- 2.34.1