basis/models/sort/sort.factor

   1 ! Copyright (C) 2008 Slava Pestov
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays fry kernel models.product models.arrow
   4 sequences sorting ;
   5 IN: models.sort
   6
   7 : <sort> ( values sort -- model )
   8     2array <product> [ first2 sort ] <arrow> ;