A monkey (<p....@javamonkey.com>) wrote:

> Kenny Tilton <ktilton@nyc.rr.com> writes:
>
> > Cool. Now here is a version using loop:
> >
> > (defun remove-text (text-to-remove text)
> > (loop with remove-length = (length text-to-remove)
> > for i = (search text-to-remove text)
> > then (search text-to-remove text :start2 i)
> > while i
> > do (setq text (concatenate 'string
> > (subseq text 0 i)
> > (subseq text (+ i remove-length))))
> > finally (return text)))
>
> Just to point out a useful LOOP idiom, here's another way:
>
> (defun remove-text (text-to-remove text)
> (with-output-to-string (s)
> (loop
> with remove-length = (length text-to-remove)
> for prev-end = 0 then (+ start remove-length)
> for start = (search text-to-remove text :start2 prev-end)
> do (write-string text s :start prev-end :end start)
> while start)))

Gauche Scheme:

(define (remove-text trash text)
(string-join (string-split text trash) ""))