WedX - журнал о программировании и компьютерных науках

Недопустимая синтаксическая ошибка

(defun copy (l)                                                                                                                         
  (let ((lst (list)))                                                                                                                   
    (loop for i in l                                                                                                                    
          (if (not (null i))                                                                                                   
              (push i (cdr (last lst))))))                                                                                     
  lst)

У меня ошибка, которую я не понимаю.

Эта функция предназначена для копирования элементов списка в новый список. Ошибка указывает на недопустимый синтаксис внутри оператора LOOP.

loops syntax-error lisp common-lisp
05.11.2015

  • В следующий раз, пожалуйста, не изображение, а текст. 05.11.2015

Ответы:


1

То, что вы делаете, по существу сводится к следующему фрагменту современной поэзии:

(defun remove-nil (list) (remove nil list))

Ваш код написан так, как если бы это был Scheme, который сильно отличается от Common lisp. В вашем случае это даже делает ваш код ошибочным. Подробности следуют:

  1. Функция неудачно названа, на первый взгляд кажется, что вы только копируете, но еще и фильтруете.
  2. Можно написать list, гласные пропускать не нужно.
  3. Вам не нужно писать (list) для построения пустого списка, простое объявление вспомогательной переменной без привязки инициализирует ее значением nil. Если вы хотите, вы можете явно привязать свою переменную к nil, чтобы уведомить читателей, что вы делаете это намеренно, но я редко это вижу.

  4. Let не похож на define схемы, lst больше не связан, когда вы выходите из let. Вместо этого у вас должно быть это:

    (let ((lst ...))
   ...
  lst)

  5. (not (null x)) — это способ обработки пустых списков в Scheme. В Common Lisp вы можете написать (when x ...).

  6. Макрос loop допускает две разные формы: простую, которая выглядит как progn (то есть список форм), и другую, в которой вы используете ключевые слова loop (собирать, суммировать, повторять, ...): ваш (if ...) должен иметь do перед этим. Но вы также можете использовать ключевое слово цикла when. Вот что я предлагаю сделать, если вы хотите использовать цикл:

    (defun remove-nil (list)
  (loop for e in list when e collect e))
05.11.2015
  • Спасибо вам за помощь. Я изменил код на: (defun copy(l) (setf lst (цикл для i в l, когда я собираю i)) lst) 05.11.2015
  • @JoãoCosta Это лучше, но setf изменяет lst, который не объявлен в этом контексте (я не думаю, что у вас есть defvar, не так ли?). Ваша система, вероятно, определит имя глобальной переменной lst для хранения временного значения, что является плохим стилем. Пусть это то, что вам нужно. 05.11.2015
  • @JoãoCosta Хотя в этом конкретном случае вы могли бы просто позволить значению формы цикла быть возвращаемым значением функции, фактическая привязка его (через let или иным образом) полезна только в том случае, если вам нужно удерживать его для дальнейшие манипуляции перед возвратом. 06.11.2015
    • Новые материалы
    Объяснение документов 02: BERT
    BERT представил двухступенчатую структуру обучения: предварительное обучение и тонкая настройка. Во время предварительного обучения модель обучается на неразмеченных данных с помощью..
    Как проанализировать работу вашего классификатора?
    Не всегда просто знать, какие показатели использовать С развитием глубокого обучения все больше и больше людей учатся обучать свой первый классификатор. Но как только вы закончите..
    Работа с цепями Маркова, часть 4 (Машинное обучение)
    Нелинейные цепи Маркова с агрегатором и их приложения (arXiv) Автор : Бар Лайт Аннотация: Изучаются свойства подкласса случайных процессов, называемых дискретными нелинейными цепями Маркова..
    Crazy Laravel Livewire упростил мне создание электронной коммерции (панель администратора и API) [Часть 3]
    Как вы сегодня, ребята? В этой части мы создадим CRUD для данных о продукте. Думаю, в этой части я не буду слишком много делиться теорией, но чаще буду делиться своим кодом. Потому что..
    Использование машинного обучения и Python для классификации 1000 сезонов новичков MLB Hitter
    Чему может научиться машина, глядя на сезоны новичков 1000 игроков MLB? Это то, что исследует это приложение. В этом процессе мы будем использовать неконтролируемое обучение, чтобы..
    Учебные заметки: создание моего первого пакета Node.js
    Это мои обучающие заметки, когда я научился создавать свой самый первый пакет Node.js, распространяемый через npm. Оглавление Глоссарий I. Новый пакет 1.1 советы по инициализации..
    Забудьте о Matplotlib: улучшите визуализацию данных с помощью умопомрачительных функций Seaborn!
    Примечание. Эта запись в блоге предполагает базовое знакомство с Python и концепциями анализа данных. Привет, энтузиасты данных! Добро пожаловать в мой блог, где я расскажу о невероятных..
    Для любых предложений по сайту: [email protected]