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

[REBOL] Re: Shamless request for improving function speed.

From: ryanc:iesco-dms at: 28-Mar-2002 12:38

Wow Joel, I was blown away when I seen 'foreach is cruise through that so fast. They must have improved it along the way. Anyhow, here are some optomized versions... ; Really fast! hyper-cycles: func [b0 [block!] b1 [block!] /local j y r] [ r: copy b0 y: length? b1 j: 1 foreach a b0 [ r: change r a + pick b1 j j: j // y + 1 ] head r ] ; Less memory consuming, yet still fast... lean-cycles: func [b0 [block!] b1 [block!] /local j y] [ y: length? b1 j: 1 repeat B0-I length? b0 [ poke b0 B0-I b0/:B0-I + b1/:j J: J // y + 1 ] b0 ] --Ryan