[REBOL] Multiple Find Function
From: reboler::programmer::net at: 20-Feb-2002 19:21
Is the output of the following what you wanted?
Anybody have improvements?
To search blocks try multi-find to-string yourblock value.
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)]]
return out
]
