School moving out (Day 1), Common Lisp

Language: Layout:

;gnu clisp 2.49

(defun c(s r)(or(not(sort s'>))(and(sort r'>)(<=(pop s)(pop r))(c s r))))

(defun can-students-relocate (students rooms)
  (or (not (sort students #'>))
      (and (sort rooms #'>)
           (<= (pop students)
               (pop rooms))
           (can-students-relocate students rooms))))

(print (mapcar (lambda (args) (apply #'c args))
               '(((10 20 30) (31 12 20))
                 ((10 20 30) (100 200))
                 ((20 10 30) (20 20 50 40))
                 ((30 10 30 5 100 99) (40 20 50 40 99 99))
                 (() (10 10 10))
                 ((10 10 10) ())
                 (() ())
                 ((10 1) (100))
                 ((10) (100 100))
                 ((1 2 3) (1 1 2 3)))))

(print (mapcar (lambda (args) (apply #'can-students-relocate args))
               '(((10 20 30) (31 12 20))
                 ((10 20 30) (100 200))
                 ((20 10 30) (20 20 50 40))
                 ((30 10 30 5 100 99) (40 20 50 40 99 99))
                 (() (10 10 10))
                 ((10 10 10) ())
                 (() ())
                 ((10 1) (100))
                 ((10) (100 100))
                 ((1 2 3) (1 1 2 3)))))

[ + ] Show input
Absolute running time: 0.07 sec, cpu time: 0.02 sec, memory peak: 5 Mb, absolute service time: 0,08 sec