Индексный выбор элемента из
| (defun ind-n (ln n) (setq bl ln) (setq ind nil) (dotimes (i n ind) (setq ind (cons (- n i) (cons (car bl ) ind ))) (setq bl (cdr bl)) )) (print (ind-n '(a b c d e f g) 4)) ; = D |
| Пример 11.6. Индексный выбор элемента из списка |
| Закрыть окно |
