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