Paste: group-by

Author: randy
Mode: factor
Date: Wed, 14 Jul 2010 18:55:42
Plain Text |
: group-by ( seq quot: ( x -- y ) -- values )
    H{ } clone [ '[ [ ] _ bi _ push-at ] each ] keep values ; inline

New Annotation

Summary:
Author:
Mode:
Body: