; variables (defparameter *str_a* "") (defparameter *str_b* "") ; functions (defun input-strings () (setf *str_a* (read-line)) (setf *str_b* (read-line)) ) (defun check-same-str-p (str1 str2) (equal (sort (coerce str1 'list) #'char-lessp) (sort (coerce str2 'list) #'char-lessp)) ) (defun n69 () (input-strings) (if (check-same-str-p *str_a* *str_b*) (princ "YES") (princ "NO") ) ) (n69)