muu.lisp

(defparameter chars (list "ﾑｰ" "ﾁｬ" "ｯｿ"))

(defun next (w)
  (cdr (apply #'append (list w (list (nth (random (length chars)) chars))))))

(defun find-mu (w)
    (if (string/= (apply #'concatenate 'string w) "ﾑｰﾁｬｯｿ")
      (progn (princ (nth (1- (length w)) w))
	     (find-mu (next w)))
    (princ (nth (1- (length w)) w))))

(defun start ()
  (let ((w nil))
	(dotimes (x (length chars))
	  (setf w (apply #'append (list w (list (nth (random (length chars)) chars))))))
	(find-mu w)))