Hi Ed,
Eduardo Cavazos wrote:
>
> : indices ( seq obj -- indices )
> over length <vector> -rot
> [ rot = [ over push ] [ drop ] if ]
> curry
> each-index
> >array ;
>
> Whatever you find, feel free to check in the best performing one.
>
Thanks for this. I timed this version (which I've called 'indices-3'
below) - faster than the current indices but it still came in a bit
slower than my one ('indices-2'):
{
{ 13514138 354 "indices" }
{ 7772117 354 "indices-2" }
{ 10841411 354 "indices-3" }
}
(columns are 'total microseconds', 'number calls' 'name')
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
