4rec, Common Lisp - rextester

Language: Layout:

;gnu clisp  2.49.60
#|Про каждого студента известная следующая информация: 
    какой предмет сдавал, каковы были результаты (оценки от 2 до 5), когда происходил экзамен или пересдача. 
Написать функцию, которая по заданным предметам упорядочивает список студентов по возрастанию количества пересдач.
|#

(defun slice-subject (students subject)
    (cond
        ((null students) nil)
        ((string= (second(first students)) subject) (cons (first students) (slice-subject (rest students) subject)) )
        (t (slice-subject (rest students) subject))
     )
)

;(defun )

(let (students))
(setf students '(("Magalish" "Algorithms" 5 (20 5 2020) "exam") ("Magalish" "Algorithms" 2 (20 5 2020) "retaking") ("Magalish" "Algorithms" 53 (20 10 2020) "retaking")
                  ("Skopina" "Algorithms" 2 (20 5 2020) "retaking")
                    ("Magalish" "Modeling" 2 (20 6 2020) "exam") ("Magalish" "Modeling" 4 (20 6 2020) "retaking") 
                   ("Skopina" "Modeling" 2 (20 6 2020) "exam") ("Skopina" "Modeling" 4 (20 6 2020) "retaking") ("Skopina" "Modeling" 4 (23 6 2020) "retaking") ))
(print "Студенты: ")
(print students)
(print "__________________________________________")
(let (subject)) (setf subject "Algorithms")
(print "Предмет: ")
(print subject)
(print "__________________________________________")
(print "Упорядоченный по количеству пересдач список: ")
(print (slice-subject students subject))
(print "__________________________________________")
(let (name)) (setf name "Skopina")
(print (remove-if #'(lambda (x) (string= x name)) students :key #'first))
(print (count-if #'(lambda (x) (string= x name)) students :key #'first))

[ + ] Show input
Absolute running time: 0.17 sec, cpu time: 0.03 sec, memory peak: 9 Mb, absolute service time: 0,22 sec