Используя рекурсию написать функцию обработки списка - 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 >
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
