Code: Select all
(for (i 0 1400)
(push (list (string i) i) results -1))
(set 'l (last (first results)))
(set-ref-all '(+ +) results (list (first $it) (- (last $it) l)) match)
Code: Select all
(for (i 0 1400)
(push (list (string i) i) results -1))
(set 'l (last (first results)))
(set-ref-all '(+ +) results (list (first $it) (- (last $it) l)) match)
Code: Select all
(replace '(+ +) results (list (first $it) (- (last $it) l)) match)
Code: Select all
(set 'refs (ref-all '(+ +) results match))
(dolist (vec refs)
(setf (results vec) (list (first $it) (- (last $it) l))))