imrove how to ?

I write a defun in LISP because replace all SEARCHES with REPLACES e.g.

"Go kawari haku fun" '("kaw" "hak") '("hak" "kaw")
into
"Go hakari kawu fun"

This its:


(defun search-and-replace (string search[es] replace[s])
  (let ((index
         (position-if #'(lambda (search)
                          (and (> (length string) (length search))
                               (string= string search :end1 (length search))))
                      search[es])))
    (cond (index
           (concatenate 'string
                        (elt replace[s] index)
                        (search-and-replace
                         (subseq string (length (elt search[es] index)))
                         search[es] replace[s])))
          ((string/= "" string)
           (concatenate 'string
                        (subseq string 0 1)
                        (search-and-replace
                         (subseq string 1)
                         search[es] replace[s])))
          (t ""))))


And how did you improved? Thanks.

I can help you in Scheme;
nobody uses Lisp nowadays.

>>2
Scheme is a lisp.

>>3
A variety of Lisp, a dialect, not pure Lisp.

>>4
The only `pure' Lisp is the McCarthy one. Since the '60s, the only relevant meaning of `Lisp' has been the family of languages (`dialects, varieties', if you wish) directly influenced by McCarthy's original Lisp. Scheme is a Lisp.

And you have anything to say for my code?

Don't change these.

Name:		Email:
Entire Thread Thread List