Определить, упорядочены ли элементы в одноуровневом списке, содержащем латинские буквы, по алфавиту - Lisp

Формулировка задачи:

(defun sum-list (x) (cond ((null x) 0)
                                  (t (+ (car x) (sum-list (cdr x))))))

Код к задаче: «Определить, упорядочены ли элементы в одноуровневом списке, содержащем латинские буквы, по алфавиту - Lisp»

textual
(defun sorted (w v)
  (cond ((null v))
        ((null w) (null v))
        ((eq (car w) (car v)) (sorted w (cdr v)))
        ((sorted (cdr w) v))))
 
> (sorted '(a b c d e f g h i j k l m n o p q r s t u v w x y z) '(g g h h z z))
T
> (sorted '(a b c d e f g h i j k l m n o p q r s t u v w x y z) '(x g g h h z z))
NIL

10   голосов, оценка 3.900 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы