[REBOL] Re: Speed required

From: gregg:pointillistic at: 29-Nov-2007 12:36

Hi Kai,


KP> remove-columns:  function [ cursor [block!] columns [block!]] [ tmp result ]KP>  
[
KP>    result: copy []
KP>    foreach record cursor [
KP>       tmp: copy []
KP>       foreach column columns [
KP>         append tmp pick record column
KP>       ]
KP>       append/only result tmp
KP>    ]
KP>    result
KP> ]

And is that not fast enough? The obvious thing to do is preallocate
the result block to the correct size (make block! length? cursor) and
use INSERT TAIL rather than APPEND.

-- Gregg

1 · 2 · 3 · 4 · [5] · 6 · 7 · 8 · 9 · See whole thread