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

[REBOL] Re: Multiple Find Function

From: reboler:programmer at: 20-Feb-2002 19:27

Ooops! I meant multi-find: func [ "Find multiple instances of a value in a series and output their index position" ser [series!] "series to search" val "value to find" /local found out ][ out: copy/deep reduce [val []] parse ser [any [thru val found: (append out/2 (index? found) - length? val)]] out ] Notice that there is no "return" anywhere in site ;)