: maximum ( seq quot: ( ... elt -- ... x ) -- elt ) [ keep 2array ] curry [ [ [ first ] bi@ [ max ] keep eq? not ] most ] map-reduce second ; inline : minimum ( seq quot: ( ... elt -- ... x ) -- elt ) [ keep 2array ] curry [ [ [ first ] bi@ [ min ] keep eq? not ] most ] map-reduce second ; inline