[REBOL] Improvements anyone?
From: kpeters:otaksoft at: 29-Nov-2007 20:14
Does anyone have suggestions on how to improve the function below?
TIA,
Kai
The 'filter function below returns a result block containing only "records" having
the filter criterion crit in "column" column
filter: function [ cursor [block!] reclen [integer!] column [integer!] crit ] [ rec result
tmp ] [
;
result: make block! length? cursor
crit: to-string crit
;
forskip cursor reclen [
rec: copy/part cursor reclen
;
if none <> find to-string cursor/:column crit [ insert tail result rec ]
]
result
]
s: s: [ 100 "Jim" 45
201 "Bob" 52
325 "Will" 16 ]
probe filter s 3 2 "i" ; filter for names containing letter "i"