54326 fax (defun replacement (string index span with) (flet ((before (index) (subseq string 0 index)) (after (index) (subseq string index))) (concatenate 'string (before index) with (after (+ index span))))) (defun markov (rules text) (let ((replacement (car (sort (remove-if #'null (map 'list #'(lambda (rule) (list (search (first rule) text) (length (first rule)) (second rule))) rules) :key #'car) #'< :key #'car)))) (if replacement (markov rules (apply #'replacement text replacement)) text))) 3409494876 #lispcafe