Hi Phil,
There is a word named push-at in the assocs vocabulary.
Slava
On Tue, Jul 29, 2008 at 4:16 AM, Phil Dawes <[EMAIL PROTECTED]> wrote:
> Hi Factor list
>
> A couple of times recently I've needed a way to map keys to multiple
> values and have implemented this as a hash of sequences. I was wondering
> if there was any support in the factor libraries to help with doing
> this, or a better way?
>
> If not, do you think it would be worth having an assoc wrapper that
> implements set-at thus:
>
> : set-at ( value key assoc -- )
> underlying-assoc>>
> swapd [ [ swap suffix ] [ 1array ] if* ] with change-at ;
>
> .. which would then allow map>assoc to work.
>
> Or would it be better to have separate words - e.g. map>assoc-append
> and append-at?
>
> : append-at ( value key assoc -- )
> swapd [ [ swap suffix ] [ 1array ] if* ] with change-at ;
>
> : map>assoc-append ( seq quot assoc -- )
> [ swapd append-at ] curry compose each ;
>
> { 1 2 3 2 4 5 6 } [ 20000 random ] H{ } clone [ map>assoc-append ] keep .
> H{
> { 1 { 6544 } }
> { 2 { 19297 4140 } }
> { 3 { 16399 } }
> { 4 { 13828 } }
> { 5 { 10744 } }
> { 6 { 18577 } }
> }
>
> Cheers,
>
> Phil
>
>
>
>
> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
> Build the coolest Linux based applications with Moblin SDK & win great prizes
> Grand prize is a trip for two to an Open Source event anywhere in the world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/
> _______________________________________________
> Factor-talk mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/factor-talk
>
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
