Hi Phil,
I couldn't post a comment on your blog for some reason so I'm posting
this to the list instead.
The seq>hash word you write already exists in the sets vocabulary, its
called unique.
And (prepare-filter) looks nicer if you use fry:
: (prepare-filter) ( filter seq -- )
'[ 1048576 mod _ set-bit ] each ;
Slava
-------------------------------------------------------------------------
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
