Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: Speed required

From: carl:cybercraft at: 30-Nov-2007 5:42

Hi Kai, Here's a different approach, it duplicating cursor and then removing what's not wanted. Be interested in knowing if it's faster or slower. (Only you will know if deep's required.) ... ------------------------ cursor: [ [100 "Kai" 49 #764-0929] [101 "Zu" 52 #764-0915] [102 "Dewi" 16 #312-1772] ] cols: [1 2 4] remove-columns: function [cursor [block!] columns [block!]][tmp result][ result: copy/deep cursor tmp: copy [] repeat value length? result/1 [ if not find columns value [append tmp value - 1] ] forall result [ foreach column tmp [ remove skip result/1 column ] ] head result ] probe remove-columns cursor cols --------------------- Not much tested, mind! -- Carl Read. On Thursday, 29-Novenber-2007 at 11:24:41 Kai Peters wrote,