Используя рекурсию написать функцию обработки списка - Lisp
Формулировка задачи:
Доброго времени суток.
Есть задача:
Применяя рекурсию создать функцию, которая при заданном списке list и некотором числе k удалит все j+k элементы данного списка.
Решение задачи: «Используя рекурсию написать функцию обработки списка»
textual
Листинг программы
CL-USER 7 > (defun fun (l k) (loop for j :from 0 :to (- (length l) 1) for x :in l unless (= x (+ j k)) collect (cons x j))) FUN CL-USER 8 > (fun '(5 5 5 7 7 10 10 10) 3) ((5 . 0) (5 . 1) (7 . 3) (10 . 5) (10 . 6)) CL-USER 9 >
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д