zundoko Class and kiyoshi Function for CL, Common Lisp

Language: Layout:

(defclass zundoko()(
    (zundoko_list
        :initarg :words
        :initform '("ズン" "ドコ")
    )
    (exit_kiyoshi
        :initarg :fin
        :initform "キ・ヨ・シ!"
    )
    (zdchk
        :initarg :ptn
        :initform '(0 0 0 0 1)
    )
))

(defmethod kiyoshi((me zundoko))
    (setq *random-state* (make-random-state t))
    (let(
        (zundoko_list (slot-value me 'zundoko_list))
        (exit_kiyoshi (slot-value me 'exit_kiyoshi))
        (zdchk (slot-value me 'zdchk))
    )(let(
        (stc (mapcar #'(lambda(val)"") zdchk))
    )
        (defun fact(stc)
            (let(
                (zd(random(length zundoko_list)))
            )(let(
                (stczd (append (rest stc) `(,(elt zundoko_list zd))))
            )
                (format t (elt zundoko_list zd))
                (if (and
                    (string/= (first stc) (first zundoko_list))
                    (equal stczd (mapcar #'(lambda(val)(elt zundoko_list val)) zdchk))
                )
                    exit_kiyoshi
                    (fact stczd)
                )
            ))
        )
        (fact stc)
    ))
)

(defparameter zd (make-instance 'zundoko))
(format t "~a~%" (kiyoshi zd))

(defparameter nyaaan (make-instance 'zundoko :words '("ぺぇこ" "にゃん") :fin "ぺぇこぺぇこふぅーんふぅーんぺぇこふぅーんふぅー" :ptn '(0 0 1 1 0 1 1)))
(format t "~a~%" (kiyoshi nyaaan))

[ + ] Show input
Absolute running time: 0.14 sec, cpu time: 0.01 sec, memory peak: 6 Mb, absolute service time: 0,14 sec