Re: Rosetta Code: Top rank per group

From	"WJ" <w_a_x_man@yahoo.com>
Newsgroups	comp.lang.forth
Subject	Re: Rosetta Code: Top rank per group
Date	2014-12-26 04:59 +0000
Organization	A noiseless patient Spider
Message-ID	<m7ipvg$hef$1@dont-email.me> (permalink)
References	<77e31dd1-7692-4ef6-83b7-8f2fe3cb7957@googlegroups.com> <m7g8ue$uec$1@dont-email.me>

Show all headers | View raw

WJ wrote:

> 
> :: get-top ( n -- )
>   "records" v:get  [ dept ] map  sets:members  [ <=> ] sort
>   [| the-dept |
>     the-dept print
>     "records" v:get [ dept the-dept = ] filter
>     :> recs
>     0  n recs length min recs subseq

Shorter:

      recs  n recs length min  head


>     [ print-rec ] each
>   ] each
> ;

Back to comp.lang.forth | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

Re: Rosetta Code: Top rank per group "WJ" <w_a_x_man@yahoo.com> - 2014-12-25 05:56 +0000
  Re: Rosetta Code: Top rank per group "WJ" <w_a_x_man@yahoo.com> - 2014-12-26 04:59 +0000

csiph-web