[ drop 0 ]
[ swap [ first-unsafe ] [ last-unsafe ] bi + * 2 / ] if-zero ;
-M: range infimum
+M: range minimum
dup step>> 0 > [ first ] [ last ] if ;
-M: range supremum
+M: range maximum
dup step>> 0 > [ last ] [ first ] if ;
<PRIVATE
M: reversed maximum seq>> maximum ; inline
M: repetition maximum elt>> ; inline
-GENERIC: infimum ( seq -- elt )
-M: sequence infimum minimum ; inline
-
-GENERIC: supremum ( seq -- elt )
-M: sequence supremum maximum ; inline
+ALIAS: infimum minimum deprecated
+ALIAS: supremum maximum deprecated
: map-sum ( ... seq quot: ( ... elt -- ... n ) -- ... n )
[ 0 ] 2dip [ dip + ] curry [ swap ] prepose each ; inline